Excelファイルの一括保存を無効にする

Question

私はExcelで「名前を付けて保存」を無効にする方法を研究している可能性があります。私は変更を行うExcelファイルの束をループするマクロを持っています。そのマクロでは、すべてのファイルに対して「名前を付けて保存」を無効にしたいと思います。これは可能ですか？

Answer 1

アプリケーションオブジェクトを使用します。それは、それぞれに「名前を付けて保存」を無効ので、あなただけのすべてのファイルまたはワークブックにループコードにこの行を追加します。

Application.CommandBars("Worksheet Menu Bar").Controls("File").Controls("Save As...").Enabled = False 
Application.CommandBars("Worksheet Menu Bar").Controls("File").Controls("Save").Enabled = False 

は、それがどのようになる教えてください。

Answer 2

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 

    MsgBox "You can't save this workbook!" 
    Cancel = True 

End Sub