opslaan bestand

[coxonitus]

hallo Allemaal,

het ene is nog niet opgelost volgt het andere.
ik zou graag het volgende willen, maar dan als aanvulling op onderstaande code

' Opslaan_Als Macro
Dim SheetName As String
SheetName = InputBox(Prompt:="nieuwe filenaam:", _
Title:="geef een naam voor uw bestand")
If SheetName = "" Then GoTo Ende
ActiveWorkbook.SaveAs "C:\Documents and Settings\jschulpen\Bureaublad\projectberstanden\Actielijsten\2011\" & SheetName & ".xlsm"
ActiveWorkbook.Close
Exit Sub
Ende:
MsgBox "Fout, dit is geen correcte naam!", vbCritical, "Foutmelding"
End Sub

Eigenlijk wil ik dat deze worden opgeslagen als copy, en dan zonder dat de opslaan knop zichtbaar wordt mee opgeslagen.

wie kan mij helpen, waarschijnlijk ben ik al de zoveelste die het vraagt.

 

[ExcelAmateur]

coxonitus,

Had je hier al gekeken?

 

[coxonitus]

hi
bedankt voor je snelle reactie.
echter hoef ik geen back up, maar wordt het als je de naam opgeeft, automatisch weggeschreven in een folder.
Dat is ook de bedoeling maar als ik het bestand open dan zie ik de "opslaan" knop en dat wil ik niet, vandaar dat ik dacht als kopie met een range als aanvulling.

ik weet echter niet hoe ik de aanvulling eronder plak

thnx