Alle tabbladen beveiligen

[Tjico30]

Ik wil graag via een Macro alle tabbladen in één keer beveiligen (met paswoord) beveiliging opheffen lukt wel maar aanzetten is een probleem

bedankt

 

[joost verdaasdo]

Hai,

Dit is voor Excel neem ik aan?
Zie:
http://office.webforums.nl/forum/viewtopic.php?t=7367

Als je inlogt kun je verschillende bijlagen downloaden in dat topic.

Het komt er eigenlijk op neer dat je door alle werkbladen loopt en deze beveiligd.

See Yah! :thumb:

 

[WillemSchaaper]

Hallo Tjico30 Met deze macro zet je de beveiliging van alle bladen in een keer aan, en met de ander in een keer uit. Voor het wachtwoord "klacht" je eigen wachtwoord invullen

Sub UnProtectSheets()
' Unprotect Macro
' Sneltoets: CTRL+SHIFT+U
Application.ScreenUpdating = False
Dim mysheet As Worksheet
For Each mysheet In Worksheets
mysheet.Select
mysheet.Unprotect "klacht"
Next mysheet
Application.ScreenUpdating = True
Sheets("Interne-klacht").Select
End Sub

Sub ProtectSheets()
' Protect Macro
' Sneltoets: CTRL+SHIFT+P
Application.ScreenUpdating = False
Dim mysheet As Worksheet
For Each mysheet In Worksheets
mysheet.Select
mysheet.Protect "klacht", True, True, True
Next mysheet
Application.ScreenUpdating = True
Sheets("Interne-klacht").Select
End Sub:
Groeten Willem Schaaper