Desabilitar Ribbon

Question

Olá, fiz uma sub no Excel VBA para desabilitar a Ribbon mas quando fecho a planilha e depois abro novamente a Ribbon é habilitada novamente. Como faço para manter a Ribbon desabilitada?

Criei o Módulo 1 e seguem os comandos:

Sub TelaMenu()

   With Application

    .ScreenUpdating = False

    .EnableEvents = False      

      .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", False)"

      .DisplayFormulaBar = False

      .DisplayStatusBar = False   

      With ActiveWindow

        .DisplayHorizontalScrollBar = True

        .DisplayVerticalScrollBar = True

        .DisplayWorkbookTabs = False

        .DisplayHeadings = False

        .DisplayGridlines = False        

      End With

      .ScreenUpdating = True

      .EnableEvents = True

   End With

-------------------------------------------------------------------------------------------------------------

Sub TelaNormal()

   With Application   

    .ScreenUpdating = False

    .EnableEvents = False

      .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", true)"

      .DisplayFormulaBar = True

      .DisplayStatusBar = True      

        With ActiveWindow        

        .DisplayHorizontalScrollBar = True

        .DisplayVerticalScrollBar = True

        .DisplayWorkbookTabs = True

        .DisplayHeadings = True

        .DisplayGridlines = True               

      End With

      .ScreenUpdating = True

      .EnableEvents = True

   End With

End Sub

Answer 1

Coloca no evento Workbook Open

Private Sub Workbook_Open()

End Sub

---

A melhor forma de agradecer e votar como util e / ou marcar como resposta. Anderson Diniz [e-mail]