¿Cómo deshabilitar o no permitir las opciones Guardar y Guardar como en Excel?
Normalmente, cuando hacemos clic en la función Guardar o Guardar como, nuestros datos modificados en el libro de trabajo se guardarán a la vez. Pero, a veces, otros usuarios no pueden modificar ni guardar su archivo de Excel cuando lo leen. Este artículo proporciona el método VBA para deshabilitar las opciones Guardar y Guardar como en Excel.
Deshabilite las opciones Guardar y Guardar como con código VBA
Deshabilite las opciones Guardar y Guardar como con código VBA
Puede ejecutar el siguiente código VBA para deshabilitar las opciones Guardar y Guardar como en Excel.
1. En el libro de trabajo, debe deshabilitar las funciones Guardar y Guardar como, presione otro + F11 teclas simultáneamente para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga doble clic ThisWorkbook en la barra izquierda, copie y pegue el siguiente VBA 1 en la ventana Código, y luego haga clic en el a Salvar botón. Ver captura de pantalla:
VBA 1: deshabilite las opciones Guardar y Guardar como en Excel
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub
3. En la apertura Guardar como ventana, seleccione una carpeta para guardar el libro de trabajo, nombre el libro de trabajo como necesite y seleccione Libro de Excel habilitado para macros de Guardar como tipo lista desplegable, y finalmente haga clic en el a Salvar
4. Ahora copie y pegue el siguiente VBA 2 en el ThisWorkbook ventana de código. Ver captura de pantalla.
VBA 2: deshabilite las opciones Guardar y Guardar como en Excel
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim xName As String
xName = "CancelBeforeSave"
If Not Evaluate("=ISREF('" & xName & "'!A1)") Then
Sheets.Add(after:=Worksheets(Worksheets.count)).Name = xName & ""
Sheets(xName & "").Move after:=Worksheets(Worksheets.count)
Sheets(xName & "").Visible = False
Exit Sub
End If
Cancel = True
End Sub
5. Haga clic en el a Salvar para guardar el código y luego cerrar el libro.
El libro de trabajo se ha guardado como un libro de Excel habilitado para macros con la a Salvar y Guardar como funciones inhabilitadas.
Nota:: Parece que los cambios se guardan en la hoja de trabajo actual cada vez que modifica y guarda el libro. Pero después de cerrar y volver a abrir el libro de trabajo, encontrará que los cambios no se pudieron guardar.
Las mejores herramientas de productividad de oficina
Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%
- Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
- Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
- Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
- Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
- Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
- Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
- Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
- Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
- Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
