Macro de solicitaçã...
 
Notifications
Clear all

Macro de solicitação de senha por aba da plan.

9 Posts
2 Usuários
0 Reactions
2,145 Visualizações
(@jhonatan)
Posts: 38
Eminent Member
Topic starter
 

Boa tarde!

Estou com dificuldade na seguinte situação: Abro a plan e me deparo com a aba "Menu", então tenho dois ícones com macro, que á para ir para a aba desejada, como podem ver, tenho as opções "Banco de dados" e "Improdutividades". Queria que ao clicar no ícone para ir para aba "Banco de dados" ele me solicitasse uma senha (que vou escolher), e ao clicar no outro ícone para ir para aba "Improdutividades", solicitasse outra senha (que também vou escolher).

Dei uma pesquisada e parece que isto somente é possível através de macro.

Alguém pode dar uma luz? ^^

Segue anexo o modelo.

Agradeço muito!

Jhonatan Tafarel Bittencourt.

 
Postado : 07/10/2013 11:03 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Substitua suas macros por essas adaptações:

Sub BancoDados()
'
' Bancodados Macro
'

'
  '  ActiveWindow.SmallScroll Down:=6
    Cancel = 0
    Dim BancoDados
  BancoDados = InputBox("Por favor, digite a Senha...", " Acesso BancoDados ")
  
If BancoDados = "" Then

Exit Sub: End If

If BancoDados <> 123 Then
        MsgBox "Senha incorreta.", vbExclamation, "Atenção"

Exit Sub: End If


    Plan2.Visible = xlSheetVisible
    Sheets("Banco Dados").Select
    Plan1.Visible = xlSheetHidden
Final:
End Sub
Sub Improd()
'
' Improd Macro
    Dim Improd
  Improd = InputBox("Por favor, digite a Senha...", " Acesso BancoDados ")
  
If Improd = "" Then

Exit Sub: End If

If Improd <> 456 Then
        MsgBox "Senha incorreta.", vbExclamation, "Atenção"

Exit Sub: End If

    Plan3.Visible = xlSheetVisible
    Sheets("Improdutividades").Select
    Plan1.Visible = xlSheetHidden '

End Sub
Sub Menu()
'
' Menu Macro
'

    Plan1.Visible = xlSheetVisible
    Sheets("Menu").Select
    Plan2.Visible = xlSheetHidden
    Plan3.Visible = xlSheetHidden
    
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 07/10/2013 6:08 pm
(@jhonatan)
Posts: 38
Eminent Member
Topic starter
 

Bom dia, José!

Colei a macro no Visual Basic, preenchi com a senha que queria, porém não funcionou. Continua não pedindo senha ao clicar nos ícones.
Sabes o que pode ter dado errado? ://

Agradeço a ajuda!

 
Postado : 08/10/2013 5:01 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Jhonata, apos colar as rotinas no editor do VBA precisa refazer a atribuição das macros nos Botões (icones).

Clique com o botão direito em cima do Botão e escolha atribuir Macro e selecione na tela que abrir.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 08/10/2013 5:21 am
(@jhonatan)
Posts: 38
Eminent Member
Topic starter
 

Deu certo, ele pede a senha! Mas quando eu boto a senha e abro alguma plan, ele oculta a aba "Menu".

 
Postado : 08/10/2013 5:43 am
(@jhonatan)
Posts: 38
Eminent Member
Topic starter
 

Consegui consertar a macro! Muitíssimo obrigado, José! Me ajudou bastante :D:D:D

Uma última dúvida: No caso que temos agora, se eu não digitar a senha, não consigo abrir nem em modo de visualização. É possível abrir em apenas em modo de visualização?

Grande abraço!

 
Postado : 08/10/2013 5:52 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Consegui consertar a macro! Muitíssimo obrigado, José! Me ajudou bastante :D:D:D

Uma última dúvida: No caso que temos agora, se eu não digitar a senha, não consigo abrir nem em modo de visualização. É possível abrir em apenas em modo de visualização?

Grande abraço!

Jhonata, oque quer dizer "modo de visualização" - é Modo somente leitura ou visualizar impressão ?

Como quer controlar as abas atraves de Senhas, precisa primeiro definir todas as condições que pretende, assim fica mais fácil construir as concessões (Alteração, edição, inclusão ....).

De uma olhada nos exemplos no link abaixo se ajudam.
Planilha - Usuário e permissões
viewtopic.php?f=10&t=3439

Se realizar a Pesquisa no Forum pelos termos "senha usuario" terá aproximadamente 133 resultados referente a este assunto que poderão estar lhe ajudando.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 08/10/2013 8:47 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Além da indicação do Mauro veja sua aplicação.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 08/10/2013 1:55 pm
(@jhonatan)
Posts: 38
Eminent Member
Topic starter
 

Consegui a solução ideal para mim pelos caminhos dos dois.

Muito obrigado!

 
Postado : 09/10/2013 5:23 am