Note: The other languages of the website are Google-translated. Back to English
Iniciar sesión  \/ 
x
or
x
Registrarse  \/ 
x

or

¿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 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...
  • 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-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.
pestaña kte 201905

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!
officetab parte inferior
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Joe · 8 months ago
    Please, I do not want someone to copy or save my excel file, how can I remove save or save as?

  • To post as a guest, your comment is unpublished.
    Madhusudhan · 9 months ago
    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.
  • To post as a guest, your comment is unpublished.
    I.C. Problems · 1 years ago
    @crystal 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.
  • To post as a guest, your comment is unpublished.
    crystal · 1 years ago
    @Naomi Good day,
    Which Excel version do you use?
  • To post as a guest, your comment is unpublished.
    Naomi · 1 years ago
    I keep getting debug error
  • To post as a guest, your comment is unpublished.
    crystal · 2 years ago
    @jen Hi jen,
    The article has been updated again with the problem solving. Please have a try. Thank you for your comment.
  • To post as a guest, your comment is unpublished.
    jen · 2 years ago
    @crystal dear
    the article is not updated. it doesnt work
  • To post as a guest, your comment is unpublished.
    crystal · 3 years ago
    @Rogue Dear Rogue,
    I miss the point of the problem. Thank you so much for your help and sharing.

    Best Regards
  • To post as a guest, your comment is unpublished.
    Rogue · 3 years ago
    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.
  • To post as a guest, your comment is unpublished.
    crystal · 3 years ago
    @What they said Hi,
    Thank you for your question. The article is updated to support saving the code into workbook now.
  • To post as a guest, your comment is unpublished.
    crystal · 3 years ago
    @Les Battersthee Dear Les,
    Thank you for your question. The article is updated to support saving the code into workbook now.
  • To post as a guest, your comment is unpublished.
    crystal · 3 years ago
    @tee Dear tee,
    Thank you for your question. The article is updated to support saving the code into workbook now.
  • To post as a guest, your comment is unpublished.
    What they said · 3 years ago
    As TEE and LES posted, how do we save the file with the macro in?
  • To post as a guest, your comment is unpublished.
    Les Battersthee · 3 years ago
    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.
  • To post as a guest, your comment is unpublished.
    tee · 4 years ago
    this doesn't work. I can't save the code it's gone once I reopen the file. How do I save the code?