Macro beforesave

[Mateus Mancebo Machado]

Boa tarde pessoal, 

 

sou relativamente novo no VBA e fui aprendendo e montando códigos com o que lia em foruns. Entretanto estou com dúvida que não consigo solucionar.

 

Fiz uma macro para rodar sempre que o botão "salvar" for apertado. Entretanto, ela so está funcionando quando se colocar para "salvar como". Não consegui encontrar os argumentos que possam mudar. Segue a macro abaixo.

 

OBS: A ideia da macro é que apenas as pessoas que possuem a senha consigam salvar/salvar como qualquer alteração.

 

 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

senhasalvar = "teste"

If SaveAsUI = True Then

 

        resultado = MsgBox("Para salvar o arquivo è necessário permissão. Você tem permissão?", vbYesNo, "SIM")

        If resultado = vbYes Then

        senha = InputBox("Digite a senha abaixo")

            If senha = senhasalvar Then

            Cancel = False

            Else

            MsgBox "Esta senha não confere.", vbCritical, "Atenção"

            Cancel = True

            End If

        Else

        MsgBox "Procure o responsável da área"

        Cancel = True

        

End If

End If

End Sub

[Wendell Menezes]

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim Senha As String, SenhaInput As String

Dim Resultado As VbMsgBoxResult

Senha = "teste"

Resultado = MsgBox("Para salvar o arquivo è necessário permissão. Você tem permissão?", vbQuestion + vbYesNo, "# Pergunta")

If Resultado = vbYes Then

SenhaInput = InputBox("Digite a senha abaixo")

If SenhaInput = Senha Then

Cancel = False

Else

Cancel = True

MsgBox "Esta senha não confere.", vbCritical, "# Erro"

End If

Else

Cancel = True

MsgBox "Procure o responsável da área", vbExclamation, "# Atenção"

End If

End Sub

[Mateus Mancebo Machado]

Deu certo! Muito obrigado. Irei pesquisar mais sobre a questão de definir as variáveis na macro. Se tiver algum material interessante para indicar, ficaria grato...

 

 

Abraços