Как я могу отключить Сохранить как в MS Excel в Vb 2010

Question

Хм .. Как я могу отключить кнопку Сохранить как, я могу открыть MS Excel через VB Net, но дело в том, что я также хочу отключить «Сохранить как», как Ms Excel Open ... Пожалуйста, помогите мне СПАСИБО!:) Но не в макросе ..

Вот мой код:

  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, но для пользователя все еще существуют обходные пути, которые позволят им сохранить.