Mira
este ejemplo, que tiene este código:
Código:
Sub auto_open()
UserForm1.Show
End Sub
Código:
Sub ejemplo()
UserForm1.CommandButton1.Enabled = True
End Sub
Dentro del userform, si cliqueas sobre él verás este código:
Código:
Private Sub UserForm_Activate()
UserForm1.CommandButton1.Enabled = False
Application.OnTime Now + TimeValue("00:00:05"), "ejemplo"
End Sub
Todo esto se puede mejorar, se le puede cambiar el texto al botón mientras está inactivo, y mil cosas más, pero es para que te hagas una idea de como funciona.
Salu2