Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        'Dim i As Integer
        Dim CmdBar As Microsoft.Office.Core.CommandBar
        Dim ws As Excel.Worksheet
 
        For Each CmdBar In xlApp.CommandBars
            CmdBar.Enabled = False
            Debug.Print(CmdBar.Name & " - " & CmdBar.Index & " - " & _
              CmdBar.Enabled)
        Next
 
 
 
        For Each ws In xlApp.Worksheets
            Debug.Print(ws.Name)
            ws.Protect("1234", , , , True)
            ws.Protect(DrawingObjects:=True, Contents:=True, Scenarios:=True)
            ws.EnableSelection = Excel.XlEnableSelection.xlNoSelection
        Next
 
        wb = xlApp.Workbooks(xlFilename)
        wb.Protect("1234", True, True)
 
        xlApp.EnableCancelKey = Excel.XlEnableCancelKey.xlDisabled
        xlApp.EnableEvents = False
 
    End Sub