bij kopie start macro auto_open, niet de bedoeling!

[Inkie64]

Hi,

Ik heb in een excel werkmap een macro auto_open gemaakt. Dit werkt prima. Als ik een kopie opsla en deze open, start de macro auto_open ook weer. Dit is niet de bedoeling. Eigenlijk wil ik dus in de kopie de macro uitschakelen / verwijderen.
Dit is wat ik heb:
Schermupdates uitschakelen (versnelt macro)

Application.ScreenUpdating = False
Application.DisplayStatusBar = True
Application.StatusBar = "Ogenblik geduld ..."
'
Dim MyDocumentType As Variant
'
MyDocumentType = ActiveCell
'
Range("J3").Activate
If MyDocumentType = 4 Then
Workbooks.Open(Filename:= _
"C:\Documents and Settings\My Documents\Blanco pakbon NL.xls"). _
RunAutoMacros Which:=xlAutoOpen

(nog wat copy paste uit andere documenten en dan
'
Dim MySaveNamePakbon As Variant

'
MySaveNamePakbon = Windows("Blanco pakbon NL.xls").ActiveCell


'
fNameInitial = "Pakbon" & "MySaveName" & ".xls"

' Select Save Drive & Path
MySaveName = ActiveCell
ChDrive ("C")
ChDir ("C:\Documents and Settings\My Documents\")
fNameInitial = "Pakbon " & MySaveName & ".xls"
Do
fName = Application.GetSaveAsFilename(fNameInitial)
Loop Until fName <> False

Workbooks(Workbooks.Count).SaveAs Filename:=fName

Het gaat allemaal goed alleen dus die macro auto open mag niet starten als de kopie wordt geopend.
Wie heeft er een tip? Alvast bedankt in ieder geval!

gr. Inkie.

 

[Jan van Asseldonk]

Laat de auto_open macro meteen als eerste de bestandsnaam controleren, als deze afwijkt van het orgineel laat je de macro meteen stoppen.
Zoiets:

If activesheet.name <> "Je orginele naam" then end sub

 

[Inkie64]

Helemaal goed, bedankt voor de tip Jan!

groetjes, Inkie.

 

[Jan van Asseldonk]

Dan nog even op opgelost zetten a.u.b.

 

[Inkie64]

Sorry Jan, maar kun je me vertellen hoe dat moet? Het zal ongetwijfeld heel makkelijk zijn maar ik heb het nog niet gevonden
thx, Inkie.

 

[Inkie64]

gevonden! nogmaals dank!