Function To Test If The Active Sheet Is Protected

less than 1 minute read

Function to tests if the active sheet is protected.

'============================================================================================
'## Tests if the activesheet is protected
' ' If the activesheet is protected
' If ActiveProtected = True Then Exit Sub
'============================================================================================
Function ActiveProtected() As Boolean ' If the activesheet is protected then exit sub If ActiveSheet.ProtectContents = True Then MsgBox "The active sheet is protected" & vbNewLine & _ "Cannot continue with this procedure" ActiveProtected = True Exit Function End If ' Not protected ActiveProtected = False
End Function

Tags: developer, function, validation

Categories: vba

Updated: November 16, 2018

Twitter Facebook LinkedIn

Leave a Comment