run Workbooks(1).Protect twice and the workbook will be unlocked

[lezawang]

Hi
I wrote the code below then inserted Control Button in my sheet to run the code. When I clicked on the button first time, it did work, right clicked on the sheet and everything was grayed out, can not copy, rename, move etc. so far so good but then when I clicked on the button again to run the code again, I was so surprised to find out everything was unlocked! I can copy, rename, etc. Why is that? if that is the case why we have Workbooks(1).unprotect, thank you

Sub test2()
Workbooks(1).Protect
End Sub

 

[sericom]

Try this, it should stop the toggle effect

Workbooks(1).Protect , True