Como Inhabilitar Guardar y Permitir Guardar Como en Libro Excel





El ejemplo que se presenta permite inhabilitar el comando GUARDAR de Excel y habilitar Guardar Como, esto es útil cuando se tiene una plantilla maestra y no se desea que se modifique, pero si que se puedan guardar los datos.

Este ejemplo se incluye en la saga de vídeos relacionados con la modificación del Menu de Excel, Ribbon o Cinta de Opciones, no es necesario modificar la codificación XML como en otros casos, solamente con un para de códigos de VBA se puede lograr que el Libro de Excel solo permita GUARDAR COMO.

Descarga el ejemplo en forma gratuita sin ninguna restricción, el código se puede adaptar a cada necesidad, Aporta por favor para sostener el sitio si está dentro de tus posibilidades, desde ya muchas gracias.

Recomiendo leer un excelente libro sobre Excel que te ayudará operar las planillas u hojas de cálculo, haz click acá, si quieres aprender sobre Excel, en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet.

  

El vídeo verás la macro en acción con una explicación más detallada de su codificación y funcionamiento; recibe las últimas macros subidas suscribiendo a nuestra web desde la parte superior derecha de la página ingresando tu mail y a nuestro canal de You Tube para recibir en tu correo vídeos explicativos sobre macros interesantes, como  por ejemplo Recorre fila buscando y comparando datos de dos columnas en hojas distintasbuscar en listbox mientras escribes en textbox, como crear una factura o sale invoice y grabar guardar PDF XLS y enviar por mail, trabajando con filas, celdas, columnas, rangos y muchos ejemplos más.








 



La macro es extremadamente sencilla, básicamente impide que el archivo de Excel se guarde, la única forma de guardar los datos es mediante guardar como asignándole otro nombre al archivo que se nuevo que se crea al guardar como.

La linea de comando que permite realizar lo mencionado en el ejemplo es la siguiente:

If SaveAsUI = False Then MsgBox "Comando Inhabilitado no es posible guardar el libro !!!", vbCritical + vbOKOnly, "INFRACCION DE USO !!!": Cancel = True

Esta línea de comando se debe agregar en ThisWorkbook en el evento "BeforeSave" del libro de Excel, para una más fácil comprensión, sugiero ver vídeo tutorial.


⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛
Quizá sea de utilidad también

Como pasar datos de un listbox a otro lixtbox con Enter


Como crear una colección de datos unicos

Como contar celdas vacias

⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛



⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛

Es preciso destacar que si se intenta modificar y adaptar a las necesidades de cada uno, se comente la linea de comando, es decir se le ponga un apostrofe ( ' ) delante del " ' If Save" de esta manera VBA interpreta lo escrito como un comentario y no un código.

Si no hacemos lo expresado en el párrafo anterior la macro no dejará guardar el libro, por ello primero se debe guardar y depurar el código del libro que se adaptó una vez que esté todo bien, guardar el archivo, luego se debe deshabilitar las macros para poder abrir el libro sin que se ejecuten las macros de esa forma podemos luego descomentar (sacar el apostrofe) la línea de comando que evita que se guarde el libro, guardar el libro y volver a habilitar las macros, de esa forma el código volverá a ser funcional y cuando se abra el libro de nuevo la macro tendrá en cuenta ese código y no permitirá guardar.

Para deshabilitar las macros temporalmente se debe ir a ARCHIVO luego a OPCIONES, posteriormente a CENTROS DE CONFIANZA,  luego a CONFIGURACIÓN DE CENTROS DE CONFIANZA, luego a CONFIGURACIÓN DE MACROS y seleccionar DESHABILITAR TODAS LAS MACROS si se requiere habilitar se debe hacer lo mismo y elegir HABILITAR TODAS LAS MACROS.

A continuación se muestra la codificación completa que contiene el ejemplo llamado Como Inhabilitar Guardar y Permitir Guardar Como en un Libro de Excel.

Código que se inserta en ThisWorkbook

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = False Then MsgBox "Comando Inhabilitado no es posible guardar el libro !!!", vbCritical + vbOKOnly, "INFRACCION DE USO !!!": Cancel = True
End Sub


Código que se inserta en un módulo

Sub guardar()
ActiveWorkbook.Save
End Sub


⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛


Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.


If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends