Macro Automatica

[Tavinho]

Olá Pessoal ...

To me aventurando um pouquinho no Vba, e to com uma duvidazinha básica...

Por exemplo, num documento do Word preciso manter sempre algumas caracteristicas padrões, para isso criei e salvei uma macro como AutoExec...

Funcionou beleza ...

Porém no Excel, não to conseguindo fazer isso funcionar ...

Alguém sabe como posso fazer para que quando algúem abrir o Excel o programa já execute uma macro com minhas configurações padrões ????

As configurações de Segurança já foram definidas como baixa, para aceitar as macros ...

Só mais uma coisinha...

Tem como eu ocultar um dos menus do Excel via Vba para que o usuário não acesse de outra maneira a não ser usando um form por exemplo ???

Até mais ...

Abraços

Flwww

Editado Novembro 8, 2005 por Tavinho

[Tavinho]

Alguém ....

[fahledu]

faça uma busca pela ajuda do editor do visual basic, que tem o que você deseja...

Se eu não estiver enganado será algo assim:

expressão.ExecuteExcel4Macro(String)

Abraços

[Lisandro Oliveira]

Olá Pessoal ...

To me aventurando um pouquinho no Vba, e to com uma duvidazinha básica...

Por exemplo, num documento do Word preciso manter sempre algumas caracteristicas padrões, para isso criei e salvei uma macro como AutoExec...

Funcionou beleza ...

Porém no Excel, não to conseguindo fazer isso funcionar ...

Alguém sabe como posso fazer para que quando algúem abrir o Excel o programa já execute uma macro com minhas configurações padrões ????

As configurações de Segurança já foram definidas como baixa, para aceitar as macros ...

Só mais uma coisinha...

Tem como eu ocultar um dos menus do Excel via Vba para que o usuário não acesse de outra maneira a não ser usando um form por exemplo ???

Até mais ...

Abraços

Flwww

Bom dia Tavinho,

Abra seu arquivo, faça as configurações desejadas,

Agora vá no menu Arquivo / Salvar como

Na opção SALVAR COM TIPO, escolha Modelo(*.xlt)

Pronto, agora feche o excel e abra -o novamente e vá em Arquivo / Novo

Escolha o arquivo que você acabou de salvar.

beleza??

Abraços

Lisandro Oliveira.

[Tavinho]

Desculpa a demora aeeww..

Valeu Lisandro .. e pessoal ..

vocês são "os Caras"

Abraços

Falowww

[anderflash]

tavinho, há o evento open do workbook

ou seja:

• ALT+F11 para abrir o window do VBA
• Duplo Clique em Esta Pasta de Trabalho no project explorer (abrirá a janela de code dele)
• Selecione nos comboboxes acima desta janela (o combobox esquero->workbook, direito->open)
• aparecerá uma espécie de procedimento (evento para ser mais preciso), digite o nome da macro dentro dela (esteja ciente de que a macro deve estar com a palavra reservada public na declaração->public sub macro1())

Salve o trabalho e abra novamente, veja se ele dá certo...

O que você fez foi chamar a macro no evento open do arquivo.xls, quando ele abrir, ele aciona este evento e executa o que estiver dentro.

beleza?

[Tavinho]

Opá Valeu Ander Flash...

É uma boa opção também ... Não tinha me tocado no fato dos eventos ...

Valeuu aeeww...

[Guest Thiago Querobim]

Prezados, bom dia!

É a primeira vez que utilizo esses tópicos!

Atualmente trabalho em uma grande empresa e a todo tempo utilizo o Excel!

Preciso de uma macro para que o excel salvo de tempos em tempos automáticamente, consegui uma macro mas não estou vendo resultados, não se estou inserindo errado, alguém pode me ajudar?

Sub macro1()

ActiveWorkbook.SaveAs Filename:= _

"C:\Back up Marcio\Sonoco\Back up Excel\Back up Old\Turno Corrente " & Hour(Time) & "h" & Minute(Time) & "de" & Day(Now) & "-" & Month(Now) & "-" & Year(Now) & ".xls" _

, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _

ReadOnlyRecommended:=False, CreateBackup:=False

End Sub

Sub executarMacro()

Application.OnTime TimeValue("6:00:00"), _

Procedure:="macro1"

Application.OnTime TimeValue("8:35:00"), _

Procedure:="macro1"

End Sub

[FabianoCRZ]

Prezados, bom dia!

É a primeira vez que utilizo esses tópicos!

Atualmente trabalho em uma grande empresa e a todo tempo utilizo o Excel!

Preciso de uma macro para que o excel salvo de tempos em tempos automáticamente, consegui uma macro mas não estou vendo resultados, não se estou inserindo errado, alguém pode me ajudar?

Sub macro1()

ActiveWorkbook.SaveAs Filename:= _

"C:\Back up Marcio\Sonoco\Back up Excel\Back up Old\Turno Corrente " & Hour(Time) & "h" & Minute(Time) & "de" & Day(Now) & "-" & Month(Now) & "-" & Year(Now) & ".xls" _

, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _

ReadOnlyRecommended:=False, CreateBackup:=False

End Sub

Sub executarMacro()

Application.OnTime TimeValue("6:00:00"), _

Procedure:="macro1"

Application.OnTime TimeValue("8:35:00"), _

Procedure:="macro1"

End Sub

Caro amigo Thiago:

Vamos ver se entendi o que você quer:

Você precisa que em determinados momentos sua planilha seja salva automaticamente, para isso basta você fazer o seguinte :

No VBE ( Visual Basic Editor ) onde você escrev as sub, dê dois cliques em "Esta pasta de trabalho" e coloque essa sub

Sub workbook_open()
Call salvar 
End Sub

Crie um modulo e coloque essa sub :

Sub salvar()
ActiveWorkbook.Save
executa
End Sub

Crie outro modulo e coloque essa sub :

Sub executa()
Application.OnTime Now + TimeValue("00:00:05"), "salvar" 'escolha o tempo que será salvo ( hh:mm:ss )
End Sub

Salve o arquivo, feche o Excel.

Agora todas as vezes que você entrar no Excel será carregada a sub e a cada tempo que você pré-determinar o arquivo será salvo.

Espero ter ajudado!!