Ir ao conteúdo
  • Cadastre-se

Mateus Mancebo Machado

Membro Júnior
  • Posts

    2
  • Cadastrado em

  • Última visita

posts postados por Mateus Mancebo Machado

  1. 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

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

×
×
  • Criar novo...

Ebook grátis: Aprenda a ler resistores e capacitores!

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!