Free for PREMIUM members
If ActiveSheet.Protection.AllowInsertingColumns = True Then
MsgBox "The worksheet is unprotected."
MsgBox "The worksheet is protected."
Open in new window
Dim mySheet As Worksheet
For Each mySheet In ActiveWorkbook.Worksheets
If SheetProtected(mySheet) Then
MsgBox "Your Sheet: " & mySheet.Name & " is protected", vbOKOnly
Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.
If ActiveSheet.ProtectContents = True Then
MsgBox "Not Protected"
Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.