Foros del Web

Foros del Web (http://www.forosdelweb.com/)
-   Ofimática (http://www.forosdelweb.com/f90/)
-   -   Modulo de VBA Excel (http://www.forosdelweb.com/f90/modulo-vba-excel-526819/)

StephenQ 18/10/2007 10:40

Modulo de VBA Excel
 
Hola para todos!!

Existe la manera de que cuando se ejecute una macro se borre todo el código
que se encuentra en el modulo???:neurotico

Cómo se puede hacer, ya que no quiero que el usuario vea el código que ha generado la macro... :neurotico


Gracias

Un saludo

StephenQ 18/10/2007 11:32

Re: Modulo de VBA Excel
 
Ya encontré la forma de hacerlo, por si le sirve alguno...

Primero se carga la referencia "Microsoft Visual Basic for APlication Extensibilty 5.3"
y luego se escribe el siguiente código en el modulo

Sub BorrarTodoElCodigo()
Dim VBProj As VBIDE.VBProject
Dim VBComp As VBIDE.VBComponent
Dim CodeMod As VBIDE.CodeModule

Set VBProj = ActiveWorkbook.VBProject

For Each VBComp In VBProj.VBComponents
If VBComp.Type = vbext_ct_Document Then
Set CodeMod = VBComp.CodeModule
With CodeMod
.DeleteLines 1, .CountOfLines
End With
Else
VBProj.VBComponents.Remove VBComp
End If
Next VBComp
End Sub

Despues lo llamamos cuando termine de ejecutar la macro

Sub botton_1

'todo el código a ejecutar
Call BorrarTodoElCodigo
End sub

Y listo

uzziber 18/10/2007 11:41

Re: Modulo de VBA Excel
 
Protege con contraseña la macro...

En el editor de macros (con la macro abierta, visible) haz click en herramientas>Propiedades de VBAProject y selecciona la pestaña "Protección"; marca la casilla "Bloquear proyecto para visualización" y escribe tu contraseña.
Cuándo intenten abrir la macro, el programa preguntará por la contraseña.

Saludos....

StephenQ 18/10/2007 12:24

Re: Modulo de VBA Excel
 
Gracias uzziber

Pero el problema es que la macro la ejecuto desde C#.NET y no quiero que cualquiera pueda ver la información, por esa razón la borro, pero muchas gracias por tu información.

Un saludo
:cool:


La zona horaria es GMT -6. Ahora son las 00:39.

Desarrollado por vBulletin® Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.