none
Desabilitar Ribbon RRS feed

  • Pergunta

  • 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

    terça-feira, 20 de outubro de 2020 13:44

Todas as Respostas

  • 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 diniabr2011@gmail.com


    terça-feira, 20 de outubro de 2020 17:56