- 02 Dez 2019 às 11:54
#50789
Bom dia,
Espero que possam me ajudar!
Tenho uma planilha que quando ela é aberta, é executado uma instrução para que alguns itens sejam ocultados:
________________________________________________
Sub Tela_cheia()
'Quando abrir o arquivo
Sheets("Instruções").Visible = True
Sheets("BM").Visible = True
Sheets("RATEIO").Visible = True
'
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
With ActiveWindow
.DisplayWorkbookTabs = False
.DisplayHeadings = False
End With
End Sub
________________________________________________
E quando o arquivo é fechado, é executado outras instruções para que exposto os itens que foram ecultos:
________________________________________________
Sub Fechar()
'Quando fechar o arquivo
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
End With
End Sub
________________________________________________
O problema:
Quando este arquivo esta aberto, está afetando outros arquivos que estejam abertos, e quando o aquivo em questão é fechado, mesmo a instrução de fechamento sendo executada, a 'barra de formulas' e 'barra de status' permanecem ocultas.
Queria uma ajuda pra concertar essa instrução, ou modificar.
Fico no aguardo, e desde já, agradeço!!!
Espero que possam me ajudar!
Tenho uma planilha que quando ela é aberta, é executado uma instrução para que alguns itens sejam ocultados:
________________________________________________
Sub Tela_cheia()
'Quando abrir o arquivo
Sheets("Instruções").Visible = True
Sheets("BM").Visible = True
Sheets("RATEIO").Visible = True
'
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
With ActiveWindow
.DisplayWorkbookTabs = False
.DisplayHeadings = False
End With
End Sub
________________________________________________
E quando o arquivo é fechado, é executado outras instruções para que exposto os itens que foram ecultos:
________________________________________________
Sub Fechar()
'Quando fechar o arquivo
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
End With
End Sub
________________________________________________
O problema:
Quando este arquivo esta aberto, está afetando outros arquivos que estejam abertos, e quando o aquivo em questão é fechado, mesmo a instrução de fechamento sendo executada, a 'barra de formulas' e 'barra de status' permanecem ocultas.
Queria uma ajuda pra concertar essa instrução, ou modificar.
Fico no aguardo, e desde já, agradeço!!!