vba gem excel får det lukkes

Prøv med denne i ThisWorkbook modulet


Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Not ActiveWorkbook.Saved Then
        ActiveWorkbook.Save
    End If
End Sub

Man kan også lave, så den ikke spørger, bare gør det.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Not ActiveWorkbook.Saved Then
    Application.DisplayAlerts = False
        ActiveWorkbook.Save
    Application.DisplayAlerts = True
    End If
End Sub

Den sidstnævnte er lidt "tricky", hvisi mappen ikke allerede er gemt. Så gemmer den under navnet Mappe1.xls, og næste gang man gemmer en mappe, der endnu ikke er gemt, gør den den samme og overskriver den føste - uden at advare pga DisplayAlerts=False.

Ja, man skal huske at gemme som, første gang, den skal gemmes.

Hej
Jeg bruger den føste, smid et svar

et svar ;-))