"Speichern unter" ein Makro zuweisen
Reinhard
die Prozedur "SpeichernUnter" funktioniert (52 steht für xlsm-Dateien).
Aber bei Anklicken von "Speichern &unter..." wird sie nicht aufgerufen.
Bei niederen Versionen funktioniert die Zuweisung über OnAction.
Was muß ich bei XL2007 anders machen?
Option Explicit
Sub EIN()
With Application.CommandBars("Worksheet Menu Bar").Controls("&Datei")
.Controls("Speichern &unter...").OnAction = "SpeichernUnter"
End With
End Sub
Sub AUS()
With Application.CommandBars("Worksheet Menu Bar").Controls("&Datei")
.Controls("Speichern &unter...").OnAction = ""
End With
End Sub
Sub SpeichernUnter()
Application.Dialogs(xlDialogSaveAs).Show , 52
End Sub
Danke ^ Gruß
Reinhard
Anzeige