Password en archivos de Office
Resulta que quiero introducir mediante VBA un password al inicio de un archivo .xls, .doc o .ppt
Al entrar por ejemplo a excel, hago lo siguiente:
1 - Alt+F11 Para entrar en VBA
2 - Creo un UserForm1
3 - En ThisWorkBook añado:
UserForm1.Show
4 - En el proyecto añado:
Unload UserForm1
5 - En el formulario UserForm he creado un TextBox con:
Private Sub TextBox1_Change()
If Me.TextBox1 <> "007" Then
MsgBox "Contraseña incorrecta, inténtelo de nuevo"
Else
DoCmd.Close
End If
End Sub
Según esto al introducir 007 se tendría que cerrar el formulario del password o ponerme el mensaje de más arriba, ¿no?
Pues hay problemas, me da error en DoCmd.Close y no se porqué.
¿Podrías ayudarme?
Al entrar por ejemplo a excel, hago lo siguiente:
1 - Alt+F11 Para entrar en VBA
2 - Creo un UserForm1
3 - En ThisWorkBook añado:
UserForm1.Show
4 - En el proyecto añado:
Unload UserForm1
5 - En el formulario UserForm he creado un TextBox con:
Private Sub TextBox1_Change()
If Me.TextBox1 <> "007" Then
MsgBox "Contraseña incorrecta, inténtelo de nuevo"
Else
DoCmd.Close
End If
End Sub
Según esto al introducir 007 se tendría que cerrar el formulario del password o ponerme el mensaje de más arriba, ¿no?
Pues hay problemas, me da error en DoCmd.Close y no se porqué.
¿Podrías ayudarme?
1 Respuesta
Respuesta de vbgopher
1
Yo te aconsejo que agregues un botón para aceptar ejemplo!
Private Sub CommandButton1_Click()
If Me.TextBox1 = "007" Then
MsgBox "ok"
Else
Excel.Application.Quit
End If
End Sub
Private Sub CommandButton1_Click()
If Me.TextBox1 = "007" Then
MsgBox "ok"
Else
Excel.Application.Quit
End If
End Sub
Una alternativa excelente. Así da gusto.
Además he edpurado un poquitín y he añadido después del MsgBox "ok", en una linea nueva Unload UserForm1 para que ademas de ponerme el mensaje me cierre la ventana de seguridad.
Muchísimas gracias.
Además he edpurado un poquitín y he añadido después del MsgBox "ok", en una linea nueva Unload UserForm1 para que ademas de ponerme el mensaje me cierre la ventana de seguridad.
Muchísimas gracias.
