Autofilter werkt niet bij beveiligd werkblad

[Garfield21]

Met behulp van een macro print ik een reeks werkbladen waarbij alleen de regels waar in een bepaalde kolom waarden zijn weergegeven, worden afgedrukt. Blanco regels worden dus niet afgedrukt.

Wanneer ik echter de werkbladen beveilig om te voorkomen dat gebruikers ongeautoriseerde wijzigingen aanbrengen, werkt de macro niet meer.

Weet iemand iets om dit te omzeilen?

 

[Cobbe]

Zet deze code in je werkboek:

Private Sub Workbook_Open()
  With Sheets("Blad1")
    .Protect UserInterfaceOnly:=True
    .EnableAutoFilter = True
  End With
End Sub

Pas wel de naam van je blad(en) aan.

Cobbe

 

[Haaren101]

Of zet aan het begin van je macro (in ieder sheet)

ActiveSheet.Protect

en aan het eind:

ActiveSheet.Unprotect

Ron

 

[Garfield21]

Cobbe, bedankt!
De gebruiker wordt nu echter bij elk tabblad gevraagd om het wachtwoord op te geven om de beveiliging ongedaan te maken. De gebruiker weet dit wachtwoord niet want die heb ik als ontwerper van het document toegevoegd zodat de gebruiker geen geautoriseerde wijzigingen kan doorvoeren.

Een andere optie?

 

[Cobbe]

Ik snap het niet doed, denk ik.
Welk nut heeft een beveiliging als de gebruiker dat telkens wil/moet opheffen?

Cobbe

 

[Haaren101]

Of zet aan het begin van je macro (in ieder sheet)

ActiveSheet.Protect

en aan het eind:

ActiveSheet.Unprotect

Ron

Daar staat dus een foutje in; moet zijn

Aan het begin:
ActiveSheet.Unprotect Password = "blabla"

Aan het eind
ActiveSheet.Protect Password = "blabla"

Ron

 

[Finch]

Die methode met de protectie in het begin op te heffen en op het laatste terug aan te zetten, gaat wel werken. Maar het voorstel van Cobbe om te werken met userinterface=true icm de protectie lijkt me beter.

Die userinteface=true zorgt er juist voor dat VBA code wel toegang heeft tot je sheet, maar manuele handelingen uitgesloten kunnen worden.
Door de sheet op deze manier te beveiligen zit je ook niet te klungelen met het passwoord probleem.

 

[Garfield21]

Thanx!

Een ieder bedankt voor de tips. Uiteindelijk heb ik de tip van Ron gevolgd. Werkt prima! Bedankt Ron!