protect/unprotect all sheets
yes
"filo666" wrote:
still there????
"filo666" wrote:
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" wrote:
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.
|