Auto-Protect multiple Sheets on closing?

[monetoile]

I tried to use this code by adding lines of the same code and change it to the 15 sheets I have in one workbook, but it did not work. I had used the information from another user found here http://www.excelforum.com/excel-prog...74#post3296074 but it did not work for my multiple sheets. Could you please help?

An example of what I did below (but I created the code for 15 sheets):

Please Login or Register  to view this content.

[AndyLitch]

Your code is ok - what you'll probably find is that some of the worksheets are already password protected.

You can use On Error Resume Next to get by that or you can test for protection and make it conditional

If ThisWorkbook.Worksheets("sheet1").ProtectContents = False Then ThisWorkbook.worksheets("sheet1").Protect Password:="ABC1"

[monetoile]

Thanks Andy. Should the On Error Resume Next be placed before and after the initial command? Sorry, I am a little rusty with these codes