[COLOR=#E56717][FONT=Consolas][B]Sub[/B][/FONT][/COLOR][COLOR=#141414][FONT=Consolas] test()[/FONT][/COLOR]
[COLOR=#8D38C9][FONT=Consolas][B]With[/B][/FONT][/COLOR][COLOR=#141414][FONT=Consolas] Application[/FONT][/COLOR]
[COLOR=#141414][FONT=Consolas] .DisplayFormulaBar = [/FONT][/COLOR][COLOR=#00C2FF][FONT=Consolas][B]False[/B][/FONT][/COLOR]
[COLOR=#141414][FONT=Consolas] .ExecuteExcel4Macro [/FONT][/COLOR][COLOR=#800000][FONT=Consolas]"SHOW.TOOLBAR("[/FONT][/COLOR][COLOR=#800000][FONT=Consolas]"RIBBON"[/FONT][/COLOR][COLOR=#800000][FONT=Consolas]", False)"[/FONT][/COLOR]
[COLOR=#141414][FONT=Consolas] .WindowState = xlMaximized[/FONT][/COLOR]
[COLOR=#141414][FONT=Consolas] ActiveWindow.DisplayHeadings = [/FONT][/COLOR][COLOR=#00C2FF][FONT=Consolas][B]False[/B][/FONT][/COLOR]
[COLOR=#8D38C9][FONT=Consolas][B]End[/B][/FONT][/COLOR][COLOR=#141414][FONT=Consolas] [/FONT][/COLOR][COLOR=#8D38C9][FONT=Consolas][B]With[/B][/FONT][/COLOR]
[COLOR=#8D38C9][FONT=Consolas][B]End[/B][/FONT][/COLOR][COLOR=#141414][FONT=Consolas] [/FONT][/COLOR][COLOR=#E56717][FONT=Consolas][B]Sub[/B][/FONT][/COLOR]