' ----------------------------------------------------------------
' Purpose: Check if selection is restricted on a sheet in any way
' ----------------------------------------------------------------
Function f_allSelectionEnabled(sh As Worksheet) As Boolean
'If the sheet is not protected OR sheet is protected but EnableSelection is xlNoRestrictions returns True, otherwise False
If sh.ProtectContents = False Or (sh.ProtectContents = True And sh.EnableSelection = xlNoRestrictions) Then
f_allSelectionEnabled = True
Else
f_allSelectionEnabled = False
End If
End Function
Comments
0 B
|👍
/👎
0 B
|0 👍
/0 👎
0 B
|👍
/👎