Macro Automatisch filter: blad beveiligen

[Remcovt]

Goedemiddag,

In Excel heb ik een macro in een tabblad staan die goed werkt (automatische filter zodra het blad geopend wordt). Echter is deze sheet ook door anderen in gebruik. Om ervoor te zorgen dat er geen mutaties kunnen plaatsvinden wil ik er dus voor zorgen dat de sheet standaard vergrendeld is maar de filter wel automatisch bijwerkt.

De macro die werkt is:

Private Sub Worksheet_Activate()
Range("$a$2:$a$10000").AutoFilter 1, "Ja"
End Sub

Nu wil ik deze ook werkend krijgen op het moment dat het blad beveiligd is. Hoe kan ik dit voor elkaar krijgen?

Nu krijg ik: Fout 1004 tijdens uitvoering: U kunt deze opdracht niet gebruiken op een beveligd blad. Als u deze opdracht wilt gebruiken, moet u de beveiliging van het blad opheffen (tabblad Revisie, Groep beveiligen, knop Beveliging blad opheffen). U moet mogelijk een wachtwoord opgeven

 

[AD1957]

Genoeg te vinden op Helpmij, kijk eens hier.
https://www.helpmij.nl/forum/showth...voegen-aan-beveiligde-tabel?highlight=protect

 

[Remcovt]

Genoeg te vinden op Helpmij, kijk eens hier.
https://www.helpmij.nl/forum/showth...voegen-aan-beveiligde-tabel?highlight=protect

Had ik al gekeken maar werkt niet. Wat doe ik verkeerd:


Private Sub Worksheet_Activate()
ActiveSheet.Unprotect "control"
Range("$a$2:$a$10000").AutoFilter 1, "Ja"
ActiveSheet.Protect "control"
End Sub

 

[edmoor]

En je weet zeker dat het wachtwoord correct is?

 

[mvdvlist]

Zonder te testen:

Private Sub Worksheet_Activate()
Sheets("Huppelepup").Unprotect "EvtWachtwoord"
Range("$a$2:$a$10000").AutoFilter 1, "Ja"
Sheets("Huppelepup").Protect
End Sub

 

[AD1957]

Wachtwoord is hoofdlettergevoelig, misschien is dat het probleem.

 

[HSV]

Dit is voldoende mits het wachtwoord goed is.

Dus geen activesheet gebruik of de benaming van het blad in een bladmodule.

Private Sub Worksheet_Activate()
Unprotect "control"
 [COLOR=#3E3E3E]Range("a2:a10000").AutoFilter 1, "Ja"[/COLOR]
Protect "control"
End Sub