¿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
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 Ahorra 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 from the Guardar como tipo lista desplegable, y finalmente haga clic en el Ahorra
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 Ahorra 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 Ahorra 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...
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-2019 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Características completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
Thanks for your reply. Highly appreciated. I want you to guide me how to send a saved file to a friend who can open my file but only read or edit it, but can not not save the file in any folder. 1. For instance I have a saved file, which I want to send to "A" He opens the saved file but after opening he reads or makes any changes in my file, he can not save it at his end in any folder. 2. I have got code form internet which disallows to save. But in this case when I copy and paste the code, the file does not save. So I can not send the file to him 3. How can I send the file to Party "A" with a saved code in the hope he can not save the file.
Hello I am a fan of this website...I used to try the code. It works flawlessly. But it disables "Save option" too. I am not able to save the Excel sheet. What I need is to disable only the feature "Save As" I read the other user's comments too. ThisWorkbookSaved = True is not working for me as well. Could you please help? Thanks a lot for all your contributions.
Just to help whoever else reads this article looking for help with suppressing the save button I thought I'd place the answer down here as "Crystal" doesn't seem to be answering the question....
If you place the workbook in "Design Mode" and then hit SAVE it should work.
As TEE posted, how do we save the file with the macro in? It is not there when I reopen. I am also now getting a bug on the ThisWorkbookSaved = True bit.
The update to the code adds a sheet, but never actually checks whether there is a TRUE/FALSE value in that sheet. The update fixes nothing, it just creates a useless sheet within the workbook.
I think you forgot to do a check whether there is a TRUE/FALSE value on that sheet.
