protect/unprotect all sheets

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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.
 
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
 
Ok, and the code to do this?
roos

filo666 said:
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
Click to expand...
 
still there????

filo666 said:
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
Click to expand...
 
Back
Top