"PROTEGER" el cerrar un libro de excel
Buenos días, gracias a la ayuda de ustedes he podido realizar "pequeñas" macros que están siendo utilizadas por varios compañeros de mi trabajo, pero tengo el inconveniente que son personas de cierta edad, y al tener que minimizar muchas veces por estar utilizando varias aplicaciones. Me cierran los libros de excel. Les he puesto accesos directos en el escritorio, unos lo "ven", pero no lo presionan otros lo presionan y no habilitan las macros. El nivel de macros no lo puedo subir por razones de empresa, en fin, que por unas razones u otras, los cierran y se ponen nervisosos. La edad, supongo y el desconocimiento creen que se borran, etc. Bueno quiero quitarles esta inquietud, con vuestra ayuda.
Lo que necesito es que si intentan cerrar el fichero les salga algo así
Intenta cerrar fichero, introduzca clave, o pulse cancelar. Y lógicamente si introducen la clave se cierre.
Muchas gracias de antemano por toda vuestra ayuda.
Saludos desde las Islas Canarias.
Lo que necesito es que si intentan cerrar el fichero les salga algo así
Intenta cerrar fichero, introduzca clave, o pulse cancelar. Y lógicamente si introducen la clave se cierre.
Muchas gracias de antemano por toda vuestra ayuda.
Saludos desde las Islas Canarias.
1 respuesta
Respuesta de Elsa Matilde
1
La siguiente rutina se ejecuta al tratar de cerrar el libro, lo que no contempla es qué hacer al cierre: si guardarlos o no... eso lo decidirás
Se coloca en el objeto ThisWorkbook:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
clave = InputBox("Está intentando cerrar el libro. Introduce la clave o cancela")
'se controla que sea clave correcta o si se canceló
If clave <> "profanador" Then
MsgBox "Clave incorrecta, el libro no se cerrará"
Cancel = True
ElseIf clave = "" Then
MsgBox "Cancelado, el libro no se cerrará"
Exit Sub
End If
'si llegó aquí se cerrará, contemplar el guardado o no
End Sub
Se coloca en el objeto ThisWorkbook:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
clave = InputBox("Está intentando cerrar el libro. Introduce la clave o cancela")
'se controla que sea clave correcta o si se canceló
If clave <> "profanador" Then
MsgBox "Clave incorrecta, el libro no se cerrará"
Cancel = True
ElseIf clave = "" Then
MsgBox "Cancelado, el libro no se cerrará"
Exit Sub
End If
'si llegó aquí se cerrará, contemplar el guardado o no
End Sub
