afsluiten en starten van macros

[Dummy1912]

Hallo,

met deze code start ik de macro

Private Sub Workbook_Open()
On Error Resume Next
Application.Visible = False
Showme
On Error GoTo 0
End Sub

'afsluiten

Private Sub cmdCancel_Click()
On Error Resume Next
For Each w In Application.Workbooks
    w.Save
    w.Close True
    Set w = Nothing
Next w
Application.Quit
On Error GoTo 0
End If
End Sub

maar heb al gemerkt bij het afsluiten deze toch nog steeds draait in de taskbeheer,
en meestal als ze dan de programma xlsm uitvoeren dat ze meestal niet kunnen inloggen
en krijgen dan soms ook de melding dat het enkel lezen is

iemand een oplossing aub?

Dank u

 

[Timshel]

Als de werkmap met de macro wordt afgesloten wordt de macro natuurlijk niet verder uitgevoerd

Private Sub cmdCancel_Click()
    For Each w In Application.Workbooks
        w.Save
    Next w
    Application.Quit
End Sub

 

[Dummy1912]

Hallo Timshel,

dat werkte uitstekend, net wat we zochten

dank u voor de hulp