Tomás Vásquez Fórum

Olá!

Será que conseguem me ajudar?

Como fechar automaticamente um formulario apos segundos, independente da ação do usuário?

Preciso de um codigo para esta ação automática;

Muito Obrigado;

Bom dia Vilmarmoc,

Coloque esse código no formulário: E coloque em um módulo esse código:

Obrigado,
Rafael Monteiro;

o seu código funcionou perfeitamente.
identifiquei que o motivo de não funcionar na minha planilha é pelo motivo que estou tentando aplicar este codigo em um webbrowser e não em um formulario;

segue o código abaixo;

Private Sub anterior_Click()

End Sub

Private Sub endereço_Change()

End Sub

Private Sub ir_Click()
WebBrowser.Navigate endereço.Value

End Sub

Private Sub proximo_Click()
WebBrowser.GoForward
UserForm_Initialize

End Sub



Private Sub TextBox1_Change()
TextBox1 = WebBrowser.FullScreen
End Sub

Private Sub LOGIN_Click()
Unload Me
Log_in.Show
End Sub

Private Sub UserForm_Initialize()
WebBrowser.Navigate endereço.Value
endereço = WebBrowser.LocationURL
WebBrowser.SetFocus
End Sub

Private Sub WebBrowser_StatusTextChange(ByVal Text As String)
endereço = WebBrowser.LocationURL


End Sub

será que você consegue aplicar este código de maneira que este browser feche em 05 segundos apos aberto?

tentei mas não consegui aplicar.

desde já agradeço

Não sei se entendi. mas acredito que você quer que o formulario fique aberto e feche somente o Webbrowser.

Então seria assim.

Rafael Monteiro escreveu: ↑Ter Fev 23, 2016 9:08 am Bom dia Vilmarmoc,

Coloque esse código no formulário:

Código: Selecionar todos

Private Sub UserForm_Initialize()
Application.OnTime Now + TimeValue("00:00:05"), "Fechar"
End Sub

E coloque em um módulo esse código:

Código: Selecionar todos

 Sub Fechar()
Unload UserForm1
End Sub

Ficou assim
No Form

Private Sub UserForm_Initialize()
Application.Visible = False

Application.OnTime Now + TimeValue("00:0:30"), "Fechar"

Dim hWnd As Long

'Vai para o topo do formulário
ScrollTop = 0

'Define os botões minimizar e maximizar do form
hWnd = FindWindow(vbNullString, Login.Caption)
SetWindowLong hWnd, -16, &H20000 Or &H10000 Or &H84C80080

End Sub

No módulo (Coloquei no final após as linhas de comandos existentes )

Sub Fechar()
Unload UserForm1
End Sub


Nada aconteceu.

Na vdd aparece erro já nos primeiros segundo que a form é aberta

Podem ajudar?

valeu