PERSONAL.XLSB MacroOptions beim Start

Question

Ich möchte meine PERSONAL.XLSB UDFs registrieren, sobald ich eine neue Arbeitsmappe öffne. Ich habe eine Workbook_Open() Veranstaltung rufen Sie das folgende:

Sub RegisterUDF() 
    Dim s As String 
    s = "Enter 0 for x resolution" & vbLf _ 
    & "1 for y resolution" 

    Application.MacroOptions Macro:="GetSystemMetrics", Description:=s, Category:=9, HelpFile:="https://msdn.microsoft.com/en-us/library/windows/desktop/ms724385(v=vs.85).aspx" 
End Sub 

wo GetSystemMetrics meine UDF ist und der Code wird in dem Arbeitsobjekt und ein Modul meiner Personal.xlsb platziert

Auf eine neue Arbeitsmappe zu öffnen, etwas erscheint Ich bekomme die Fehlermeldung:

Wie soll ich meinen Code beheben, um die UDF bei jeder neuen Arbeitsmappe zu registrieren?

Answer 1

Nach @Peh den Ansatz und das Lesen der Fehlermeldungen versuchen, finde ich, das funktioniert:

Private Sub Workbook_Activate() 
Dim t As String 
t = ActiveWorkbook.Name 
Application.ScreenUpdating = False 
Windows("PERSONAL.XLSB").Visible = True 
Call RegisterUDF 
Windows("PERSONAL.XLSB").Visible = False 
Windows(t).Visible = True 
Application.ScreenUpdating = True 
End Sub 

Answer 2

Dies kann verursacht werden, wenn die RegisterUDF ausgeführt wird, bevor die Arbeitsmappe vollständig geladen ist. Versuchen Sie Folgendes in das Workbook_Open Ereignis vor Sie RegisterUDF aufrufen.

Do Until Application.Ready = True 
DoEvents: Loop 

---

Wenn über die Lösung nicht die folgenden könnte eine alternative Art und Weise sein, funktioniert:

Versuchen Sie, das Workbook_Activate Ereignis, das nach Workbook_Open passiert. Andernfalls, wenn es notwendig ist, um eine Verzögerung zu verursachen, können Sie die OnTime Methode im Workbook_Open Ereignisse verwenden:

Application.OnTime Now + TimeValue("00:00:02"), "RegisterUDF" 

Das die RegisterUDF Verfahren nach einer Verzögerung von 2 Sekunden ausgeführt wird.