Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Iniciar com Form

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
themusicgospel
Colaborador
Colaborador
Mensagens: 12
Registrado em: Ter Ago 23, 2011 11:07 pm

Iniciar com Form

Mensagem por themusicgospel »

Pessoal, boa noite!

Eu fiz um sistema de login e senha para minha panilha...
codigo do form:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
' Evita que o usuário feche a tela no 'x' na tela
If CloseMode = vbFormControlMenu Then
MsgBox "Você não pode fechar esta janela, por favor Cancele ou digite seu Login e Senha!!!"
Cancel = True
End If
End Sub
Private Sub CommandButton1_Click()

Configurar = vboknly + vbInformation
If Senha = "123456" Then
MsgBox "Seja Bem Vindo", vbInformation, "Tela de Boas Vindas"
Unload UserForm2
Sheets("Plan1").Activate

Else
MsgBox " Senha incorreta, tente novamente!", vbInformation, "Sistema de Login"
Usuario.Text = ""
Senha.Text = ""


End If

End Sub

Private Sub CommandButton2_Click()
Application.Quit
End Sub

Private Sub CommandButton3_Click()
Unload UserForm2
End Sub


Private Sub Image1_Click()

End Sub

codigo em Pasta de Trabalho para abrir o formuario:

Private Sub Workbook_Open()
UserForm2.Show
End Sub


mais quando abro a planilha no excel, ela abre em segundo plano..e em primeiro plano abre o form para colocar login e senha..
mais eu quero apenas que quando eu clicar para abrir a planilha, apenas abra o form e nao a planilha...e so abrir a panilha apos colocar login e senha...

e ai pessoal, estou voando nessa pois sou novo no excel...


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


[BDS]
Colaborador
Colaborador
Mensagens: 11
Registrado em: Qui Ago 18, 2011 2:48 pm

Re: Iniciar com Form

Mensagem por [BDS] »

Boas! Aqui está o código

Código: Selecionar todos

Private Sub Workbook_Open()
Application.Visible = False
UserForm2.Show
End Sub
Depois só tens de pôr Application.Visible = True após reconhecer a password do login para o excel aparecer.


Responder