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.
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.
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
ActiveWorkbook.Save
End Sub
.
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