Automatisch Afsluiten workbook na kopie

[IJf]

Voor een Checklist, die regelmatig afgevinkt moet worden heb ik een stukje VBA gebakken in een werkmap met 1 sheet, die er voor zorg draagt dat:
- er een datum in de sheet komt te staan
- De werkmap wordt gekopieerd met een bepaalde naam en deze kopie wordt gesloten

Het derde gedeelte: afsluiten van opgevraagde werkmap wil in de praktijd niet werken.

De werkmap is opgeslagen als 'sjabloon met macro'.

Code:
Private Sub Workbook_Open()
If Sheets("Blad1").Range("f2") = "" Then
Sheets("Blad1").Range("f2") = Date
End If
End Sub

Public Sub Opslbestand()
Dim Chck_01_Ma As Variant
'kopiëren document als nieuw bestand
ActiveSheet.Copy
Chck_01_Ma = "\\%Path%\Checks\Maandag " & Range("M2").Value & ".xlsx"
ActiveWorkbook.SaveAs Chck_01_Ma, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close True

End Sub


En dan waar het niet meer werkt:
Private Sub Auto_Close()
ActiveWorkbook.Close SaveChanges:=False
End Sub


Ik ben er niet achter waar het nu fout gaat.
Wie ziet het wel ?

 

[OctaFish]

Waarom sluit je het bestand niet in de macro OpslBestand?

 

[IJf]

Goed plan en het werkt ook nog. bedankt voor de tip (ik vond het al raar dat de macro dit gedeelte niet meenam).


Public Sub Opslbestand()
Dim Chck_01_Ma As Variant
'kopiëren document als nieuw bestand
ActiveSheet.Copy
Chck_01_Ma = "\\%Path%\Checks\Maandag " & Range("M2").Value & ".xlsx"
ActiveWorkbook.SaveAs Chck_01_Ma, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close True

'sluit werkmap en applicatie
ActiveWorkbook.Close False
Application.Quit

End Sub

Het Excel Sjabloon wordt zonder pardon en melding opgeslagen.
Jammer genoeg sluit excel niet direct maar krijg ik een nieuw werkblad.

 

[OctaFish]

(ik vond het al raar dat de macro dit gedeelte niet meenam).

Dat is wel logisch, want als je een macro opneemt moet die ook worden opgeslagen. Maar voordat je daar aan toe kwam, had je Excel al afgesloten .
Overigens zou je, je bent tenslotte al 10 jaar lid van HelpMij, ondertussen toch wel moeten weten dat je code op moet maken met de CODE tags... Nota bene een hele simpele knop ( # ) in de werkbalk!

 

[puppie]

op verzoek heropend.

 

[IJf]

Allereerst excuus aan de bijdragers. Ik was 'vergeten' verder te reageren op de aanvullingen en opmerkingen. Niet echt vergeten, andere werkzaamheden vroegen mijn aandacht waardoor dit onderwerp weer moest blijven liggen.

Het uiteindelijk resultaat is dus niet afgewerkt, daar moet ik komende week weer mee aan de slag. En zal de voortgang hier melden.
Op basis van het laatste antwoord zal ik de volgorde veranderen.

Overigens is 10 jaar (inmiddels al weer meer) lid geen garantie dat je de dingen op de juiste wijze hanteerd. Zeker daar ik slechts incidenteel ergens hulp voor vraag. Waarvan akte.


13-03-2017
Na wat gepuzzle met de volgorde en juiste code werkt de Macro onder MSO2010. Door overstap naar MSO 2016 (andere PC) zijn er nieuwe foutmeldingen en moet ik op zoek naar gewijzigde codes. Dat heeft op dit moment geen prio, derhalve mag dit topic weer dicht.