How about:

Sub bw()
Dim b As Boolean
b = ActiveSheet.ProtectContents
MsgBox (b)
If b Then
'do something
Else
'do something else
End If
End Sub

--
Gary''s Student - gsnu200724


"bw" wrote:

If someone Protects or Unprotects a worksheet, how does one "capture"
that fact so that I will know when to cause a manual Calculation?

--