On Feb 17, 9:54 pm, Jim wrote:
Is there any way that a cell can be set up to indicate if a sheet is
protected or unprotected?

Thanks

Do you mean something like this?
A1 would have to be locked.

Public Sub CheckProtection()
On Error GoTo PROTECTED
Range("A1").Value = "Not Protected"
Exit Sub
PROTECTED: ActiveSheet.Unprotect: Range("A1").Value = "Protected"
ActiveSheet.Protect
End Sub

Ken Johnson