Página 1 de 1

Deletar Evento na Cópia da Pasta

Enviado: Sex Set 30, 2011 7:12 pm
por Mauro Coutinho
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 373 vezes
Pelo 4shared v2003:

[REMOVIDO]

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

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

[]s