Page tree

Welcome to FreeSoftwareServers Confluence Wiki

Skip to end of metadata
Go to start of metadata

Sub Test()

Dim Check As Boolean
Check = IsWsProtected(ActiveSheet)
If Check = True Then
    Debug.Print "Its Protected"
    Debug.Print "Its NOT Proected"
End If
End Sub
Public Function IsWsProtected(ProtectCheckWS As Worksheet) As Boolean
If ProtectCheckWS.ProtectContents Then
    IsWsProtected = True
    IsWsProtected = False
End If
End Function
  • No labels