clave de Proyecto

Hola:

Ni que valiera oro tu codigo?

Una opción podría ser:

En un

Sub Workbook_Open()

If ActiveWorkbook.HasPassword = False Then
with ActiveWorkbook.VBProject
.VbComponents.Remove .VBComponents("Modulo1")
.VbComponents.Remove .VBComponents("Modulo2")
End with
End If

Application.DisplayAlerts = False

Después grabar libro

End sub

Esto no lo probe, pero creo que anda rondando la idea.
Proteges la hoja y si le rompen el código se pueden borrar todos los módulos
que quieras.
No conozco propiedad que reconozca el password del proyecto, tampoco me puse
a investigarlo mucho.

Saludos, fer



"Alex" escribió en el mensaje
news:190a01c4a254$9747e380$

Quisiera saber si es posible hacer que cuando se
desproteja un proyecto que esta con clave, se pueda
generar un bug que destruya el codigo?

Pues en realidad no es que valga oro, es que la compañia
para la que trabajo me lo quiere quitar y sacar credito
como si fuera de ellos. Pero bueno, es cuestion de
orgullo. Gracias

Hola:

Ni que valiera oro tu codigo?

Una opción podría ser:

En un

Sub Workbook_Open()

If ActiveWorkbook.HasPassword = False Then
with ActiveWorkbook.VBProject
.VbComponents.Remove .VBComponents("Modulo1")
.VbComponents.Remove .VBComponents("Modulo2")
End with
End If

Application.DisplayAlerts = False

Después grabar libro

End sub

Esto no lo probe, pero creo que anda rondando la idea.
Proteges la hoja y si le rompen el código se pueden

borrar todos los módulos

que quieras.
No conozco propiedad que reconozca el password del

proyecto, tampoco me puse

a investigarlo mucho.

Saludos, fer



"Alex" escribió en

el mensaje

news:190a01c4a254$9747e380$

Quisiera saber si es posible hacer que cuando se
desproteja un proyecto que esta con clave, se pueda
generar un bug que destruya el codigo?

.

Hola:

Fue sólo un chiste, casi nunca puedo hablar seriamente

Igual la solución que te di no sirve de mucho.
Porque si saco el password del vbe, abro la planilla sin habilitar macros y
modifico los códigos antes de autodestruirse

saludos, fer




escribió en el mensaje
news:3e0b01c4a4d6$da9e2390$
Pues en realidad no es que valga oro, es que la compañia
para la que trabajo me lo quiere quitar y sacar credito
como si fuera de ellos. Pero bueno, es cuestion de
orgullo. Gracias

Hola:

Ni que valiera oro tu codigo?

Una opción podría ser:

En un

Sub Workbook_Open()

If ActiveWorkbook.HasPassword = False Then
with ActiveWorkbook.VBProject
.VbComponents.Remove .VBComponents("Modulo1")
.VbComponents.Remove .VBComponents("Modulo2")
End with
End If

Application.DisplayAlerts = False

Después grabar libro

End sub

Esto no lo probe, pero creo que anda rondando la idea.
Proteges la hoja y si le rompen el código se pueden

borrar todos los módulos

que quieras.
No conozco propiedad que reconozca el password del

proyecto, tampoco me puse

a investigarlo mucho.

Saludos, fer



"Alex" escribió en

el mensaje

news:190a01c4a254$9747e380$

Quisiera saber si es posible hacer que cuando se
desproteja un proyecto que esta con clave, se pueda
generar un bug que destruya el codigo?

.