如何禁用另存爲在Ms Excel中的Vb 2010

Question

嚴。如何禁用另存爲按鈕，我可以通過VB網打開Ms Excel，但事情是我也想禁用'另存爲'作爲Excel女士打開...請幫助我感謝！ :)但不是在宏..

這裏是我的代碼：

Imports Excel = Microsoft.Office.Interop.Excel 

    Dim oXL As Excel.Application 
    Dim oWB As Excel.Workbook 
    Dim oSheet As Excel.Worksheet 

    ' Start Excel and get Application object. 
    oXL = CreateObject("Excel.Application") 
    oXL.Visible = True 
    oXL.WindowState = Excel.XlWindowState.xlMaximized 
    ' Get a new workbook. 
    oWB = oXL.Workbooks.Add 
    oSheet = oWB.ActiveSheet 

如何禁用 '另存爲'？ :)

Answer 1

查找到處理BeforeSave事件：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 
    If SaveAsUI Then 
     Cancel = True 
    End If 
End Sub 

您可以禁用與RibbonX功能區的實際按鈕，但是對於用戶的解決方法依然存在，這將讓他們保存。