ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Executar Comando ao Abrir & Fechar o Planilha

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Barucky
Colaborador
Colaborador
Mensagens: 13
Registrado em: Seg Jul 24, 2017 8:17 pm

Executar Comando ao Abrir & Fechar o Planilha

Mensagem por Barucky » Dom Jul 30, 2017 4:09 pm

Pessoal, Boa tarde!!!!
Gostaria se possível a uma ajuda nos códigos abaixo:
Tenho um documento que ao inicializar cria se uma aba chamada "TESTE".
logo depois vem vários comandos na qual vocês me ajudaram a construir e fico muito agradecido...
Agora já para terminar este trabalho preciso que ao aperta o Botão "X" Fechar ele exclua a aba "TESTE" criada só ficando com a PlAN1.
Novamente peço a você Socooooorro,

Este é a mesagem de erro que dá:
Erro de Copilação
Sub ou Function não definida


No aguardo!!!!


************ Ao fechar o Arquivo Botão "X", da planilha ********************
'este comando se encontra no project ("esta pasta de trabalho")

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Sheet("TESTE").Select
ActiveWindow.SelectedSheets.Delete

Application.DisplayAlerts = False
ActiveWorkbook.Close True
End Sub
_______________________________________________________________________________

************ Ao Inicializar o Aplicativo ********************
'este comando se encontra no modulo

Public Sub Workbook_Open()

Call ADD

End Sub
_______________________________________________________________________________
Sub ADD()

Sheets.ADD
ActiveSheet.Name = "TESTE"

On Error Resume Next
End Sub



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Wagner.cwb
Manda bem
Manda bem
Mensagens: 168
Registrado em: Sáb Set 24, 2016 4:48 pm

Re: Executar Comando ao Abrir & Fechar o Planilha

Mensagem por Wagner.cwb » Dom Jul 30, 2017 10:00 pm

Olá amigo!

bom, vc praticamente fez tudo certo.
Se o seu problema é só executar "deletar" a plan "teste".

Eu fiz aqui e funcionou assim:

colei o código na "EstaPasta de trabalho"

Código: Selecionar todos

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Call Modulo2.teste ' aqui vc coloca o nome do módulo que vc tem aí que contém os comandos para deletar.

End Sub
Criei um módulo e escrevi o comando:

Código: Selecionar todos

Sub teste()
Application.DisplayAlerts = False

Worksheets("Teste").Delete
Application.DisplayAlerts = True
End Sub
Aqui funcionou assim.

Não sei qual será sua rotina... eu criaria um "if" para verificar se existe ou não a plan "teste" para não travar na hipótese de não existir,
mas olhando as suas instruções, parece que sempre ao abrir a plan, tal teste será criada...

Espero que ajude, abs!



Barucky
Colaborador
Colaborador
Mensagens: 13
Registrado em: Seg Jul 24, 2017 8:17 pm

Re: Executar Comando ao Abrir & Fechar o Planilha

Mensagem por Barucky » Seg Jul 31, 2017 11:52 am

Bom dia, Wagner

Sensacional funcionou perfeitamente,
Muito Obrigado novamente....
Abraços!!!!



Wagner.cwb
Manda bem
Manda bem
Mensagens: 168
Registrado em: Sáb Set 24, 2016 4:48 pm

Re: Executar Comando ao Abrir & Fechar o Planilha

Mensagem por Wagner.cwb » Ter Ago 01, 2017 11:12 pm

Barucky escreveu:
Seg Jul 31, 2017 11:52 am
Bom dia, Wagner

Sensacional funcionou perfeitamente,
Muito Obrigado novamente....
Abraços!!!!
maravilha, fico feliz por ajudar, só não esquece de modificar o título para "RESOLVIDO".

Abs!



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Barucky
Colaborador
Colaborador
Mensagens: 13
Registrado em: Seg Jul 24, 2017 8:17 pm

Resolvido: Executar Comando ao Abrir & Fechar o Planilha

Mensagem por Barucky » Qui Ago 24, 2017 10:37 am

Barucky escreveu:
Dom Jul 30, 2017 4:09 pm
Pessoal, Boa tarde!!!!
Gostaria se possível a uma ajuda nos códigos abaixo:
Tenho um documento que ao inicializar cria se uma aba chamada "TESTE".
logo depois vem vários comandos na qual vocês me ajudaram a construir e fico muito agradecido...
Agora já para terminar este trabalho preciso que ao aperta o Botão "X" Fechar ele exclua a aba "TESTE" criada só ficando com a PlAN1.
Novamente peço a você Socooooorro,

Este é a mesagem de erro que dá:
Erro de Copilação
Sub ou Function não definida


No aguardo!!!!


************ Ao fechar o Arquivo Botão "X", da planilha ********************
'este comando se encontra no project ("esta pasta de trabalho")

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Sheet("TESTE").Select
ActiveWindow.SelectedSheets.Delete

Application.DisplayAlerts = False
ActiveWorkbook.Close True
End Sub
_______________________________________________________________________________

************ Ao Inicializar o Aplicativo ********************
'este comando se encontra no modulo

Public Sub Workbook_Open()

Call ADD

End Sub
_______________________________________________________________________________
Sub ADD()

Sheets.ADD
ActiveSheet.Name = "TESTE"

On Error Resume Next
End Sub



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder