Há momentos em que o você desenvolve uma planilha para alguns usuários e você quer impedir que eles façam alguma alteração.
Uma maneira simples é bloquear o botão Salvar do Excel.
Para isto você precisa inserir um código VBA para que ele passe bloquear.
Fizemos algumas modificações, e o código abaixo permite que a pessoa salve desde que tenha a senha.
Vamos começar;
Abra o Excel, aperte ALT+F11 para abrir a janela de macros
Vá em em projetos, ao lado esquerdo da tela.
Dentro do projeto inclua o código abaixo dentro de (EstaPastaDeTrabalho)
Assim que a pessoa tentar salvar, uma Popup aparece informando ao usuário.
Código VBA
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Senha As String
Senha = "123"
If InputBox("Digite a senha para Salvar, ou em branco apenas fecha.", "Proteção") = Senha Then
Exit Sub
Else
If SaveAsUI = True Then
MsgBox "Não é permitido 'Salvar Como'"
Cancel = True
Exit Sub
End If
If SaveAsUI = False Then
MsgBox "Não é permitido 'Salvar'"
Cancel = True
Exit Sub
End If
End If
End Sub
0 Comentários