Notifications
Clear all

Remover Private sub numa Worksheet

2 Posts
1 Usuários
0 Reactions
1,010 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde, preciso de ajuda para remover uma private sub através de macro. Tenho uma planilha de composição de custos e ao finalizar a inclusão de dados, criei uma macro executável através de um botão "Salvar" que copia a planilha para um novo arquivo, remove todos os elementos visuais (botões), copia e cola valores das células onde havia algum tipo de link com Procv por exemplo. Com isso eu teria um novo arquivo somente com a composição de custo desejada e sem nenhum vínculo com o anterior, porém eu tenho uma privatesub worksheet_change nessa planilha que é carregada para o arquivo novo, diferente das outras macros que fazem parte do workbook e não da worksheet. Eu gostaria de uma ajuda para, ao exportar essa worksheet, a privatesub fosse apagada ou pelo menos inutilizada com Application.enableEvents por exemplo, mas não sei como incluir isso de uma maneira que não seja manual (o que não pode ocorrer). Obrigado desde já

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

 
Postado : 29/09/2011 2:53 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

dinholeao, como este tipo de procedimento envolve algumas particularidades, resolvi montar dois modelos, v2003 e v2007, nos mesmos teem os procedimentos, é mais fácil segui-los do que explicar passo a passo aqui, nos modelos tem as explicações.

E como não sei que tipo de rotinas está utilizando para copiar para o novo arquivo, na montagem que fiz os códigos estão comentados, não sendo dificil fazer a adaptação, baixe os exemplos, de uma olhada e qualquer duvida retorne aqui.

FONTE : O código para esta adaptação foi tirado do site da cpearson:
http://www.cpearson.com/excel/vbe.aspx

Deletar Evento na Cópia da Pasta
viewtopic.php?f=21&t=2580

[]s

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

 
Postado : 30/09/2011 1:29 pm