Probleem met script dat gebruikers kunnen filteren

[Appievee]

Goedemorgen,

Om een sheet te beveiligen tegen onbedoeld wijzigen heb ik het blad met een wachtwoord beveiligd.
Bij een ander bestand maak ik gebruik van de onderstaande VBA-code zodat de gebruikers wel kunnen filteren. En werkt het wel.

Private Sub Workbook_Open()

Sheets("Naam sheet").Protect userinterfaceonly:=True, AllowFiltering:=True

End Sub

Echter krijg ik bij dit bestand de volgende foutmelding bij het openen van het bestand.

Fout 9 tijdens uitvoering: Het subscript valt buiten het bereik

Heeft iemand een suggestie waar dit in kan zitten.

Merci,

Albert

 

[wampier]

Dat is moeilijk zo te zeggen, maar zeer waarschijnlijk is de naam van de sheet niet juist

 

[Appievee]

Ik heb het inmiddels op een andere manier opgelost.

D.m.v. de bovenste rij cellen (waarin men de filters bediend) vanuit Menu>Start>Opmaak Cellen de betreffende cellen buiten het "Cellen vergrendelen" bereik te halen.

Gr. Albert