o código para a senha pode ser esse:
Sub Codigo_com_Senha_GT()
Dim Senha1 As String
Dim Senha2 As String
Senha1 = "teste123"
Senha2 = InputBox("Digite a senha para liberar a operação.", "Senha requisitada")
If Senha1 = Senha2 Then
MsgBox ("Senha correta, liberação concedida.")
'Coloque aqui seu código
Else
MsgBox ("Senha inválida. Acesso negado.")
End If
End Sub
Lembre de alterar teste123 para a sua senha, e inclua o seu código na parte onde deixei comentado. Atribua ao botão e faça o teste.
Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.
Gilmar
Postado : 09/01/2014 6:33 pm