Proteger varias hojas con confirmación de la contraseña
Estoy utilizando un código para proteger varias hojas, mediante un UserForm, con un TextBox y un CommandButton. Necesitaría introducir, en el mismo, alguna variante que me solicite la confirmación de la contraseña para la protección; ya que, de lo contrario, si me equivoco al introducir una contraseña, no hay manera de saber cual es la que he puesto.
El código es el siguiente:
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
Gracias.
Saludos
1 Respuesta
Prueba el siguiente código+
Private Sub CommandButton1_Click()
Dim WSheet As Worksheet
If TextBox1.Value <> TextBox2.Value Then
MsgBox "Contraseñas no concuerdan"
Exit Sub
End If
On Error GoTo controlerror
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
Exit Sub
controlerror:
MsgBox ("Contraseña invalida")
End Sub
