makro til lagring af Excel-Workbook

Prøv nedenstående i et module ell. lign

Sub SaveThis()
    ActiveWorkbook.SaveAs Filename:=Worksheets("Sheet1").Range("A1"), FileFormat:=xlNormal
End Sub

Workbook'n gemmes nu med navnet specificeret af celle A1 på Sheet1

hvordan aktiveres en sådan komando

Kommentar til gonzoo:

Der er adskillige måder at gøre dette på (ud over at kalde SaveThis fra andre funktioner / subs)

Man kan tilføje en knap på sheetet. I den engelske Excel kan man ved View / Toolbars / Forms tegne en knap og specificere at SaveThis skal udføres ved et tryk på knappen.

Dette har dog den ulempe at brugeren nu får to måder at gemme regnearket på. Enten ved normal File / Save (som altså ikke retter sig efter indholdet i cellen) eller ved brug af knappen.

En måde at re-route File / Save (og Save As) på kunne være nedenstående (som *skal* tilføjes i ThisWorkbook og *ikke* i et module)

Option Explicit
Private m_bSaveOngoing As Boolean

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If m_bSaveOngoing Then
        Cancel = False
        m_bSaveOngoing = False
    Else
        Call SaveThis
        Cancel = True
    End If
End Sub

Sub SaveThis()
    m_bSaveOngoing = True
    On Error Resume Next
    ActiveWorkbook.SaveAs Filename:=Worksheets("Sheet1").Range("A1"), FileFormat:=xlNormal
End Sub