Notifications
Clear all

Macro

4 Posts
2 Usuários
0 Reactions
1,335 Visualizações
(@cybertica)
Posts: 43
Eminent Member
Topic starter
 

Boas
Tenho a seguinte macro retirada de um forum:

Private Sub Workbook_Open()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHeadings = False
End Sub

Até aqui tubo bem, agora não sei como voltar ao normal.
eu gostava que fosse atravez de uma tecla é possivel?
Obrigado

 
Postado : 29/11/2012 6:50 pm
Charlie-81
(@charlie-81)
Posts: 290
Reputable Member
 

Cybertica... bom dia!

Primeiramente gostaria de solicitar que quando for criar algum tópico, utilize um título mais adequado e mais inteligente, ou seja, que faça referência à sua dúvida.

Bem, entrando na sua questão.
O código que você informou faz com que as barras de ferramentas e cabeçalho do excel fiquem ocultos ao iniciar o mesmo.
No exemplo que anexei, você possui duas opções para voltar a exibir as barras. Uma opção é através do botão "EXIBIR" e outra opção é utilizando a tecla de atalho "Ctrl+e" (conforme você gostaria).
Para ocultar novamente, utilize o botão "OCULTAR" ou as teclas de atalho "Ctrl+Shift+e".

P.S: Lembro que o exemplo foi criado no Excel 2010

Se a resposta foi últil, favor encerrar o tópico e agradecer pela mesma.

Blue eye | MB Intel Extreme DX58SO | Termaltake 775W | I7 950 LGA 1366 (Overclock 5.3 GZ) | Corsair Vengeance 16 GB | WC Corsair H70 | Aerocool Touch 2000 | Razer Mamba 4G | Som Volcano 50W RMS | Cooler Zalmam | HD 2TB | Radeon HD 8670 | Monitor 32'

 
Postado : 30/11/2012 1:11 am
(@cybertica)
Posts: 43
Eminent Member
Topic starter
 

Obrigado

É mesmo isto que eu queria.
E claro peço desculpa pelo tópico.

 
Postado : 30/11/2012 4:35 am
Charlie-81
(@charlie-81)
Posts: 290
Reputable Member
 

Disponha... sempre que precisar, pode contar com o Planilhando.

Blue eye | MB Intel Extreme DX58SO | Termaltake 775W | I7 950 LGA 1366 (Overclock 5.3 GZ) | Corsair Vengeance 16 GB | WC Corsair H70 | Aerocool Touch 2000 | Razer Mamba 4G | Som Volcano 50W RMS | Cooler Zalmam | HD 2TB | Radeon HD 8670 | Monitor 32'

 
Postado : 01/12/2012 9:32 am