Opslaan als zonder macro

[neos69]

Hallo ik heb de volgende macro gemaakt

ChDir "\\gnp-server\Gennep Public\neos69\vouwbladen m40"
sNow = "M40 " + Format(Now(), "yy-mm-dd ") + Str(Hour(Now())) + "h" + Format((Minute(Now())), "00") + ".xls"
ActiveWorkbook.SaveCopyAs Filename:=sNow
ChDir "\\gnp-server\Gennep Public\neos69\vouwbladen m40\M40 maxi 1x21"
ActiveWorkbook.SaveAs Filename:=sNow

Het probleem is dat deze macro in de opgeslagen macro blijft staan. Nu wil ik de macro zo aanpassen dat deze in het opgeslagen document niet meer aanwezig is

Weet iemand hoe dat moet??

alvast bedankt Neos 69

 

[Wigi]

Dan kan je evt. proberen om de macro in een andere file te zetten, en van daaruit het andere bestand op te slaan. Uiteraard gaat er dan wel wat veranderen aan de macro, voornamelijk de aanroep van het bestand dat opgeslagen moet worden.

De code kan ook in je persoonlijke werkmap komen, zodat die macro altijd beschikbaar is.

Wim

 

[neos69]

Helaas is dat niet mogelijk aangezien deze op een server staat en mensen die niet veel verstand van excel hebben hier ook mee moeten werken. Is er dan geen code die de macro's doen verwijderen??

 

[snb]

De logica in je laatste reaktie ontgaat me.
Het is mogelijk ervoor te zorgen dat iedere gebruiker deze macro in zijn/haar persnlk.xls krijgt.

De macro kan wel wat beter:

sNow = "M40 " & Format(Now, "yyyy-mm-dd h:mm") & ".xls"
With ActiveWorkbook
  .SaveCopyAs "\\gnp-server\Gennep Public\neos69\vouwbladen m40" & naam
  .SaveAs "\\gnp-server\Gennep Public\neos69\vouwbladen m40\M40 maxi 1x21" & naam
End With