Åben, gem med nyt navn og luk

Hej gladhund


Kan dette bruges ??

Jeg har oprettet en Excelfil: "Default.xls", svarende til din skabelonfil.


I VBA editoren under ThisWorkbook har jeg følgende kode i
hændelserne, Open og BeforeClose ...


Private Sub Workbook_Open()

'hvis denne workbook hedder "Default.xls", så ...
If ThisWorkbook.Name = "Default.xls" Then

    'gem en kopi af "Default.xls" med navnet "CopyOfDefault.xls"
    ThisWorkbook.SaveCopyAs "C:\CopyOfDefault.xls"

    'åbn "CopyOfDefault.xls"
    Workbooks.Open "C:\CopyOfDefault.xls"

    'Luk "Default.xls"
    ThisWorkbook.Close

End If

End sub




Private Sub Workbook_BeforeClose(Cancel As Boolean)

'hvis denne workbook hedder "CopyOfDefault.xls", så ...
If ThisWorkbook.Name = "CopyOfDefault.xls" Then
   
    'variabel til det nye filnavn
    Dim fnavn As String

       
        Do
            'GemSom dialogen åbnes og fnavn tildeles det nye filnavn af typen .xls
            fnavn = Application.GetSaveAsFilename(, fileFilter:="Microsoft Office Excel Workbook (*.xls), *.xls")
       
        'spørg igen på fnavn ... hvis der ikke er tastet et nyt filnavn ?
        Loop Until fnavn <> ""
               
        'gem workbook under det nye filnavn
        ThisWorkbook.SaveAs fnavn
               
   
   
    'slet "CopyOfDefault.xls"
    Kill "C:\CopyOfDefault.xls"
 
   
End If

End sub


Hvad der sker er:
Når "Default.xls" åbnes oprettes en kopi med navnet "CopyOfDefault.xls" på C drevet og "Default.xls" lukkes.

Umiddelbart før "CopyOfDefault.xls" lukkes, spørger GemSom dialogen bruger om et nyt filnavn ... "CopyOfDefault.xls" gemmes under det nye filnavn på en valgfri placering og "CopyOfDefault.xls" slettes fra C drevet.


Mvh Nicolai

Mange tak Nicolai, det ser helt perfekt ud :). Svar endelig

Hej gladhund

Hermed et "svar"

Go´ sommer :o)

mvh Nicolai

Tak i lige måde :)