Force all sheets to be protected in a workbook

Hi, I use this code on sheet1 activated by a shape to protect all sheets in the workbook, but sometimes I might unprotect sheet6 I am working on and most of the time forget to protect it when I have finished. When I activate the code it will just toggle the protection on or off, i.e all sheets will unlock but sheet6 would then be locked and vise versa, when I activate the code to the locked state I need it to force all sheet to be protected if possible please. Thanks

Please Login or Register  to view this content.

Hi A440,

Try:

Please Login or Register  to view this content.

Lewis