Então, vale lembrar que isto não ocorre no Excel 2003, mas no Excel 2007 as opções não são mantidas, pelo simples fato do Excel 2007 utilizar "Ribbons", então para se evitar isto devemos utilizar as rotinas abaixo :
Mais uma vez lembrando, é para Excel 2007 :
Código: Selecionar todos
Sub TelaCheia_On()
'Oculta todos os Menus (Ribbons)
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHeadings = False
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
.DisplayHeadings = False
.DisplayZeros = False
.DisplayHeadings = False
.DisplayGridlines = False
End With
End Sub
Sub TelaCheia_Off()
'Exibe todos os Menus (Ribbons)
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
Application.DisplayFormulaBar = True
ActiveWindow.DisplayHeadings = True
With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
.DisplayHeadings = True
.DisplayZeros = True
.DisplayHeadings = True
.DisplayGridlines = True
End With
End Sub
A Rotina abaixo não funcionará se rodar no Editor do VBA, a mesma tem dde ser chamada via opção, Caixa de Macros, Excutar, ou "ALT+F8" escolher a rotina "OcultaRibbon" e Excutar.
Código: Selecionar todos
Sub OcultaRibbon()
Application.SendKeys "^{F1}", True
End Sub
Não da para repassar tudo aqui, mas de uma olhada no link abaixo, tem um tutorial de personalização, e como eu aina estou estudando a respeito e devido ao meu local de trabalho só ter a v 2003, não pude me aprofundar mais, mas vejam que não é tão dificil :
Um guia para personalizar a Faixa de Opções do 2007 Office
http://64.4.10.145/pt-br/magazine/dd633481
Existe até um programa que pode ser baixado da Microsot para facilitar.
Microsoft Office 2007 Custom UI Editor
http://microsoft-office-2007-custom-ui- ... ormer.com/
Façam os testes, e qualquer duvida retornem no Forum.
[]s