Unprotect and Protect all sheets

[Duncan Butterworth]

Hi,
I currently have ASAP Utilities installed.
I have recorded a macro that runs perfectly if I have all the sheets in the workbook unprotected.
I would like to add to the beginning of the macro a piece of code that will pass the password for the sheets (Password) to the asap utility that unprotects all sheets.
I would then like to then like to protect all sheets with the same password save and close the workbook.
Is this possible and am I posting this in the right place.
Regards,
Duncan

 

[AlphaFrog]

I''m not sure how to pass a password to ASAP Utilities.

Making your own code to Unprotect\Protect all sheets is fairly easy as illustrated below. Add the Unprotect part at the start of your macro and the Protect part at the end of your macro.

[COLOR=darkblue]Dim[/COLOR] ws [COLOR=darkblue]As[/COLOR] Worksheet


[COLOR=green]'Unprotect all worksheets[/COLOR]
[COLOR=darkblue]For[/COLOR] [COLOR=darkblue]Each[/COLOR] ws [COLOR=darkblue]In[/COLOR] Worksheets
    ws.Unprotect Password:="Secret"
[COLOR=darkblue]Next[/COLOR] ws


[COLOR=green]'Protect all worksheets[/COLOR]
[COLOR=darkblue]For[/COLOR] [COLOR=darkblue]Each[/COLOR] ws [COLOR=darkblue]In[/COLOR] Worksheets
    ws.Protect Password:="Secret"
[COLOR=darkblue]Next[/COLOR] ws