Excel-fil som lager kopi av seg selv når det lagres

[ilpostino]

er det noen her som vet hvordan jeg kan lage en makro (eller lignende) som lager en kopi av seg selv på en annen nettverksstasjon idet den lagres? bruker Excel Xp

[Harald Staff]

Ja, og nei. Plasser denne koden i ThisWorkbook-modulen:

 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If SaveAsUI = False Then

Application.DisplayAlerts = False

ThisWorkbook.SaveCopyAs "X:\Backuper\" & ThisWorkbook.Name

DoEvents

Application.DisplayAlerts = True

Else

'ja det var det da

End If

End Sub

 

Den lagrer en kopi på X:\Backuper\ like før (ikke når) du lagrer, i BeforeSave-eventet. Trøbbelet er når du begynner med Lagre Som, med dialog om filnavn og plassering og filtype, det er håpløst å lagre kopi før det. Vanlig løsning er å kidnappe hele prosedyren og skrive hele Lagre Som på nytt i en makro. For å gjøre det kreves mye mer kjennskap til miljøet, excelversjoner i omløp etc etc.

 

HTH. Beste hilsen Harald

[Harald Staff]

PS du har 9999 postinger. Kjapp deg og svar hipp hurra på denne tråden

[ilpostino]

løsningen din fungerte som vanlig takk for hjelp.