Protect/Unprotect Password via userform

[Donai]

hi, i have created a userform to unprotect/protect all worksheets in a workbook, so in the userform i have a textbox and a command button, in the userform code i have this, the problem is where do i put the password in this code?


Private Sub CommandButton1_Click()
Dim wSheet As Worksheet
For Each wSheet In Worksheets
If wSheet.ProtectContents = True Then
wSheet.Unprotect Password:=TextBox1.Text
Else
wSheet.Protect Password:=TextBox1.Text
End If
Next wSheet
Unload Me
End Sub


</PRE>


</PRE>

 

[Donai]

Yay, this works mate. Thanks Smitty

Try this:

Private Sub CommandButton1_Click()
Dim wSheet As Worksheet
Dim pword As String
pword = "yada"

If pword <> TextBox1.Text Then
MsgBox "No Pass", vbCancel
Exit Sub
Else:
For Each wSheet In Worksheets
If wSheet.ProtectContents = True Then
wSheet.Unprotect Password:=pword
Else
wSheet.Protect Password:=pword
End If
Next wSheet
End If

Unload Me

End Sub

 

[Tobbes]

Hey,

I'm trying to find a way to use the "ActiveSheet.Unprotect" method. However, if 'Cancel' is clicked or the password is invalid, the macro simply errors. How do you loop the password input prompt or exit the sub?