ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Executar senha de acesso a planilha e também macro

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
roberto grando
Acabou de chegar
Acabou de chegar
Mensagens: 9
Registrado em: Qua Jul 11, 2012 9:54 am

Executar senha de acesso a planilha e também macro

Mensagem por roberto grando » Seg Jan 22, 2018 1:36 pm

boa tarde. tenho um acesso a uma planilha através de senha, mas também gostaria que dependendo da senha de acesso, executasse uma macro. Por exemplo, minhas senhas estão na pasta SENHA na coluna A. Se por acaso alguma senha específica for digitada, também irá executar uma macro. isto é possível? abaixo segue acesso VBA de acesso a planilha.


Private Sub CommandButton2_Click()
Dim lTotal As Long
Dim lContador As Long

lsDesabilitar

Sheets("Senha").Range("$A$1:$C$50000").AutoFilter Field:=1, Criteria1:="=" & txtUsuario.Text
Sheets("Senha").Range("$A$1:$C$50000").AutoFilter Field:=2, Criteria1:="=" & txtSenha.Text

lTotal = WorksheetFunction.Subtotal(3, Sheets("Senha").Range("A:A"))

If lTotal > 1 Then
ActiveWorkbook.Unprotect Password:="123"

For lContador = 2 To lTotal
Sheets(Sheets("Senha").Range("C" & lContador).Value).Visible = True
Next lContador

Unload frmIconePath
Else
MsgBox "Usuário ou senha incorretos!", vbInformation, "LETTERA"
End If

ActiveWorkbook.Protect Password:="123", Structure:=True, Windows:=False
End Sub



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder