Usuários do Excel
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Executar Macro ao Iniciar/Sair do Excel

2 participantes

Ir para baixo

Executar Macro ao Iniciar/Sair do Excel Empty Executar Macro ao Iniciar/Sair do Excel

Mensagem por joaoosvaldo Dom Ago 11, 2013 7:12 am

Boas.

Estou a tentar iniciar uma macro ao iniciar o excel mas não está a funcionar não sei por que razão. Simplesmente não faz nada! O código que estou a utilizar é:

Código:
Sub Entrar()
    Dim barras

    On Error Resume Next

    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
    Application.DisplayStatusBar = False
 
End Sub
E depois o código para executar ao iniciar:

Código:
Private Sub Workbook_Open()
    Entrar
End Sub
Estou também a fazer outro ao sair do excel mas não funciona também:

Código:
Sub Sair()
    Dim barras
 
    On Error Resume Next
 
    For Each barras In Application.CommandBars
        barras.Enabled = True
    Next
 
    Application.DisplayStatusBar = True
    Application.DisplayFormulaBar = True
    Application.DisplayFullScreen = False
    ActiveWindow.DisplayHeadings = True
    ActiveWindow.DisplayHorizontalScrollBar = True
    ActiveWindow.DisplayVerticalScrollBar = True
    ActiveWindow.DisplayWorkbookTabs = True

End Sub
E o código para executar ao sair:

Código:
Private Sub Workbook_BeforeClose()
    Sair
End Sub
Não estou a conseguir colocar isto a funcionar. Alguém tem ideia do que posso estar a fazer mal?

Cumprimentos,

Osvado Sousa

joaoosvaldo
Iniciante
Iniciante

Mensagens : 33
Data de inscrição : 25/06/2013

Ir para o topo Ir para baixo

Executar Macro ao Iniciar/Sair do Excel Empty Re: Executar Macro ao Iniciar/Sair do Excel

Mensagem por adilsonsoledade Dom Ago 11, 2013 7:50 pm

Boa noite, Osvaldo.
Algumas considerações importantes:
- As macros Entrar e Sair devem estar numa folha de macro convencional
- As macros Workbook_Open e Workbook_BeforeClose devem ser inseridas como eventos do objeto EstaPasta_de_Trabalho, dando dois cliques sobre o objeto para exibir a folha correspondente.
- É necessária uma pequena correção no Evento BeforeClose

Código:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sair
End Sub
- O arquivo deve estar salvo num local configurado como seguro utilizando-se a central de confiabilidade do Excel.
- A central deve estar configurada para solicitar a confirmação da ativação de macros.

Tomando-se os cuidados acima as macros devem funcionar bois não há erros de compilação.

[ ]s
adilsonsoledade
adilsonsoledade
Admin

Mensagens : 32
Data de inscrição : 28/06/2011
Idade : 53
Localização : São Paulo/ SP

https://usuariosdoexcel.wordpress.com

Ir para o topo Ir para baixo

Executar Macro ao Iniciar/Sair do Excel Empty Re: Executar Macro ao Iniciar/Sair do Excel

Mensagem por joaoosvaldo Seg Ago 12, 2013 8:20 am

Desde já obrigado pela resposta.

Não sei como fazer isto:

"As macros Workbook_Open e Workbook_BeforeClose devem ser inseridas como eventos do objeto EstaPasta_de_Trabalho, dando dois cliques sobre o objeto para exibir a folha correspondente."

Pode me explicar como faço isto? Obrigado.

Cumprimentos,

Osvaldo

joaoosvaldo
Iniciante
Iniciante

Mensagens : 33
Data de inscrição : 25/06/2013

Ir para o topo Ir para baixo

Executar Macro ao Iniciar/Sair do Excel Empty Re: Executar Macro ao Iniciar/Sair do Excel

Mensagem por adilsonsoledade Seg Ago 12, 2013 9:19 am

Bom dia,
Montei essa apresentação aqui com o passo a passo.
http://www.slideshare.net/AdilsonSoledade/eventos-pastadetrabalho
Sugiro que dê uma olhada no Blog, buscando pela palavra-chave Eventos.
Há vários artigos mostrando funcionalidades como essas e outras relacionadas ao tema.
[ ]s
adilsonsoledade
adilsonsoledade
Admin

Mensagens : 32
Data de inscrição : 28/06/2011
Idade : 53
Localização : São Paulo/ SP

https://usuariosdoexcel.wordpress.com

Ir para o topo Ir para baixo

Executar Macro ao Iniciar/Sair do Excel Empty Re: Executar Macro ao Iniciar/Sair do Excel

Mensagem por joaoosvaldo Seg Ago 12, 2013 10:32 am

Funcionou perfeitamente. Muito Obrigado Wink.

joaoosvaldo
Iniciante
Iniciante

Mensagens : 33
Data de inscrição : 25/06/2013

Ir para o topo Ir para baixo

Executar Macro ao Iniciar/Sair do Excel Empty Re: Executar Macro ao Iniciar/Sair do Excel

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos