Raike,
Boa tarde!
Infelizmente não tem como anexar arquivo aqui e eu não tenho como upar arquivo para site de compartilhamento aqui no meu trabalho. Faça então o seguinte:
1 - Renomeie sua aba Plan1 para INICIO;
2 - Renomeie sua a
ba Plan2 para Usuário 1;
3 - Renomeie sua aba Plan3 para Usuário 2;
4 - Insira na aba INICIO dois botões e dê a eles os nomes Usuário 1 e Usuário 2;
5 - Insira na aba Usuário 1 mais um botão e dê a ele o nome Retornar;
6 - Insira na aba Usuário 2 mais um botão e dê a ele o nome Retornar;
7 - No evento Workbook_Open da planilha insira o código abaixo. Isso vai fazer o Excel deixar as abas Usuário 1 e Usuário 2 invisíveis (sem possibilidade de reexibir pelo usuário leigo;
Private Sub Workbook_Open()
Sheets("Usuário 1").Visible = 2
Sheets("Usuário 2").Visible = 2
End Sub
8 - Insira um módulo e cole nele o código abaixo:
Sub Senha()
Dim Senha1 As String
Dim Senha2 As String
Dim Senha As String
Senha1 = "123"
Senha2 = "456"
For Each bt In Sheets("INICIO").Shapes
If Left(bt.Name, 6) = "Button" Then
Senha = InputBox("Digite a sua senha", "SENHA")
If Senha = Senha1 Then
Sheets("Usuário 1").Visible = -1
Sheets("INICIO").Visible = 2
Exit Sub
ElseIf Senha = Senha2 Then
Sheets("Usuário 2").Visible = -1
Sheets("INICIO").Visible = 2
Exit Sub
Else
MsgBox "A Senha Digitada Está Incorreta!", vbCritical, "ERRO"
Exit Sub
End If
End If
Next
End Sub
9 - Associe aos botões Usuário 1 e Usuário 2 existentes na aba INICIO o mesmo código;
10 - Cole, nesse mesmo módulo, logo abaixo da procedure Senha, esse outro código:
Sub Retornar()
If ActiveSheet.Name = "Usuário 1" Then
Sheets("INICIO").Visible = -1
Sheets("Usuário 1").Visible = 2
Else
Sheets("INICIO").Visible = -1
Sheets("Usuário 2").Visible = 2
End If
End Sub
10 - Finalmente, associe esse último código a cada um dos botões Retornar existentes nas abas Usuário 1 e Usuário 2.
Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)
Atenciosamente
Wagner Morel
Postado : 11/10/2019 9:15 am