Notifications
Clear all

Executar macro ao iniciar planilha

6 Posts
2 Usuários
0 Reactions
2,636 Visualizações
(@caiobispo)
Posts: 53
Trusted Member
Topic starter
 

Amigos, boa noite!

Estou com um problema chato pra resolver. Minhas planilhas estão salvas em uma pasta através do WEB-SharedPoint e nossos colaboradores tem um grande problema com esse link, com isso decidi criar uma planilha local que chamassem essas planilhas e foi ai que meu problema começou. A macro que fiz para chamar as planilhas através de um HiperLink no SharedPoint funcionou perfeitamente, mas todas minhas macros que executam automaticamente ao abrir a planilha já não funcionam mais.

Código que chama as planilhas OnLine

Sub Chamar_Planilha_SNE()

    Workbooks.Open Filename:= _"Link do shared Point"
        
 Call Fechar
        
End Sub
-------------------------------------------------------------------
Sub Fechar()

  ThisWorkbook.Saved = True
  ThisWorkbook.Close

End Sub

Macro que inicia automaticamente com a abertura do Excel

Public Sub Auto_Open()

    Call Saudação

End Sub

Private Sub Saudação()


Dim Mensagem
Dim dHora As Integer
    dHora = Hour(Now)
   Mensagen = "teste"
        
    Select Case dHora
        Case Is >= 18
            ssaudacao = "Boa Noite! " & Application.UserName
        Case Is >= 12
            ssaudacao = "Boa Tarde! " & Application.UserName
        Case Is >= 0
            ssaudacao = "Bom dia! " & Application.UserName
    End Select
        
        Dim Msg As String
    
    Msg = ssaudacao & vbCrLf
    Msg = Msg & " " & vbCrLf
    Msg = Msg & Mensagem
    MsgBox Msg

    [N2].Value = Application.UserName
 
End Sub

Alguem ai tem alguma ideia de como resolver isso, como fazer ele sempre executar a macro ao iniciar a planilha?

 
Postado : 15/06/2014 5:18 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Eu não entendi muito bem, quando você diz planilha é mesmo que guia? caso sim use

Private Sub Worksheet_Activate()

Leia:
http://www.excel-pratique.com/en/vba/wo ... events.php
http://dmcritchie.mvps.org/excel/event.htm
http://www.techrepublic.com/blog/10-thi ... using-vba/

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 15/06/2014 5:24 pm
(@caiobispo)
Posts: 53
Trusted Member
Topic starter
 

Alexandre, bom dia!

Não não, quando digo planilha é uma outro arquivo. Vou tentar explicar melhor.

Tenho uma planilha com que possui 20 botões, cada botão abre o arquivo referente ao serviço "X". Esses arquivos antes ficavam em um PC na rede, mas nem sempre ele ficava ligado ( ou pq caiu a energia, ou pq o cara da sala o desligou e talz), então decidi criar um workspace através do SharedPoint mesmo, e ficou tudo perfeito. Então reprogramei minhas macros da planilha para, ao invés de chamar o arquivo de uma pasta na rede, agora ele chama um link na internet, e esta perfeito, sem nenhum problema, e a unica coisa que deixou de funcionar foram minhas macros que ativavam quando o arquivo é aberto. Já tentei utilizar o Worksheet_Activate mas nem assim foi.

Postei acima meus códigos para ver o que esta havendo, pois não estou entendendo o porque em rede local ele funciona e na WEB não. A macro ela faz o download na pasta temp e depois abre o arquivo. Já mudei para fazer o donload na area de trabalho e abrir e tambem nao funcionou.Todas as macros funcionam perfeitamente, somente as que quando abre o excel que não funcionam.

Unico raciocinio que tive foi. Minha macro funciona assim: Abre o arquivo com planilha de serviços. Nesta planilha a macro para chamar os arquivos na WEB funciona da seguinte maneira: Abre o arquivo direto na web (usando o excel local), quando esse arquivo é aberto, creio que não roda alguma função que a macro identifique que um novo arquivo foi abeerto.

Ja tentei de tudo. e nada =(

 
Postado : 16/06/2014 9:14 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Se o problema está envolvendo segurança de macros, temos alguns post no fórum sobre o assunto.

Eu sugiro que use a pesquisa do fórum!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 16/06/2014 10:34 am
(@caiobispo)
Posts: 53
Trusted Member
Topic starter
 

Eu andei pesquisando e não encontrei algo a respeito. Creio que o problema não seja segurança propriamente, pois esta tudo funcionando, o que ocorre é a macro de executar quando a planilha é iniciada deixa de funcionar quando é acessada por um hiperlink

 
Postado : 17/06/2014 10:40 am
(@caiobispo)
Posts: 53
Trusted Member
Topic starter
 

Andei pesquisando e encontrei um possivel problema que não consigo corrigir. Penso que a macro nao ativa porque a Workbook esta aberto e a função deve verificar, se ele esta aberto nao faz nada, se estiver fechado, abre e executa as rotinas. Minha dúvida é, como rodar uma função após o fechamento do Workbook, ou executar a rotina que quero em outro arquivo automaticamente se o Workbook esta aberto.

 
Postado : 17/06/2014 7:08 pm