Remove and apply password when running a macro

[Coppa]

I have a password protect sheet, but want to give the user the option to run a macro, so i would like to build into the macro the password upfront to remove it, then run the macro, and then reapply the password. It is being applied on multiple sheets.

The first part works, where the password is removed, but the macro doesn't runs, and nor does it won't put the password back on. Please help

Dim wSheet As Worksheet
For Each wSheet In Worksheets
wSheet.Unprotect Password:="1234"
Next wSheet

MACRO (it works perfectly before doing the password stuff)


For Each wSheet In Worksheets
wSheet.Protect Password:="1234"
Next wSheet

End Sub

 

[pedie]

It works perfect for me.

[/FONT]
[FONT=Courier New]Option Explicit[/FONT]
[FONT=Courier New]Sub Protect()
Dim wSheet As Worksheet[/FONT]
[FONT=Courier New]For Each wSheet In Worksheets[/FONT]
[FONT=Courier New]wSheet.Unprotect Password:="1234"[/FONT]
[FONT=Courier New]Next wSheet[/FONT]
[FONT=Courier New]End Sub
Sub Unprotect()
Dim wSheet As Worksheet
For Each wSheet In Worksheets
wSheet.Protect Password:="1234"
Next wSheet[/FONT]
[FONT=Courier New]End Sub

what error are you receiving?