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.

Arquivo Excel Unsaveable

 

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.

Salve 

Salve 

 

Write a Reply or Comment

Your email address will not be published.

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.