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: 26
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: 5547
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 102 times
Have thanks: 2356 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: 26
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: 5547
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 102 times
Have thanks: 2356 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: 26
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

For this post the author wagner thanked:
ARTOTTO (Ter Out 15, 2019 5:06 pm)
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 5547
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 102 times
Have thanks: 2356 times

Re: SENHA NA MACRO

Mensagempor ARTOTTO » Seg Out 14, 2019 9:21 am

Bom Dia, Preciso criar uma marco onde eu consiga clicar no Botar e enviar um e-mail para quem tem atividade naquela data, por exemplo eu tenho uma planilha com 180 atividades, eu queria entrar diariamente na planilha e clicar no botão enviar e caso tenha atividades naquele dia enviar um e-mail para a pessoa, constando a atividade e uma mensagem:

"Olá, Prezada (o)"
"Consta(m) Atividade(s) para você no Cronograma de Fechamento;"
"Por gentileza Verificar"
"Atenciosamente"
"Gian Silva"

É mais ou menos assim (Cada barra é uma coluna):

Colunas A / B / C / D / E / F
linha 1 priscila.martins@verzani.com.br / 04/10/2019 / Conferir tabela de INSS - SEMPRE PARA O MÊS POSTERIOR PRISCILA / FP - 1o. PROCESSAMENTO / Selecione / Pendente
linha 2 priscila.martins@verzani.com.br / 04/10/2019 / Conferir Salário Familia - SEMPRE PARA O MÊS POSTERIOR PRISCILA / FP - 1o. PROCESSAMENTO / Selecione / Pendente

Total de 180 linhas

Obrigado mesmo. :cry:
ARTOTTO
Membro
Membro
 
Mensagens: 10
Registrado em: Ter Out 08, 2019 5:59 pm
Has thanked: 9 times
Have thanks: 0 time

Re: SENHA NA MACRO

Mensagempor ARTOTTO » Seg Out 14, 2019 1:43 pm

Tenho modelo no site:

https://www.sendspace.com/file/055471

Obrigado.
ARTOTTO
Membro
Membro
 
Mensagens: 10
Registrado em: Ter Out 08, 2019 5:59 pm
Has thanked: 9 times
Have thanks: 0 time


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

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 1 visitante