Anónimo
Modo Display Full Screen con contraseña.
Estoy utilizando la siguiente macro para que mi reporte se abra en modo pantalla completa, y si quiero salir del modo pantalla completa simplemente apretando la tecla ESC aparecen los menús y la cinta de excel con la barra de formulas y los encabezados de filas y columna.
Lo que quiero agregar es que si apretó ESC me pida una contraseña para salir del modo pantalla completa, y ahí recién que aparezca todo lo anteriormente nombrado.
Muchas gracias desde ya,
Saludos, Christian
Private Sub Workbook_Activate()
Application.DisplayFullScreen = True
End Sub
-------------------------------------------------------------
Private Sub Workbook_Deactivate()
Application.DisplayFullScreen = False
End Sub
1 respuesta
Te anticipo que de Excel no tengo ni idea, pero por si te puede dar una idea. Como el valor en ASCII de la tecla Escape es 27, podrías poner algo como
Private Sub Report_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 27 Then
If InputBox("Por favor, escriba la contraseña", "muchas gracias") = 1234 Then
MsgBox "Has acertado, por eso me cierro", vbOKOnly + vbExclamation, "Hasta mañana"
DoCmd.Close acReport, "clientes"
End If
End If
End Sub
Quizá me he pasado un poco con la retórica. En mi caso lo hago en un informe de Access. Es decir, que si pulsas la tecla Escape, te aparece lo del inputbox, etc...
