-
Posts
2 -
Cadastrado em
-
Última visita
Tipo de conteúdo
Artigos
Selos
Fabricantes
Livros
Cursos
Análises
Fórum
posts postados por 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 Thenresultado = MsgBox("Para salvar o arquivo è necessário permissão. Você tem permissão?", vbYesNo, "SIM")If resultado = vbYes Thensenha = InputBox("Digite a senha abaixo")If senha = senhasalvar ThenCancel = FalseElseMsgBox "Esta senha não confere.", vbCritical, "Atenção"Cancel = TrueEnd IfElseMsgBox "Procure o responsável da área"Cancel = TrueEnd IfEnd IfEnd Sub
Sobre o Clube do Hardware
No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais
Direitos autorais
Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais
Macro beforesave
em Microsoft Office e similares
Postado
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