Catastrophic Failure

[willie76]

Forummers,

Ik dacht slim te zijn in mn workbook de volgende code te plaatsen:

Private Sub Workbook_Open()
UserForm1.Show
End Sub

Hiermee dacht ik dat ik zou bereiken dat, op het moment dat het excelbestand geopend wordt, het formulier automatisch te voorschijn komt.

Nu krijg ik echter een catastrophic failure: Systeemfout &H8000FFFF (-2147418113)

Wie heeft er een oplossing.

ps. gelukkig had ik een backup bestand gemaakt, dus niet al het werk is verloren........, maar vervelend is t wel.

 

[spaarie]

Het komt waarschijnlijk omdat niet het gehele bestand geladen is als je de sub uitvoert.
Probeer dit:

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

en in een module

Sub Formulier
    UserForm1.Show
End Sub