Jump to content

Recommended Posts

Alguien me puede decir porque no desbloquea mi hoja????

Sub DESPROTEGER()
If InputBox("Introdusca la contraseña", "Desbloquear") = "123" Then
Sheets(“INV.FISICO”).Select ActiveSheet.Unprotect(123)
Else
MsgBox "Contraseña Errónea" & vbTab, vbCritical, "Unlock"
End If
End Sub

Share this post


Link to post
Share on other sites

Te dejo 2 macros, la tuya corregida y otra que te vale para cualquier contraseña.

Sub DESPROTEGER()
If InputBox("Introdusca la contraseña", "Desbloquear") = "contraseña" Then
   Sheets("INV.FISICO").Select:
   ActiveSheet.Unprotect "contraseña"
Else
   MsgBox "Contraseña Errónea" & vbTab, vbCritical, "Unlock"
End If
End Sub
Sub DESPROTEGER_II()
On Error GoTo ContraseñaErrónea
Sheets("INV.FISICO").Select:
ActiveSheet.Unprotect InputBox("Introduzca la contraseña", "Desbloquear")
Exit Sub
'----------------
ContraseñaErrónea:
   MsgBox "Contraseña Errónea" & vbTab, vbCritical, "Unlock"
End Sub

 

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 5112 personas - Aprender Excel - Total: 4.7 / 5