Macro on document open

Kan du ikke bruge:

- Excel indstillinger
- Gem
- Gem filer i dette format
- Vælg: Excel-projektmappe med aktive makroer (*.xlsm)
- OK.

Prøv med

Private Sub Workbook_Open()
Dim LenWorkbookExtension As Integer
Dim st As String

  LenWorkbookExtension = Len(ActiveWorkbook.Name) - InStrRev(ActiveWorkbook.Name, ".")
  st = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - LenWorkbookExtension - 1) & ".xlsm"
  ActiveWorkbook.SaveAs (ActiveWorkbook.Path & "\" & _
    Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - LenWorkbookExtension) & ".xlsm")
End Sub

i ThisWorkbook under dit VBAProjekt.

Hvis du vil have den til at gemme, når der lukkes, skal din funktion hedde Private Sub Workbook_Close().

Hej Tryphon

Det var lige den, jeg ledte efter.

Vil du lave et svar?

- og tak :-)

OK og velbekomme.

:-)