Passagem de Excel 2003 para Excel 2010

Fechado
FzDamepa
Posts
1
Data de inscrição
quarta 30 de janeiro de 2013
Status
Membro
Última visita
30 de janeiro de 2013
- 30 jan 2013 às 11:22
Bom dia,
Olá,
Em um arquivo Excel 2003, tinha as rotinas macros apresentadas abaixo que funcionavam bem. Agora que trouxe o arquivo para o Excel 2010, uma macro 'BarrasAnular' funcionou direitinho, mas 'BarrasAtivar' não funciona, não me permitindo efetuar algumas correções de planilhas. Acredito que o problema esteja no ponto do Excel 2010 não ter 'barras', mas não sei como corrigir o problema.

BarrasAnular Sub ()
Application.ScreenUpdating = False
Application.DisplayFullScreen = True
Application.CommandBars ("Menu Bar Planilha"). Enabled = False
Application.CommandBars ("Formatação"). Visible = False
Application.CommandBars ("Standard"). Visible = False
Application.CommandBars ("Imagem"). Visible = False
Application.CommandBars ("WordArt"). Visible = False
Application.CommandBars ("Quadro"). Visible = False
Application.CommandBars ("Saque"). Visible = False
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
Com ActiveWindow
. DisplayHeadings = False
. DisplayGridlines = False
. DisplayWorkbookTabs = False
. DisplayHorizontalScrollBar = False
. DisplayVerticalScrollBar = False
. DisplayZeros = False
End With
End Sub

BarrasAtivar Sub ()
Application.ScreenUpdating = False
Application.DisplayFullScreen = False
Application.CommandBars ("Menu Bar Planilha"). Habilitado = True
Application.CommandBars ("Formatação"). Visible = True
Application.CommandBars ("Standard"). Visible = True
Application.DisplayFormulaBar = True
Com ActiveWindow
. DisplayHeadings = True
. DisplayGridlines = True
. DisplayWorkbookTabs = True
. DisplayHorizontalScrollBar = True
. DisplayVerticalScrollBar = True
. DisplayZeros = True
End With
Sheets ("Tabelas"). Visible = True
Sheets ("Ficha"). Visible = True
End Sub

Agradeço desde já toda a ajuda,

Rui

Assine nossa newsletter!

Assine nossa newsletter!