Avatar billede boro23 Admin
22. juli 2022 - 09:14 Der er 3 kommentarer og
1 løsning

VBA kode - autofilter

Hej Eksperter, håber ikke I alle er gået på sommerferie/weekend, for jeg har desperat brug for hjælp.

Har en excelfil hvori der et ark "Sælger" som bliver bliver flittigt brugt med autofilter, men brugerne glemmer at ryde autofilter inden de gemmer og lukker filen ned.

Vil det være muligt at lave en vbakode, der kun skal rydde autofilter i arket "Sælger" som er arkbeskyttet uden kode, når filen åbnes?
Avatar billede store-morten Ekspert
22. juli 2022 - 10:10 #1
Prøv:
Private Sub Workbook_Open()

ActiveSheet.Unprotect

  On Error Resume Next
    Worksheets("Sælger").ShowAllData
  On Error GoTo 0
 
ActiveSheet.Protect DrawingObjects:=True, _
Contents:=True, Scenarios:=True, AllowFiltering:=True

End Sub
Avatar billede store-morten Ekspert
22. juli 2022 - 10:35 #2
Hov..... Skal lige bestemme hvilken fane der skal låses op/i :
Private Sub Workbook_Open()

Worksheets("Sælger").Unprotect

  On Error Resume Next
    Worksheets("Sælger").ShowAllData
  On Error GoTo 0
 
Worksheets("Sælger").Protect DrawingObjects:=True, _
Contents:=True, Scenarios:=True, AllowFiltering:=True

End Sub
Avatar billede boro23 Admin
22. juli 2022 - 10:56 #3
Hej Store-morten
Det fandt jeg også ud af ;-)
1000 tak for hjælpen, så kan jeg trygt gå ferie.
Go' weekend
Avatar billede store-morten Ekspert
22. juli 2022 - 11:03 #4
Velbekomme 👍
God ferie 🏖
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





CIO
Stort CIO-interview: Lemvigh-Müllers milliard-omsætning er blevet digital