Protection question

[Sheila Yau]

Hi All,

I have some code to protect a worksheet which works OK.

Sub protect()

strPwd1 = "test"
ActiveSheet.protect (strPwd1)

End Sub

I then adapted this to allow edit objects on a protected worksheet

Sub protect1()

strPwd1 = "test"

ActiveSheet.protect (strPwd1)
ActiveSheet.protect DrawingObjects:=False

End Sub

When I run this a message box "Unprotect Sheet" appears.I can just cancel on this message box but is there a way of adapting the code so the message box doesn't appear?

Thank you for any help

Sheila

 

[VoG]

Hi. Try this

Sub protect1()

strPwd1 = "test"

ActiveSheet.Protect Password:=strPwd1, DrawingObjects:=False

End Sub

 

[Sheila Yau]

Thanks - that's great