Algumas empresas usam arquivos do Excel através de redes de intranet para todos os seus funcionários para ter acesso a certas informações e relatórios automatizados. Isso geralmente significa que este tipo de arquivo deve ser unsavable pela equipe a fim de preservar um certo grau de precisão e formato.
Sem alterar o menu do aplicativo para tirar a opção Salvar, um arquivo pode ser protegido de poupança acidental utilizando código VBA dentro para impedir a execução do Salvar ou Salvar como comandos. Tudo que você precisa fazer é inserir o seguinte código VBA para a seção ThisWorkbook no Project Explorer:
Private Sub Workbook_BeforeSave (ByVal SaveAsUI As Boolean, Cancel As Boolean)
A = MsgBox ( "Este arquivo não pode ser salvo !!!", vbOKOnly)
Application.DisplayAlerts = False
Application.ActiveWorkbook.Close False
End Sub
Esse código funciona, alertando o usuário que quer salvar o arquivo dizendo-lhe que este é um tipo de unsaveable de arquivo do Excel e, em seguida, feche o arquivo para protegê-lo.
Limitação da solução unsaveable
Fazendo arquivo unsaveable por este método Excel não garante o sucesso como o código de VBA pode ser pausado de execução usando o Ctrl + Pause (Pausa) e no modo de pausa todo o Excel aplicativos funções de trabalho, incluindo Save.
Uma solução mais viável é a de definir o arquivo como somente leitura no servidor e, desta forma ninguém pode atualizá-lo.
Apreciar!
Por favor, deixe um comentário abaixo, para que eu possa entender se o artigo era útil ou eu tenho que atualizá-lo ou oferecer mais detalhes.