Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Executar macro apenas num livro

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
blackbass



Mensagens : 2
Data de inscrição : 01/03/2012

MensagemAssunto: Executar macro apenas num livro   Qui Mar 01, 2012 2:23 pm

Bom dia

Necessito da vossa ajuda:

Criei uma macro para se executar automáticamente quando abro um ficheiro excell.
Essa macro oculta as barras de ferramentas quando o ficheiro abre. O problema é que se abrir outro ficheiro de excell as barras de ferramentas aparecem ocultas também para esses ficheiros.
como posso fazer para que essa macro apenas se execute nesse livro?
Estou a usar excel 2003

Obrigado
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Executar macro apenas num livro   Sex Mar 02, 2012 1:23 am

Boa noite!!!

Seja bem Vindo!!

Qual é a rotina usada?

Poste o código
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Executar macro apenas num livro   Sex Mar 02, 2012 5:08 pm

Bom dia!!!

Acho que é isso que você quer!

Código:
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Tela cheia este código fica dentro do EstaPasta_de_Trabalho
    AppReset (True)    '<- AppRest controls Full Screen
End Sub

Private Sub Workbook_Open()
''''''''''''''''''''''''''''''''''''''''''''''''
'Show FullScreen
''''''''''''''''''''''''''''''''''''''''''''''''
    AppReset False
End Sub
Private Sub Workbook_Activate()
    AppReset (False)
End Sub
Private Sub Workbook_Deactivate()
    AppReset (True)
End Sub
'|----outra parte----|
Option Explicit
'Essecódigo fica dentro da planilha em especicamente escolhida
'para somente essa ceitar esse comando
Sub AppReset(OK As Boolean)
    Application.DisplayFullScreen = Not OK
    '  ActiveWindow.DisplayHeadings = OK
    On Error Resume Next
    Application.OnKey "{ESC}", ""
    Application.CommandBars("Full Screen").Visible = False
    On Error GoTo 0
End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
blackbass



Mensagens : 2
Data de inscrição : 01/03/2012

MensagemAssunto: Re: Executar macro apenas num livro   Sex Mar 02, 2012 7:39 pm

Obrigado por responder!

Aqui vai o meu código:



Sub auto_open()

Dim barras
For Each barras In Application.CommandBars

barras.Enabled = False


Next
Application.DisplayFullScreen = True
ActiveWindow.DisplayHeadings = False

Application.DisplayFormulaBar = False

ActiveWindow.DisplayHorizontalScrollBar = False

ActiveWindow.DisplayVerticalScrollBar = False

ActiveWindow.DisplayWorkbookTabs = False


End Sub


Sou principiante nestas coisas. Por isso perdoem qualquer pergunta idiota...
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Executar macro apenas num livro   Sab Mar 03, 2012 4:51 am

Boa noite!!!

Substitua o código da minha postagem anterior pelo seu!
Veja se vai dar certo..

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Executar macro apenas num livro   Hoje à(s) 1:34 pm

Voltar ao Topo Ir em baixo
 
Executar macro apenas num livro
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Executar Macro excel pelo Access
» Executar macro sem pedir confirmações
» Executar Macro Access Via BAT
» Fazer GM executar código externo - Consegui - Porém outros problemas...
» [Resolvido] Estranho bug ao executar arquivos externos

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: