名前を付けて保存時のファイル名(Excel2000VBA)

質問

通常、名前を付けて保存をする時、新規ですと「book1」既存ファイルですと保存されたファイル名がディフォルトで表示されますが、この表示を「シート名」に変更することは出来ないものでしょうか？マクロボタン等を利用して同様の機能は作成できますが、できるなら「通常の名前を付けて保存」を選択した際に表示されるファイル名をシート名にしたいのです。
どうかよろしくお願いします。

回答No.1

masa_019 · ベストアンサー

こんにちは。

PERSONAL.XLS　の　ThisWorkbook　に

Option Explicit

Private WithEvents app As Application

Private Sub app_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean)

If SaveAsUI Then
Cancel = True
Application.EnableEvents = False
End If

Application.Dialogs(xlDialogSaveWorkbook).Show ActiveWorkbook.Sheets(1).Name
Application.EnableEvents = True

End Sub

Private Sub Workbook_Open()
Set app = Application
End Sub

こんな感じでしょうか。

お礼

できました！大変助かりました。どうもありがとうございました。