Macro to Run if Sheet is Unprotected

[tom_blamire]

Hi,

I need to know if it is possible for a macro to run if a specific worksheet is unprotected?
For example, if someone takes off the protection to my costings sheet either through VBA or finding out the password, i want Excel to run a certain macro if possible?


Thanks in advance

Tom

 

[wrightyrx7]

Hi there,

Might be an easier way, but if you put this in the code for each sheet it should work.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


If ActiveSheet.ProtectContents = False Then MsgBox ("Worksheet Unprotected")


End Sub

Regards
Chris

 

[tom_blamire]

Chris,

I owe you a beer

Thanks

Tom

 

[wrightyrx7]

Hahaha if I ever go to London I'm going to hold you to that.

Glad I could help.

Regards
Chris