Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
rodar Application. ...
 
Notifications
Clear all

rodar Application. "apenas minha planilha"

 
2024 - VBA & Macros
Post Recente por JNEXCEL 7 anos atrás
7 Posts
3 Usuários
0 Reactions
1,561 Visualizações
RSS
 JNEXCEL
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

Prezados, bom dia!

Por favor, alguém MUITO mais qualificado do que eu poderia me ajudar?

como faço para utilizar o comando abaixo apenas para uma pasta de trabalho especifica?

o comando abaixo oculta todas as guias e "tudo mais", porém eu gostaria de saber como faço para que isso seja aplicado apenas em uma pasta especifica?

Exemplo: eu tenho uma pasta1 (com 3 planilhas) e uma pasta2 (com mais três planilhas) eu gostaria de saber como faço para rodar esse código apenas na pasta1 e não em todas as pastas

situação: se você quiser testar faça o seguinte: criei uma pasta1 e cole o código abaixo na workbook e quando ele for aberta todas as guias e "tudo mais será ocultado" ATÉ AQUI TUDO BEM o problema vem agora :(

com a pasta1 aberta, ABRA A PASTA2, o que acontece é que a pasta2 também fica com as guias ocultas

:(

eu gostaria de saber como posso rodar esse código em apenas uma pasta especifica e quando for abrir qualquer outro arquivo do excel esse código não seja executado (hoje atualmente ele é executado).

existe algo do tipo:

Private Sub Workbook_Open_MINHAPASTA1

código completo.

Private Sub Workbook_Open()
    
    'Oculta todas as guias de menu
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    
    'Ocultar barra de fórmulas
    Application.DisplayFormulaBar = False
    
    'Ocultar barra de status, disposta ao final da planilha
    Application.DisplayStatusBar = False
    
    'Alterar o nome do Excel
    Application.Caption = "JNEXEL"
    
    With ActiveWindow
        'Ocultar barra horizontal
        .DisplayHorizontalScrollBar = False
        
        'Ocultar barra vertical
        .DisplayVerticalScrollBar = False
        
        'Ocultar guias das planilhas
        .DisplayWorkbookTabs = False
        
        'Oculta os títulos de linha e coluna
        .DisplayHeadings = False
        
        'Oculta valores zero na planilha
        .DisplayZeros = False
        
        'Oculta as linhas de grade da planilha
        .DisplayGridlines = False
    End With
End Sub

mais uma vez muito obrigado a todos.

 
Postado : 28/05/2018 9:40 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Coloque o codigo no evento active da pasta de trabalho e no evento desactive vc deve colocar um codigo que restaure as guias.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 28/05/2018 10:47 am
 JNEXCEL
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

agradeço pela atenção, porém

mesmo assim da erro :(

pastas:

eu tenho uma pasta de trabalho PASTA1 (pasta que vai estar o código postado anteriormente)

e também uma outra pasta PASTA2 (pasta normal SEM MACROS)

Problema:

se eu abrir a pasta 1 e depois abrir a pasta2 (as duas vão estar abertas), ai entra o problema :(

automaticamente a pasta2 fica sem a faixa de opções (eu coloquei um código para remover a faixa de opções na pasta1)

como resolver esse problema?

 
Postado : 28/05/2018 12:03 pm
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Use esse exemplo:

Insira esse código na pasta 1

Private Sub Workbook_Deactivate()
Application.DisplayFormulaBar = True
End Sub

E esse:

Private Sub Workbook_Activate()
Application.DisplayFormulaBar = False
End Sub

Nesse exemplo a barra de fórmula fica desativada apenas na planilha que esse codigo for colado.

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 28/05/2018 12:13 pm
 JNEXCEL
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

agradeço pela atenção.

agora eu só preciso resolver uma questão.

linha de código:

Application.Caption = "PASTA1"

todos os arquivos estão com o nome PASTA1 ao invés de microsoftexcel

 
Postado : 28/05/2018 1:47 pm
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Basta retornar ao valor padrão fazendo assim:

Application.Caption = ""

Tipo:

Private Sub Workbook_Deactivate()
Application.DisplayFormulaBar = True
Application.Caption = ""
End Sub

E esse:

Private Sub Workbook_Activate()
Application.DisplayFormulaBar = False
Application.Caption = "Nome_que_desejar"
End Sub

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 28/05/2018 1:59 pm
 JNEXCEL
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

Muito obrigado a todos pela atenção! :)

 
Postado : 29/05/2018 5:00 am
Forum Jump:
  Tópico Anterior
Próximo Tópico