Como evitar cerrar libros de Excel con VBA

He vuelto!!! y con muchos mas trucos y tips que he aprendido en estos últimos meses. Entre ellos me preguntaron como evitar cerrar un libro de Excel desde un macros, y aquí tengo la respuesta.

Es muy sencillo, allí van los pasos:


Paso 1: Primero entro al Visual Basic for Application (Con las teclas ALT + F11).


Paso 2: Inserto un módulo (Menú Insertar // Módulo) y copio el siguiente código:

Public Permiso As Boolean

Sub Cierre()
  Call DamePermiso

  ActiveWorkbook.Save
  ActiveWorkbook.Close
End Sub

Public Sub DamePermiso()
  Permiso = True
End Sub

Paso 3: En el objeto ThisWorkbook copio el siguiente código:


Private Sub Workbook_BeforeClose(Cancel As Boolean)

If Permiso <> True Then
    MsgBox “No tiene permiso para cerrar”
    Cancel = True
End If

End Sub

Paso 4. Cierro el Visual Basic.

Paso 5. En una hoja de Excel agrego un objeto o una forma y le asigno la Macro Cierre
Ahora cada vez que cierren el archivo desde la esquina superior derecha, o desde el menú Archivo // Cerrar;  les saldrá el siguiente mensaje:
Solo si hacen clic en el botón que tienen asignado la macros Cierre , el archivo libro se cerrará y guardará automáticamente..

Espero que les sirva.

Ing. Enrique Neciosup Morales

Share this Post!

About the Author : Enrique Neciosup

Imagen de perfil de Enrique Neciosup

Send a Comment

Your email address will not be published.

0
Connecting
Please wait...
Enviar Mensaje

Sorry, we aren't online at the moment. Leave a message.

* Su Nombre
* Correo Electrónico
* Describa su consulta
Iniciar Chat

Need more help? Save time by starting your support request online.

* Su Nombre
* Correo Electrónico
* Describa su consulta
¡Chat Online!
Feedback

Help us help you better! Feel free to leave us any additional feedback.

¿Como calificaría nuestra atención?