protect/unprotect all sheets

[roos]

I use the following code to protect/unprotect all sheets in a excel file:

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

It works well, but I would like that when I protect the sheets it will ask
twice for the password. Like excel ask normally when you protect sheet for
sheet.(tools, protection, protect sheet)
Who knows the code for this.

 

[filo666]

easy, in this line:
Else
wSheet.Protect Password:=TextBox1.Text
End If

you could add an userform (a new one) that asks the password again, and if
that password is different from textbox1.text then an error msgbox appears
HTH

 

[roos]

Ok, and the code to do this?
roos

easy, in this line:
Else
wSheet.Protect Password:=TextBox1.Text
End If

you could add an userform (a new one) that asks the password again, and if
that password is different from textbox1.text then an error msgbox appears
HTH

 

[filo666]

still there????

easy, in this line:
Else
wSheet.Protect Password:=TextBox1.Text
End If

you could add an userform (a new one) that asks the password again, and if
that password is different from textbox1.text then an error msgbox appears
HTH

 

[roos]

yes

still there????