How to determine if the workbook is protected?

[filo666]

Hi, How can I determine if a workbook is protected?

 

[Shasur]

You can try the following

Sub Check_If_WB_Protected()


If (ActiveWorkbook.ProtectWindows = True Or ActiveWorkbook.ProtectStructure
= True) Then
MsgBox "Workbook is protected"
Else
MsgBox "Workbook is not protected"
End If

End Sub


Cheers
Shasur

 

[filo666]

Thanks, exactly what I was looking for.

could you give it a check to my other post at top?

Thanks