Mantener Formulario por unos segundos

Hola chicos:

esto tambien funciona: (aunque creo que llegue un poco tarde =)

Private Sub UserForm_Activate()
Application.Wait Now + TimeValue("00:00:05")
UserForm1.Hide
End Sub

Buenos Días Ivan y ST

Gracias por sus aportes pues me han sido muy utiles, les cuento en
ultimas resolvi este debate de la siguiente forma:

'en el thisworkbook
Private Sub Workbook_Open()
inicio.Show
End Sub

'en el codigo del formulario
Private Sub UserForm_Activate()
Iniciar
End Sub
Private Sub UserForm_Terminate()
Detener
End Sub
'Para desactivar el boton cerrar
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As
Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
End If
End Sub

'coloque en el modulo
Public siguiente As Date
Public veces As Integer
Sub Iniciar()
veces = veces + 1
If veces <= 5 Then
siguiente = Now + TimeSerial(0, 0, 1)
'el codigo necesario
Application.OnTime siguiente, "Iniciar"
Else
'inicio.Hide
Unload inicio
End If
End Sub
Sub Detener(): On Error Resume Next
Application.OnTime siguiente, "Iniciar", Schedule:=False
End Sub

donde veces me sirve de variable para decirle que me repita el proceso
solamente 5 segundos, pues al desactivar el boton cerrar y sin tener
dentro del formulario otra forma de salir me quedaria en el por
eternidades.

De nuevo gracias por sus aportes.
P.D. se me genero otra duda, ¿puedo quitarle el la barra de titulo al
formulario?

On 30 ene, 12:07, "Ivan" wrote:

y, como en mi caso es imposible que haya 2 sin 3 , reducelo a esto

en el evento Open del libro ->

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:05"), "Cerrar"
UserForm1.Show
'
End Sub

en un modulo normal->

Sub Cerrar()
Unload UserForm1
End Sub

y, si no me equivoco, no hace falta mas

disculpa los errores

un saludo
Ivan

Con que proposito ????
tu respuesta la considero relevante, ya que de ella se podria derivar
una solucion + /- comlpeja =)
que dependiendo... ,puede estar a mi alcance [lease en mis
conocimientos],ofrecerte ;-)

Buenos Días

Mi respuesta, pueda que tenga razón, pero como algunas personas
amablemente me han colaborado para solucionar mis dudas y han colocado
sus codigos personales, no veo nada de malo colocar un granito de
arena para que otros puedan aprender, pienso que esa es la mecanica de
los grupos.

Y no se trata de ofrecerce sino de cooperar con el grupo.
como diria el adagio popular "Hay que sembrar, para recoger".


On 31 ene, 10:42, "ST" wrote:

Con que proposito ????
tu respuesta la considero relevante, ya que de ella se podria derivar
una solucion + /- comlpeja =)
que dependiendo... ,puede estar a mi alcance [lease en mis
conocimientos],ofrecerte ;-)