Excel VBA der lukker filen...

Du sætter DisplayAlerts = true
igen efter Save (du gemmer - men lukker ikke på det tidspunkt)

Sub WorkbookClose()
' denne Sub udfører et automatiseret luk af den aktuelle fil, uden at lukke alle åbne excelfiler
Application.DisplayAlerts = False ' vis ikke advarsler
  ThisWorkbook.Save  ' gemt ændringer

If Application.Workbooks.Count > 1 Then 'if more than one active workbook - close this workbook only
  ActiveWorkbook.Close SaveChanges:=False
  Application.DisplayAlerts = True ' vis advarsler igen
Else ' if only one active workbook - close application
  Application.Quit
End If

End Sub

Jeg har markeret Superteksts indlæg som #1 som løsningen, for det var jo det der var fejlen at umiddelbart efter ActiveWorkbook.Save så aktiverede jeg alerts igen.

og det er jo I forb med ActiveWorkbook.Close den kommer og spørger om "gem ændringer".

#2 fra Elgaard har jeg lidt svært ved at overskue (mest fordi ændringerne skal jeg selv analysere mig frem til). Derfor henstår den stadig uafprøvet.
bekalger Elgaard.

Det er nu din egen kode, så, hvorfor du ikke kan "analyser" dig frem til, hvad den gør, stiller jeg mig uforstående over for???

Men...
...ved at sætte

ActiveWorkbook.Close SaveChanges:=False

...undgår du, at Excel spørger om du skal gemme ændringerne.

Længere er den såment ikke :-)

Ja det lyder jo ganske enkelt.
Jeg havde blot svært ved at overskue om der gemte sig andre ændringer.

Og det var blot den lille forklaring, som du nu har givet I én linie om hvad du ændrer, som jeg savnede.

Jeg er desværre ramt af et dårligt overblik, som jeg fik efter en hjerneskade for nogle år siden grundet en hjerneblødning.

Det prøver jeg stadig at leve med.