Macro werkt niet meer na mac update

[ivoexcel]

Goededag allemaal,
Sinds de update van apple (macOS Catalina) werkt een macro in mijn excel bestand niet meer naar behoren.
Het probleem ontstaat nu op het moment dat ik in het invulscherm de datum moet invullen.
De macro start hier:

Sub start()

    Application.DisplayStatusBar = False
    Application.DisplayFormulaBar = False
    Application.CommandBars("Standard").Visible = False
    Application.CommandBars("Formatting").Visible = False
    Application.CommandBars("Drawing").Visible = False

    Sheets("Port").Select
str: ft = " G__n juiste invoer!!"
    def = "A": titel = "Hoofdmenu"
    tekst = "E = Eenmalige startgegevens invoeren" + Chr(13) + "V = Verborgen regels openen" + Chr(13) + "R = Regels verbergen" + Chr(13) + Chr(13) + "A = ACTUALISEREN van de portefeuille" + Chr(13) + "I  = INVOEREN en MUTEREN van gegevens" + Chr(13) + "K = KOPIE maken van actuele portefeuille"
st: invbox tekst, titel, def
    If inv = "E" Then begininv
    If inv = "V" Then openreg
    If inv = "R" Then verbergreg
    If inv = "A" Then
        init
        If fout = 1 Then
            Exit Sub
        Else
            portefeuille
        End If
    End If
    If inv = "I" Then
        init
        If fout = 1 Then
            Exit Sub
        Else
            invoer
        End If
    End If
    If tg = 1 Then GoTo str
    If inv = "K" Then kopie
    If inv = "@" Then GoTo str
    If inv = "" Then Exit Sub
    If inv = "!" Then Exit Sub
    If InStr(1, "EVRAIK!", inv) = 0 Or Len(inv) <> 1 Then def = ft: GoTo st
End Sub

Ik voer optie A (Actualiseren) in deze verwijst naar de volgende macro:

Sub init()
StartConversation

''''If fout = 1 Then Exit Sub
''''
'''''datum en AEX
''''If hand = 0 Then
''''    b = DDERequest(conv, "AEX" & ";LAST;" & "1")
''''    Sheets("Port").Cells(3, 15) = b(1, 1)
''''    b = DDERequest(conv, "AEX" & ";DATE;" & "1")
''''    Sheets("Port").Cells(3, 5) = b(1, 1)
''''    datum = b(1, 1)
''''    b = DDERequest(conv, "EUR/USD" & ";LAST;" & "1")
''''    dollar = b(1, 1)
''''End If

''''If hand = 1 Then invdat

    invdat

End Sub

Deze verwijst naar macro invdat

Sub invdat()
        def = Sheets("Port").Cells(3, 5)
invd1:  tekst = "Datum heden?" + Chr(13) + Chr(13) + Chr(13) + "!  = invoer onderbreken": titel = "Datum invoeren"
        invbox1 tekst, titel, def
        If stp = 1 Then Exit Sub
        If fout = 1 Then def = ft: GoTo invd1
        Sheets("Port").Cells(3, 5) = datum
        def = Sheets("Port").Cells(3, 15)
        tekst = "AEX heden?": titel = "AEX invoeren"
invd2:  invbox2 tekst, titel, def
        If stp = 1 Then Exit Sub
        If fout = 1 Then def = ft: GoTo invd2
        Sheets("Port").Cells(3, 15) = bedrag: inv = ""
        Exit Sub
End Sub

In deze 3 codes moet volgens mij iets zitten waarmee mac niet meer overweg kan sinds de update. De foutmelding die de macro aangeeft is: '' G__n juiste invoer!!''
Hopelijk kan iemand mij helpen ik hoor het heel graag!

 

[VenA]

En dit heeft wel gewerkt? De hele code is niet te volgen met het hele heen en weer gespring en volgens mij is het ook niet compleet.

Kan je het document even plaatsen met de volledige code?

 

[HSV]

Als je dit blauwe gedeelte even in de code als tekst opmaakt zijn de helpers je vast dankbaar.

Ik zie namelijk niet of je het weer terug zet in de before_close().

Sub start()
 
   [COLOR=#0000ff] Application.DisplayStatusBar = False
    Application.DisplayFormulaBar = False
    Application.CommandBars("Standard").Visible = False
    Application.CommandBars("Formatting").Visible = False
    Application.CommandBars("Drawing").Visible = False[/COLOR]

 

[ivoexcel]

Erg vervelend maar ik kan het bestand zelf niet plaatsen omdat hier rechten opzitten van de maker.
Ik ben dus bang dat ik hem via windows moet blijven gebruiken daar werkt het wel gewoon