Algunas empresas utilizan archivos de Excel a través de redes intranet para todo su personal para tener acceso a cierta información y los informes automatizados. Esto generalmente significa que este tipo de archivo debe ser unsavable por el personal para mantener un cierto grado de precisión y formato.
Sin alterar el menú de la aplicación para sacar la opción de guardar, un archivo puede protegerse de ahorro accidental mediante código VBA dentro para evitar ejecutar guardar o guardar como comandos. Todo lo que necesita hacer es insertar el siguiente código VBA en la sección de ThisWorkbook en explorador de proyectos:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, CANCEL As Boolean)
A = MsgBox ("No se puede guardar este archivo!", vbOKOnly)
Application.DisplayAlerts = False
Application.ActiveWorkbook.Close falso
End Sub
Este código funciona alertando el usuario que quiere guardar el archivo diciéndole que se trata de un tipo de unsaveable de archivo de Excel y cierre el archivo para protegerlo.
Limitación de la solución unsaveable
Hacer archivo de Excel unsaveable por este método no garantiza el éxito como el código de VBA puede pausarse de ejecución usando Ctrl + pausa (Break) y en modo de pausa todas las funciones de aplicaciones de Excel trabajan incluyendo guardar.
Una solución más viable es establecer el archivo como de sólo lectura en el servidor y de esta manera no se puede actualizar.
¡Disfrute!
Por favor deje a continuación un comentario, por lo que entiendo si el artículo fue útil o tengo que actualizarlo u ofrecer más detalles.