è 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
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 30/11/2010 7:38 am