Macro mag niet meer werken na gebruik

[davylenders123]

Ik heb een bestand en dat slaat het bestand ergens op met als naam datum en uur erin en gegevens uit cel B3.
Waar dit bestand wordt opgeslagen mag de macro die achter de button met de enveloppe zit niet meer werken.
Later wordt het bestand terug opgeslagen op een andere plaats en vanaf dan zou de macro weer wel moeten werken.
Hoe kan ik dit het beste oplossen ?

In dit stukje code wordt het bestand opgeslagen en zou de macro achter de enveloppe niet meer mogen werken in het bestand dat daar wordt opgeslagen.(staan in het begin van de macro)

 pad = "G:\Pakketten\Everyone\Facilities\Reeds aangevraagd\" & Format(Sheets("Reparatieaanvraag").Range("AZ1"), "yyyy mm") & "\"
    Bst = "Reparatieaanvraag voor  " & Sheets("Reparatieaanvraag").[b3] & " " & Format(Sheets("Reparatieaanvraag").[AZ1], " DD MM YYYY  HH MM ") & ".xls"

    
    ActiveWorkbook.SaveAs Filename:=pad & Bst

Helemaal onderaan in de macro wordt het bestand nog eens opgeslagen. Hier zou de macro dan wel terug moeten werken in het bestand dat daar wordt opgeslagen.

 ActiveWorkbook.SaveAs Filename:=("G:\Pakketten\Everyone\Facilities\Doorgeven van reparaties richting Hendrik.xls")

Volledige bestand
Bekijk bijlage test.xls