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?