Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Ocultar planilhas p...
 
Notifications
Clear all

Ocultar planilhas por atalho (sem botão)

 
2024 - VBA & Macros
2 Posts
1 Usuários
0 Reactions
1,339 Visualizações
RSS
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Respondendo a pergunta do mprbraex do tópico que foi trancado:

Bom dia pessoal,

Estou tentando fazer um macro que oculte todas planilhas sem botão!

Nome meu caso eu tenho 4 planilhas e gostaria de criar uma macro com botão de atalho(ctrl+q), tem a possibilidade?


Desde ja,

Grato,

Creio que seria isso,

Sub ESCONDER()

Application.MacroOptions Macro:="ESCONDER", Description:="", ShortcutKey:="q" 'você poder mudar esse "q" para um outro atalho qualquer

Dim x As Integer

On Error Resume Next
For x = 2 To Sheets.Count
Worksheets(x).Select
ActiveWindow.SelectedSheets.Visible = False
Next x

End Sub

Creio que não há como esconder TODAS as planilhas.
Pelo menos uma deve estar aparecendo.

 
Postado : 05/10/2010 2:28 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

De fato até aonde eu sei não ha como esconder todas sem deixar pelo menos uma Visivel, utilizando-se a Propriedade Visible da Workshhets, porem se a questão não envolver segurança podemos Ocultar Todas as planilhas utilizando :

Sub OcultaJanela()

Application.MacroOptions Macro:="OcultaJanela", Description:="", ShortcutKey:="q"  'você poder mudar esse "q" para um outro atalho qualquer
    
    ActiveWindow.Visible = False

End Sub

Quando eu disse segurança, é que com esse recurso podemos ir no Menu / Janela / Reexibir, mas dependendo o que for fazer é uma opção a mais.

[]s

 
Postado : 05/10/2010 9:22 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico