VBA 名前を付けて保存を禁止する方法

まず、新規に.xlsmファイルを作って、名前を付けて保存します。

その後、下記のコードを「ThisWorkbook」へ貼り付けてください。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  If SaveAsUI = True Then
    Call MsgBox("「名前を付けて保存」はできません。")
    Cancel = True
    'Application.Quit 'アプリを終了
  End If
End Sub

メニューのファイルから「名前を付けて保存」を選んで保存先を指定すると・・・、

おおおお、メッセージボックスが表示されて保存ができないー！

でも上書き保存はできます＾＾

ちなみに「Application.Quit」のコメントを外せば、アプリを強制終了します。必要に応じてコメント外して使ってください。

VBAで「名前を付けて保存」を禁止する方法を紹介しました。

実務の中では、ファイルを複製させないために有効な手段となるかと思います。

他にも、リボンを編集することで「名前を付けて保存」を表示させない方法もあります。こちらは「Office リボン ファイルタブ内ボタン操作 Excel」で紹介しているので参考にしてみてください。
＞＞Office リボン ファイルタブ内ボタン操作 Excelはこちら＜＜