VBA to lock cells on every sheet in workbook

[Reezen]

I've used a few examples of VBA scripts available online to achieve what I have so far below. It works great on just the sheet the macro button is located on. I would like to edit this to go through and repeat the cell locking procedure on each sheet in the workbook is there an easy change that will do that? Apologies, still learning how VBA works.

Please Login or Register  to view this content.

[Reezen]

I tried messing with it more, and I get this error (note, the Unprotectall() is working fine to unlock each sheet.

Also to note, I do not want to password protect these sheets, just keep the formulas and data from being edited unknowingly by the end user.

Please Login or Register  to view this content.

protectError.JPG

[Logit]

.
Try this :

Please Login or Register  to view this content.

[Reezen]

I'm still getting an error with the changes. It does look like a different message for the 1004 error this time though. any thoughts?

lockerror.JPG

[Reezen]

I changed to adding the color locking macro button to all sheets that will need it and now just lock cells then use a global protect / unprotect macro. I appreciate the help, all set now.