Function To Test If The Active Sheet Is Protected

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