Application.Quit ikke det samme som at lukke Excel?

må vi se koden

ActiveWorkbook.RunAutoMacros Which:=xlAutoClose

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
   
   
    If ThisWorkbook.Saved = True Then
    Cancel = False
   
   
    Else
   
    Svar = MsgBox("Du skal gemme projektet med 'GEM PROJEKT' knappen!!" & vbCrLf & vbCrLf & _
    "Vil du gemme nu?" & vbCrLf & vbCrLf & _
    "Ja = Gemmer projektet og lukker" & vbCrLf & _
    "Nej = Fortsæt med at arbejde på projektet" & vbCrLf & _
    "Annuller = LUKKER PROJEKTET, UDEN AT GEMME!!!!", vbYesNoCancel)
   
    If Svar = vbCancel Then GoTo Afbryd
   
    If Svar = vbYes Then
       
        Call GemSom5
       
   
    Else
   
        Cancel = True
        End If
    End If
   
   

 
Afbryd:
    Application.ScreenUpdating = True
    ThisWorkbook.Saved = True
    Application.Quit
   


End Sub


Og her er koden for afslut knappen:

Public Sub Afslut()

Application.Quit

End Sub


Og her koden for makroen GemSom5:

Public Sub GemSom5()

Filename = ThisWorkbook.path & "\Projekt" & "_" & Date & "_" & Format(Time, "HH-MM-SS") & ".xls"
fileTosave = Filename

    If fileTosave <> False Then
   
    ActiveWorkbook.SaveAs Filename
    MsgBox " Du har nu gemt det aktuelle projekt" & " med filnavn " & Filename
End If

Application.Quit


End Sub

er det denne der går galt

Public Sub Afslut()

Application.Quit

End Sub

prøv at rette til dette

Public Sub Afslut()

ThisWorkbook.Save
Application.Quit


End Sub

Nej det duer ikke.

Så gemmer den bare projektet med sit oprindelige navn.

Og jeg kan heller ikke få RunAutoMacros til at gøre det. Den hopper uden om gem funktionen.

Public Sub Afslut()
ThisWorkbook.Close
End Sub

Har jeg også prøvet, det virker heller ikke. Den springer uden om min gem funktion. Den kommer godt nok med min msgBox og fortæller at jeg har gemt filen, men den er ikke gemt.
Er det fordi jeg har lavet rod i if funktionerne i workbook_BeforeClose?

prøv denne


Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If ThisWorkbook.Saved = False Then
        Svar = MsgBox("Du skal gemme projektet med 'GEM PROJEKT' knappen!!" & vbCrLf & vbCrLf & _
                      "Vil du gemme nu?" & vbCrLf & vbCrLf & _
                      "Ja = Gemmer projektet og lukker" & vbCrLf & _
                      "Nej = Fortsæt med at arbejde på projektet" & vbCrLf & _
                      "Annuller = LUKKER PROJEKTET, UDEN AT GEMME!!!!", vbYesNoCancel)
        If Svar = vbCancel Then GoTo Afbryd
        If Svar = vbYes Then
                    fileTosave = ThisWorkbook.Path & "\Projekt" & "_" & Date & "_" & Format(Time, "HH-MM-SS") & ".xls"
            ActiveWorkbook.SaveAs fileTosave
            MsgBox " Du har nu gemt det aktuelle projekt" & " med filnavn " & fileTosave
        Else
            Cancel = True
        End If
    End If

Afbryd:
    ThisWorkbook.Saved = True
Application.Quit
End Sub


'Og her er koden for afslut knappen:

Public Sub Afslut()
ActiveWorkbook.Close
End Sub

Det virker heller ikke...

Når jeg klikker på Excels egen "close knap"(krydset), kører det fint, og filen gemmes som den skal.
Men når jeg bruger min egen "Afslut knap", kommer den frem med min msgBox og spørger om jeg vil gemme og jeg svarer ja. Herefter kommer msgBox frem og fortæller at filen er gemt, men der er ikke gemt nogen fil (progressbaren forneden kører heller ikke!)

Det er som om at ActiveWorkbook.Close og Application.Quit, virker anderledes når de køres fra en makro, end når man bruger Excels egne "knapper/menuer"???)

Det er som om at linien "fileTosave" ikke bliver eksekveret, men alligevel har den det rigtige filnavn i msgBox(men filen er ikke gemt), så et eller andet sted må den jo have kigget i linien??

Har du kikket på Roden af dit drev, hvis den ikke fanger ThisWorkbook.path, så gemmer den på roden af C drevet, hvis det er C du er på.

Ja det var det den startede med. Men efter jeg har lavet de ændringer du har foreslået, gemmer den slet ikke mere(kun en msgBox om at den har gemt filen). Det der undrer mig er at  det virker fint hvis man lukker Excel på normalvis, men ikke via en "knap"???

Svarer selv!