Como desativar ou impedir as opções Guardar e Guardar Como no Excel?
Normalmente, ao clicar nas funções **Guardar** ou **Guardar Como**, as alterações efetuadas no livro são guardadas imediatamente. No entanto, há situações em que pretende impedir que outros utilizadores modifiquem ou guardem o seu ficheiro do Excel enquanto o consultam. Este artigo apresenta um método VBA para desativar as opções **Guardar** e **Guardar Como** no Excel.
Desativar as opções Guardar e Guardar Como com código VBA
Desativar as opções Guardar e Guardar Como com código VBA
Pode executar o seguinte código VBA para desativar as opções Guardar e Guardar Como no Excel.
1. No livro onde pretende desativar as funções Guardar e Guardar Como, prima simultaneamente as teclas Alt+F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do Microsoft Visual Basic for Applications, faça duplo clique em EsteLivro na barra esquerda, copie e cole o seguinte código VBA 1 na janela de Código e, em seguida, clique no botão Guardar. Veja a imagem:
Código VBA 1: desativar as opções Guardar e Guardar Como no Excel
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub
3. Na janela Guardar Como que se abre, dê ao livro o nome pretendido, selecione Livro do Excel com Macros Ativadas na lista suspensa Especificar Formato de Salvamento e, finalmente, clique no botão Guardar.
4. Agora, copie e cole o seguinte código VBA 2 na janela de código do EsteLivro. Veja a imagem.
Código VBA 2: desativar as opções Guardar e Guardar 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
5. Clique no botão Guardar para guardar o código e, em seguida, feche o livro.
O livro foi guardado como um Livro do Excel com Macros Ativadas, com as funções Guardar e Guardar Como desativadas.
Nota: As alterações parecem ser guardadas na Planilha Atual sempre que modifica e guarda o livro. No entanto, ao fechar e reabrir o livro, verificará que as alterações não foram guardadas.
Desbloqueie a Magia do Excel com KUTOOLS AI
- Execução Inteligente: Realize operações em células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- fórmulas personalizadas: Crie fórmulas personalizadas para simplificar os seus fluxos de trabalho.
- Programação VBA: Escreva e implemente código VBA com facilidade.
- Interpretação de Fórmulas: Compreenda facilmente fórmulas complexas.
- Tradução de Texto: Elimine barreiras linguísticas nas suas folhas de cálculo.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos