Skip to main content

Como desativar ou não permitir as opções Salvar e Salvar Como no Excel?

Author: Siluvia Last Modified: 2025-06-04

Normalmente, ao clicar em Salvar ou Salvar Como, os dados modificados na pasta de trabalho serão salvos imediatamente. No entanto, às vezes, seu arquivo do Excel não pode ser modificado e salvo por outros usuários quando eles estão lendo o arquivo. Este artigo fornece um método VBA para desativar as opções Salvar e Salvar Como no Excel.

Desativar as opções Salvar e Salvar Como com código VBA


Desativar as opções Salvar e Salvar Como com código VBA

Você pode executar o seguinte código VBA para desativar as opções Salvar e Salvar Como no Excel.

1. Na pasta de trabalho onde você precisa desativar as funções Salvar e Salvar Como, pressione simultaneamente as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Na janela Microsoft Visual Basic for Applications, clique duas vezes em ThisWorkbook na barra à esquerda, copie e cole o VBA 1 abaixo na janela Código e, em seguida, clique no botão Salvar. Veja a captura de tela:

VBA 1: Desativar as opções Salvar e Salvar Como no Excel

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ThisWorkbook.Saved = True
End Sub

copy and paste the code into ThisWorkbook module

3. Na janela Salvar Como que se abre, selecione uma pasta para salvar a pasta de trabalho, nomeie a pasta de trabalho conforme necessário e escolha Pasta de Trabalho Habilitada para Macro do Excel na lista suspensa Especificar Formato de Salvamento, e finalmente clique no botão Salvar.

select a folder to save the workbook

4. Agora copie e cole o VBA 2 abaixo na janela de código ThisWorkbook. Veja a captura de tela.

VBA 2: Desativar as opções Salvar e Salvar Como no 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

copy and paste the below VBA 2 into the ThisWorkbook module

5. Clique no botão Salvar para salvar o código e, em seguida, feche a pasta de trabalho.

A pasta de trabalho foi salva como uma Pasta de Trabalho Habilitada para Macro do Excel com as funções Salvar e Salvar Como desativadas.

Observação: Pode parecer que as alterações são salvas na planilha atual toda vez que você modifica e salva a pasta de trabalho. Mas, após fechar e reabrir a pasta de trabalho, você verá que as alterações não foram salvas.

a screenshot of kutools for excel ai

Desbloqueie a Magia do Excel com o Kutools AI

  • Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
  • Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
  • Codificação VBA: Escreva e implemente código VBA sem esforço.
  • Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
  • Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.
Potencialize suas capacidades no Excel com ferramentas alimentadas por IA. Baixe Agora e experimente uma eficiência como nunca antes!

Melhores Ferramentas de Produtividade para Office

🤖 Assistente AI do KUTOOLS: Revolucione a análise de dados com base em: Execução Inteligente | Gerar Código | Criar Fórmulas Personalizadas | Analisar Dados e Gerar Gráficos | Invocar Funções Aprimoradas
Recursos Populares: Encontrar, Destacar ou Marcar Duplicatas | Excluir Linhas em Branco | Combinar Colunas ou Endereço sem Perder Dados | Arredondar...
Super PROC: PROC com Múltiplos Critérios | PROC com Múltiplos Valores | Procura em várias planilhas | Correspondência Fuzzy...
Lista Suspensa Avançada: Crie rapidamente uma Lista Suspensa | Lista Suspensa Dependente | Lista Suspensa com Múltipla Seleção...
Gerenciador de Colunas: Adicionar um Número Específico de Colunas | Mover Colunas | Alternar Estado de Visibilidade das Colunas Ocultas | Comparar Intervalo & Colunas...
Recursos em Destaque: Grade de foco | Visualização de Design | Barra de fórmulas aprimorada | Gerenciador de Pasta de trabalho & Planilha | Biblioteca de AutoTexto | Selecionador de Data | Mesclar Dados | Criptografar/Descriptografar Células | Enviar Email por Lista | Super Filtro | Filtro Especial (filtrar negrito/itálico/tachado...)...
Top15 Conjuntos de Ferramentas:12 Ferramentas de Texto (Adicionar Texto, Excluir Caracteres Específicos, ...) | Mais de50 Tipos de Gráficos (Gráfico de Gantt, ...) | Mais de40 Fórmulas Práticas (Calcular a idade com base na data de nascimento, ...) |19 Ferramentas de Inserção (Inserir Código QR, Inserir Imagem a partir do Caminho, ...) |12 Ferramentas de Conversão (Converter em Palavras, Conversão de Moeda, ...) |7 Ferramentas de Mesclar & Dividir (Mesclar Linhas Avançado, Dividir Células, ...) | ... e muito mais

Potencialize suas habilidades no Excel com o Kutools para Excel e experimente uma eficiência sem igual. O Kutools para Excel oferece mais de300 recursos avançados para aumentar sua produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...


O Office Tab traz interface com abas para o Office e facilita muito o seu trabalho

  • Habilite a edição e leitura com abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas abas na mesma janela, em vez de abrir novas janelas.
  • Aumente sua produtividade em50% e reduza centenas de cliques do mouse todos os dias!