Multiple Sheet Protection

[Guest]

I have over 75 sheets in a workbook that I want to protect so that the contents of the cells remain hidden. Is there a way to apply protection to multiple sheets at a single time or do I need to open each sheet and apply protection.

Thanks.

 

[Harald Staff]

Hi

You have to protect one by one. However, tedious repeating tasks is what macros do well,
so running those two won't take half a second:

Sub LockEm()
Dim Wk As Worksheet
For Each Wk In ActiveWorkbook.Worksheets
Wk.Protect ("Harald is great")
Next
End Sub

Sub UnLockEm()
Dim Wk As Worksheet
For Each Wk In ActiveWorkbook.Worksheets
Wk.Unprotect ("Harald is great")
Next
End Sub

If you against all reason would prefer to change the password, it's the one between quotes
within the parentheses.
--
HTH. Best wishes Harald
Followup to newsgroup only please.

I have over 75 sheets in a workbook that I want to protect so that the contents of the

cells remain hidden. Is there a way to apply protection to multiple sheets at a single
time or do I need to open each sheet and apply protection.

 

[Alan]

Wk.Protect ("Harald is great")

Hail Harald!!
Not for the first time you make me chuckle Harald (sincere, not sarcastic)
Keep it up!
Alan.