Fóruns
Microsoft Excel - 2...
Formulários
Botao que exije SEN...
 
Notifications
Clear all

Botao que exije SENHA ao ser clicado

 
Formulários
4 Posts
2 Usuários
0 Reactions
1,221 Visualizações
RSS
 JoséAntonio
(@joseantonio)
Posts: 5
Active Member
Topic starter
 

Olá a todos...

Espero que possam me ajudar...

Estou fazendo uma planilha BEM SIMPLES de controle de estoque, mas estou com alguns probleminhas.

A planilha funciona da seguinte forma: Até agora só fiz a parte de saída de estoque, o que pra mim, é o mais importante.

Na ABA "CADASTROS" fiz 5 campos onde o usuário preenche-os através de lista suspensa. (ISSO JÁ ESTÁ PRONTO)
Ao acabar o preenchimento, quero que ele clique em um botão (que já está pronto e funcionando, que fiz atraves de macro gravada) que lança no banco de dados (que fica na aba "PEDIDOS") a linha recém preenchida.

O problema é:
1 - Caso ele já tenha cadastrado uma saída e depois percebe que errou em algum valor e/ou dígito, quero que pra ele poder apagar aquela entrada, seja obrigado a clicar em um botão chamado "EXCLUIR ÚLTIMO LANÇAMENTO" (esse botão já está pronto e funcionando). MAS eu quero que ao clicar no botão, apareça uma caixa pedindo uma SENHA (não precisa de login, nem nada, apenas a senha), se a senha estiver correto, o último lançamento será excluido, se não, uma mensagem de "Senha Inválida" aparece na tela.

2 - Programei o Banco de Dados para ter um limite de 15.000 entradas (e não tenho interesse em aumentar este número). Quando o limite for atingido, aparece uma mensagem dizendo que o banco de dados não comporta mais entradas (Isso já está pronto e funcionando). Para apagar o Banco de Dados COMPLETO, que fica na ABA "PEDIDOS" quero que o usuário seja obrigado a clicar em um botão, que também peça senha e verifique se está correta, se estiver, apaga tudo da aba "PEDIDOS", se não, não faz nada.

Espero que possam me ajudar, realmente estou precisando e com uma certa urgência.

PS: Caso tenham alguma idéia para melhorar ou tornar mais útil ainda, aceito sugestões.

Obrigado desde já pela ajuda!

Um FORTE ABRAÇO!

 
Postado : 05/09/2012 4:27 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!
Não baixei seu arquivo mas...tente..

Sub AleVBA_Senha()
Dim Password As String
Answer = InputBox("Digite a senha")
Password = "AleVBA"

If Answer = Password Then
CommandButton1.Enabled = True
Else
CommandButton1.Enabled = False
End If
End Sub

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

 
Postado : 05/09/2012 4:45 pm
 JoséAntonio
(@joseantonio)
Posts: 5
Active Member
Topic starter
 

Cara, muito bom...

Uma maneira simples, que eu sabia fazer mas não pensei... Obrigado...

Tive que alterar um pouco o código, pois não criei botão a partir do form, e sim inserindo imagem e atrelando a macro a ele...

Voce poderia me passar algum link de como criar form? Procurei no site, mas não achei nenhum bom...

Mais uma vez muito obrigado. Com a alteração funcionou perfeito!!!!

 
Postado : 05/09/2012 7:04 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!!
Veja como criar formulários em:
http://www.macoratti.net/10/10/vba_ccli.htm
http://www.tomasvasquez.com.br/blog/mic ... so-a-passo

http://chandoo.org/wp/excel-vba/user-forms/
http://www.learn.net.au/vba/userforms

Para clicar na mãozinha e marcar seu tópico como resolvido vá em:
viewtopic.php?f=7&t=3784

Att

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

 
Postado : 06/09/2012 3:54 am
Forum Jump:
  Tópico Anterior
Próximo Tópico