Anónimo
Proteger libro
Hola Sandry por fa necesito que me ayudes con una macro que me pida una contraseña para poder abrir un libro. Tengo excel 2007
De antemano te agradezco mucho!
Chao!
De antemano te agradezco mucho!
Chao!
1 Respuesta
Respuesta de sandra155
1
OK! Lo que puedas hacer por para ayudarme, me servirá de mucho.
Gracias:!
Gracias:!
Lo único que he encontrado es la protección de excel que viene por defecto pero con macros no se como hacerlo
Que encontré otra cosa
Private Sub Workbook_Open()
Dim nombre As String
Dim paso2 As Boolean
nombre = UCase(InputBox("Nombre de Usuario"))
paso2 = False
Select Case nombre
Case "JAVIER" ' ESTE ES EL NOMBRE DEL USUARIO LO CAMBIAS
If UCase(InputBox("Introduce tu clave de acceso")) = "CATAMARAN" Then paso2 = True
Case "JUAN"
If UCase(InputBox("Introduce tu clave de acceso")) = "125ERT" Then paso2 = True
End Select
If paso2 = False Then ThisWorkbook.Close savechanges:=False
End Sub
CATAMARAN es la contraseña para el primer usuario
Private Sub Workbook_Open()
Dim nombre As String
Dim paso2 As Boolean
nombre = UCase(InputBox("Nombre de Usuario"))
paso2 = False
Select Case nombre
Case "JAVIER" ' ESTE ES EL NOMBRE DEL USUARIO LO CAMBIAS
If UCase(InputBox("Introduce tu clave de acceso")) = "CATAMARAN" Then paso2 = True
Case "JUAN"
If UCase(InputBox("Introduce tu clave de acceso")) = "125ERT" Then paso2 = True
End Select
If paso2 = False Then ThisWorkbook.Close savechanges:=False
End Sub
CATAMARAN es la contraseña para el primer usuario