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

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