11. maj 2005 - 15:27Der er
3 kommentarer og 1 løsning
Gem som dato, men kun som aktuel dato
Hej igen,
Kan man lave en funktion, der gemmer et regneark som dags dato, og automatisk overskriver det eksisterende ark, hvis datoen i arket er dags dato?
Hvis jeg f.eks. åbner et ark, der indeholder d.d., og gemmer det, ændrer i arket, og vil gemme det igen, skal arket automatisk overskrive den gamle fil.
Den moderne arbejdsplads er i stigende grad afhængig af mødelokaler til at fremme samarbejde, men dette skift medfører også stigende sikkerhedsudfordringer.
Indsæt denne kode i projektmappens (ThisWorkbook) kodemdodul:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Application.DisplayAlerts = False filnavn = Range("a1").Value ActiveWorkbook.SaveAs filnavn & ".XLS" Application.DisplayAlerts = True End Sub
Er ikke helt sikker på jeg er med, men du kan lave en knap med en macro der gemmer ark'et med et navn som står i f.eks A1 som du kunne lade være der hvor dato'en står.
macro'en kunne lyde således: Sub backup() Dim Sti As String Sti = "c:\MyBackupFolder\" ThisWorkbook.SaveAs Sti & ActiveSheet.Range("A1") & ".xls" End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.