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.
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.