Autogem i Excel til netværk

er det ikke bare at sætte autogem til at gemme på netværk

Nej, autosave findes ikke mere i 2002 og 2003. Glemte vist at skrive, at det er i Excel 2003. Det skal være en makro/VBA løsning. Kan nogen hjælpe med at strikke sådan en sammen??

Kan du ikke bare ligge den gamle AutoSave.XLA ind i dit .XLA-bibliotek?
Selvom den blev distribueret men med de ældre versioner af Excel, så er det stadig en ganske almindelig .XLA-fil, og kan stadig bruges med senere versioner af Excel.


mvh.,
Pistolprinsen

I ThisWorkbook modulet

Private Sub Workbook_Open()
Application.OnTime Now() + TimeSerial(0, 5, 0), "GemMappe"
End Sub

I et Modul, f.eks Module1

Public Sub GemMappe()
GLnavn = ThisWorkbook.Name ' navnet mappen har nu
ThisWorkbook.SaveAs "C:\Test" ' ret til hvad kopien skal hedde og hvor den skal gemmes
Application.OnTime Now() + TimeSerial(0, 5, 0), "GemMappe"
ThisWorkbook.SaveAs "C:\" & GLnavn, "xls" ' ret til hvor den skal gemme orginal mappen
End Sub

en rettelse til den sidste

Public Sub GemMappe()
Application.DisplayAlerts = False
GLnavn = ThisWorkbook.Name ' navnet mappen har nu
ThisWorkbook.SaveAs "C:\Test" ' ret til hvad kopien skal hedde og hvor den skal gemmes
Application.OnTime Now() + TimeSerial(0, 5, 0), "GemMappe"
ThisWorkbook.SaveAs "C:\" & GLnavn 'ret til hvor den skal gemme orginal mappen
Application.DisplayAlerts = True
End Sub

Du får et problem hvis en af de andre brugere på nettet ikke har lukket netversionen, så kan du ikke gemme.