Protect / Unprotect Sheets

R

Rob F

Hi

Can anyone provide two simple macros to protect all sheets
in a workbook, and the opposite - i.e. unprotect all
sheets?

Ideally, I'd then like to move on to designing a form that
lists all the worksheets that I can toggle protection or
or off from. But first things first!

Thanks

Rob F
 
P

papou

Hello Rob
Sub Protect()
For Each f In Sheets
f.Protect '("pwd") optional if password
Next f
End Sub

Sub Unprotect()
For Each f In Sheets
f.Unprotect '("pwd") optional if password
Next f
End Sub

HTH
Cordially
Pascal
 
D

Don Guillett

Sub toggleprotect()
With ActiveSheet
If .ProtectContents = True Then
.Unprotect
Else
.Protect
End If
End With
End Sub
 
Top