Este fórum está sendo desativado

[pinheirosth]

Execultando o código abaixo me retorno o seguinte erro quando alterno entre uma planilha e outra ( nova ou já existente)

"Erro em tempo de execução 1004"

E ao depurar a seta amarela fica na linha " Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" "


Informação Adicional: coloquei na "Esta pasta de Trabalho" o código

Private Sub Workbook_Deactivate()
Call TelaNormal
End Sub

Private Sub Workbook_Activate()
Call TelaCheia
End Sub


Private Sub Workbook_Open()
Call TelaCheia
End Sub

Private Sub Workbook_Close()
Call TelaNormal
End Sub
====================================================

Sub TelaCheia()


With Application

Application.ScreenUpdating = False
Application.EnableEvents = False

Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
Application.Caption = "HR Reports"

With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
.DisplayHeadings = False
.DisplayGridlines = False
End With

Application.ScreenUpdating = True
Application.EnableEvents = True

End With

End Sub
++++++++++++++++++++++++++++++++++++++++++++++++++++
Sub TelaNormal()

With Application

Application.ScreenUpdating = False
Application.EnableEvents = False

Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
Application.Caption = ""

With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
.DisplayHeadings = True
.DisplayGridlines = True
End With

Application.ScreenUpdating = True
Application.EnableEvents = True

End With

End Sub

[babdallas]

Tente usar este código:

Código: Selecionar todos

CommandBars.ExecuteMso "HideRibbon"