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.

Deletar Evento na Cópia da Pasta

Dicas dos mais variados tipos, necessidades, angústias, enfim
Avatar do usuário
Mauro Coutinho
Jedi
Jedi
Mensagens: 1559
Registrado em: Sáb Mar 13, 2010 8:10 pm
Localização: São José dos Pinhais - Pr

Deletar Evento na Cópia da Pasta

Mensagem por Mauro Coutinho » Sex Set 30, 2011 7:12 pm

Colegas, conforme solicitação do colega dinholeao no Forum abaixo
Remover Private sub numa Worksheet
http://www.planilhando.com.br/forum/vie ... =16&t=2571

Achei por bem, anexar os Modelos, pelo fato de este tipo de procedimento envolver habiltar algumas referencias e opções, então, resolvi montar dois exemplos, versão Excel 2003 e Excel 2007, devido as particularidades de algumas referencias entre as versões, ficando mais fácil a compreensão do que que ter de postar todo o procedimento.

Lembrando que para o perfeito funcionamento :
1 ) As macros teem de estar Habilitadas
2 ) Na Versão 2003, temos de Habilitar a Referencia abaixo na Janela do VBA:
"Microsoft Visual Basic For Applications Extensibility"
no Menu / Ferramentas > Referencias. Na v2007 não precisei habilita-la.
3 ) Na v2003, a opção : "CONFIAR NO ACESSO AO PROJETO DO VISUAL BASIC" tem de estar habilitada, e na, v2007 : "Confiar no Acesso ao modelo de objeto do projeto do VBA"
Nos Modelos tem um passo a passo de como se habiltar estas opções.

A Macro : Sub CheckStatus()
Verifica as condições acima, e se estiverem desabilitadas emitira um msgbox avisando e dando opção de ver a tela para se habilita-las ao Clicar em "SIM". se "NÃO" a macro, DeleteSheetEventCode não funcionará corretamente, saindo da rotina.

Nos dois modelos temos os Eventos e uma macro nas Abas :
Sub Worksheet_Change
Worksheet_SelectionChange, e a
Sub RotinaTeste()

Todas serão excluídas da cópia Gerada na nova Pasta.
Alem do Botão que chama a Rotina :
Sub CopiaPastaSemEvento () e as Caixas de Textos serão excluídas da cópia.

Para a adptação dos modelos usei como referência as instruções mostradas no site da cpearson
Programming The VBA Editor
http://www.cpearson.com/excel/vbe.aspx

Excel 2003
DelEventoNewBook3.rar
(48.87 KiB) Baixado 210 vezes
Pelo 4shared v2003:

[REMOVIDO]

Excel 2007
DelEventoNewBook7.rar
(61.18 KiB) Baixado 211 vezes
Pelo 4shared v2007:
[REMOVIDO]

Espero que ajude,
Façam os testes e qualquer duvida ou Bug, favor reportarem no Forum.

[]s


Mauro Coutinho - Exemplos Somente em Office 2003
São José dos Pinhais - Pr
Se sua Duvida foi solucionada . . . .Acrescente [RESOLVIDO] ao título.
Ficou satisfeito com o FORUM ? Divulgue, indicando-o aos colegas !

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