Notifications
Clear all

Senha antes da Excução da macro

5 Posts
1 Usuários
0 Reactions
3,565 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde Pessoal,

Estou precisando colocar na execução de uma macro!

voces sabe como?

exemplo:

quando tric no botão que esta localizado a macro ela pede uma senha para acesso a macro!

 
Postado : 18/11/2010 8:56 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

è só atribuir a sub ABILITAR_BOTÃO_FECHAMENTO ao botão

Sub ABILITAR_BOTÃO_FECHAMENTO()

Dim yourName As String

yourName = InputBox("Digite a SENHA em MAÍUSCULO ou Clique no Botão Cancelar")

If yourName = "CONTROLE" Then = neste caso defini a palavra CONTROLE como senha
CONSOLIDAR OS ESTOQUES = as macros que deve executar
CRIAR HISTORICO = as macros que deve executar

ElseIf yourName = "" Then
acesso_senha = macro apenas com a msg que você precisa digitar a senha
Exit Sub

Else
acesso_senha
Exit Sub

End If

End Sub

Sub acesso_senha()

MSG = MsgBox("ATENÇÃO para abilitar a macro, Digite a SENHA", vbExclamation, "Tempo de Carregamento ")

End Sub

 
Postado : 30/11/2010 7:38 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom entendi pouca coisa que voce me falou,

da para explicar melhor! ?

:D :D :D

 
Postado : 16/12/2010 1:52 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Você está se referindo ao acesso para a edição da macro?
Ou o fato de que o usuário só poderá executar uma macro se souber a senha?

Se for o primeiro caso:
1 - Na tela principal do Excel aperte o atalho ALT+F11
2 - Aberto o campo de edição do Microsoft Visual Basic, vá em Ferramentas > Propriedades de VBAProject...
3 - Na tela de "Propriedades de VBAProject...", vá na aba "Proteção".
4 - Selecione o checkbox "Bloquear projeto para exibição".
5 - Coloque a senha onde for solicitado.
6 - Dê OK.

Respondido?

 
Postado : 17/12/2010 7:51 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

oK

 
Postado : 17/12/2010 7:53 am