禁用保存button在从vb.net加载的Excel文档中

我使用如下所示的代码加载Excel文档：

Dim exApp As New Excel.Application Dim exWB As Excel.Workbook = exApp.Workbooks.Add(Excel.XlWBATemplate.xlWBATWorksheet) Dim exSheet As Excel.Worksheet exSheet = exWB.ActiveSheet 

有没有办法来禁用生成的文档保存和另存为button？ 到目前为止，我发现的唯一解决scheme涉及写入macros，但这不是我所追求的 。 我需要能够从vb.net应用程序禁用它们。

谢谢

Answer 1

你可以试试这个代码？

 AddHandler exWB.BeforeSave, AddressOf Workbook_BeforeSave Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, ByRef Cancel As Boolean) MsgBox("You are not enable to save.") Cancel = True End Sub