Protected Worksheet Indication

S

Steve Klenner

Is there a way to visually see if a worksheet is protected? The toolbar
will indicate protected cells but I cannot find a way to indicate whether a
worksheet is protect without manually checking.

Is there a formula that can be used in conditional formating of a cell that
could indicate if a worksheet is protected or not. I need a quick way to
know that required worksheets are protected.

Thanks
Steve
 
K

Ken Wright

The following courtesy of JE will toggle protection on every sheet, so if you
only want certain ones protected then do those manually initially, and then use
this to turn protection on/off. It will give you a status of every sheet once
done.


Public Sub ToggleProtect1()
'Courtesy of J E McGimpsey
'If only selected sheets are to be protected, then a toggle works well

Const PWORD As String = "ken"
Dim wkSht As Worksheet
Dim statStr As String

For Each wkSht In ActiveWorkbook.Worksheets
With wkSht
statStr = statStr & vbNewLine & "Sheet " & .Name
If .ProtectContents Then
wkSht.Unprotect Password:=PWORD
statStr = statStr & ": Unprotected"
Else
wkSht.Protect Password:=PWORD
statStr = statStr & ": Protected"
End If
End With
Next wkSht
MsgBox Mid(statStr, 2)
End Sub
 
B

BookLady

Alt T P is fast.

One solution is to color code something, a cell or even the whole shee
and remove the color coding when the protection is turned off
 
D

Dave Peterson

Don't a lot of the icons on the standard and formatting toolbars get disabled?
 
Top