• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Opgelost meerdere werkbladen tegelijkertijd beveiligen maar dat je nog wel kan filteren

Dit topic is als opgelost gemarkeerd
Status
Niet open voor verdere reacties.

amarob

Gebruiker
Lid geworden
23 feb 2014
Berichten
68
Hallo,

Sub BeveiligAlles()
Dim ws As Worksheet
Dim ps As String
ps = InputBox("Voer een wachtwoord in voor alle tabbladen", vbOKCancel)
For Each ws In ActiveWorkbook.Worksheets
ws.Protect Password:=ps
Next ws
End Sub

Met bovenstaande code lukt het om meerdere werkbladen tegelijkertijd te beveiligen met een wachtwoord. Maar dan staan standaard "vergrendelde cellen selecteren" en "Ontgrendelde cellen selecteren" aangevinkt. Ik wil dat ook "AutoFilter gebruiken" aangevinkt is.

Kan dit binnen deze code gerealiseerd worden? Of moet daarvoor een hele andere code gemaakt worden?

Alvast dank voor jullie hulp.
 
Dit?
Code:
ActiveSheet.Protect Password:=ps, DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True

Tip:
Gebruik de macro recorder.
 
Laatst bewerkt:
Bovenstaande kan ik niet meer wijzigen, maar Activesheet moet in jouw geval ws zijn.
 
Edmoor: door je laatste aanvulling werkt het zoals ik wil. Heel veel dank voor je hulp.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan