Function To Test If Any Sheets Are Protected

less than 1 minute read

Tests if any sheets in the active workbook are protected with or without a password.

'============================================================================================
' ## Tests if any sheets in the active workbook are protected with or without a password
' Insert before your code to validate if any sheets are protected
' ' Test if any sheets in the activeworkbook protected
' If AnySheetsProtected = True Then Exit Sub
'============================================================================================
Function AnySheetsProtected() As Boolean ' Vars Dim sht As Worksheet ' Loop through each worksheet in the ActiveWorkbook For Each sht In ActiveWorkbook.Sheets ' Test for protected sheets If sht.ProtectContents = True = True Then MsgBox "At least one sheet in this workbook is protected" & vbDoubleLine & _ "Cannot continue with this procedure" ' Protection detected on at least 1 sheet ' Set to True and exit function AnySheetsProtected = True Exit Function End If Next sht ' No sheets currently are password protected AnySheetsProtected = False
End Function

Tags: developer, function, validation

Categories: vba

Updated: November 16, 2018

Twitter Facebook LinkedIn

Leave a Comment