Tenho um código que limita o acesso a planilha por Usuário, porém, quando o mesmo digita a senha ela fica exposta...
Gostaria de ajuda com um código que não mostra a senha ao digitar.
Segue o código...
Código: Selecionar todos
Private Sub Workbook_Open()
Dim senha As String, usuario As String
Inicio:
Inicio.Visible = xlSheetVisible
Users.Visible = xlSheetVeryHidden
MENU.Visible = xlSheetVeryHidden
CUSTOS_INS.Visible = xlSheetVeryHidden
CUSTOS_IMP.Visible = xlSheetVeryHidden
PREMISSAS.Visible = xlSheetVeryHidden
Config.Visible = xlSheetVeryHidden
CULTURA.Visible = xlSheetVeryHidden
RESULTADO.Visible = xlSheetVeryHidden
usuario = InputBox("Digite o usuário")
senha = InputBox("Digite a senha")
Dim linha As Long
Dim achou As Boolean
achou = False
For linha = 1 To Users.UsedRange.Rows.Count
If senha = Users.Range("C" & linha).Value Then
If usuario = Users.Range("A" & linha).Value Then
achou = True
If "A" = Users.Range("B" & linha).Value Then
Inicio.Visible = xlSheetVisible
Users.Visible = xlSheetVeryHidden
MENU.Visible = xlSheetVeryHidden
CUSTOS_INS.Visible = xlSheetVisible
CUSTOS_IMP.Visible = xlSheetVisible
PREMISSAS.Visible = xlSheetVeryHidden
Config.Visible = xlSheetVeryHidden
CULTURA.Visible = xlSheetVisible
RESULTADO.Visible = xlSheetVisible
Call TirarB
Call TirarC
Call TirarD
Call TirarX
Call OcultaA
End If
If "B" = Users.Range("B" & linha).Value Then
Inicio.Visible = xlSheetVisible
Users.Visible = xlSheetVeryHidden
MENU.Visible = xlSheetVeryHidden
CUSTOS_INS.Visible = xlSheetVisible
CUSTOS_IMP.Visible = xlSheetVisible
PREMISSAS.Visible = xlSheetVeryHidden
Config.Visible = xlSheetVeryHidden
CULTURA.Visible = xlSheetVisible
RESULTADO.Visible = xlSheetVisible
Call TirarC
Call TirarD
Call TirarX
Call TirarA
Call OcultaB
End If
If "C" = Users.Range("B" & linha).Value Then
Inicio.Visible = xlSheetVisible
Users.Visible = xlSheetVeryHidden
MENU.Visible = xlSheetVeryHidden
CUSTOS_INS.Visible = xlSheetVisible
CUSTOS_IMP.Visible = xlSheetVisible
PREMISSAS.Visible = xlSheetVeryHidden
Config.Visible = xlSheetVeryHidden
CULTURA.Visible = xlSheetVisible
RESULTADO.Visible = xlSheetVisible
Call TirarD
Call TirarX
Call TirarA
Call TirarB
Call OcultaC
End If
If "D" = Users.Range("B" & linha).Value Then
Inicio.Visible = xlSheetVisible
Users.Visible = xlSheetVeryHidden
MENU.Visible = xlSheetVeryHidden
CUSTOS_INS.Visible = xlSheetVisible
CUSTOS_IMP.Visible = xlSheetVisible
PREMISSAS.Visible = xlSheetVeryHidden
Config.Visible = xlSheetVeryHidden
CULTURA.Visible = xlSheetVisible
RESULTADO.Visible = xlSheetVisible
Call TirarB
Call TirarA
Call TirarX
Call TirarC
Call OcultaD
End If
If "X" = Users.Range("B" & linha).Value Then
Inicio.Visible = xlSheetVisible
Users.Visible = xlSheetVeryHidden
MENU.Visible = xlSheetVeryHidden
CUSTOS_INS.Visible = xlSheetVisible
CUSTOS_IMP.Visible = xlSheetVisible
PREMISSAS.Visible = xlSheetVeryHidden
Config.Visible = xlSheetVeryHidden
CULTURA.Visible = xlSheetVisible
RESULTADO.Visible = xlSheetVisible
Call TirarA
Call TirarB
Call TirarC
Call TirarD
Call OcultaX
End If
End If
End If
Next linha
If achou = False Then
GoTo Inicio
End If
End Sub