Tomás Vásquez Fórum

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