protect/unprotect all sheets

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
"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.

Ok, and the code to do this?
roos

"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.

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.

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.