SENHA NA MACRO

Fórmulas básicas e avançadas do Microsoft Excel, Fórmulas Matriciais, Fórmulas combinadas, Funções como PROCV, PROCH, SOMASE, SOMA, SE, etc.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

SENHA NA MACRO

Mensagempor Raike » Qui Out 10, 2019 11:13 am

Bom dia,

Meus amigos tenho uma planilha de ponto em anexo e precisava da seguinte ajuda.

1- Tenho a aba "INICIO" precisava que essa fosse a aba principal sempre ao abrir a planilha e que ninguém pudesse trocar de ABA enquanto não clicar em um dos dois botões "usuário 1" ou "usuário 2"
2- Precisava que os botões "usuário 1" e "usuário 2" solicitação uma senha quando forem clicados para a execução da macro

DOWNLOAD: https://www.sendspace.com/file/0284td
Raike
Membro
Membro
 
Mensagens: 27
Registrado em: Sex Mai 18, 2018 1:54 pm
Has thanked: 10 times
Have thanks: 0 time

{ SO_SELECT }

Re: SENHA NA MACRO

Mensagempor wagner » Sex Out 11, 2019 12:15 pm

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
Código: Selecionar todos
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;
Código: Selecionar todos
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:
Código: Selecionar todos
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:
Código: Selecionar todos
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.
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 5530
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 101 times
Have thanks: 2345 times

Re: SENHA NA MACRO

Mensagempor Raike » Sex Out 11, 2019 1:40 pm

Boa tarde,

Infelizmente sou um pouco leigo na parte de VBA e não consegui efetuar corretamente os passos, se puder me enviar o arquivo mais tarde ou por email: davidson20072007@gmail.com

Muito obrigado!
Raike
Membro
Membro
 
Mensagens: 27
Registrado em: Sex Mai 18, 2018 1:54 pm
Has thanked: 10 times
Have thanks: 0 time

Re: SENHA NA MACRO

Mensagempor wagner » Sex Out 11, 2019 3:25 pm

Te enviei por e-mail.
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 5530
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 101 times
Have thanks: 2345 times

Re: SENHA NA MACRO

Mensagempor Raike » Sex Out 11, 2019 4:48 pm

Obrigado eu vi aqui amigo, mas não saberia reencaixar isso ao que eu pedi na minha planilha :s
Raike
Membro
Membro
 
Mensagens: 27
Registrado em: Sex Mai 18, 2018 1:54 pm
Has thanked: 10 times
Have thanks: 0 time

Re: SENHA NA MACRO

Mensagempor wagner » Sex Out 11, 2019 8:09 pm

Raike,

Mas não tem nenhum mistério. Se você seguir o passo a passo que lhe passei, vai dá certo com certeza.
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 5530
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 101 times
Have thanks: 2345 times


Voltar para Fórmulas & Funções Microsoft Excel

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 0 visitantes