Ejecutar macro borra códigos en ataques f. Bruta
Hola de nuevo:
Ya que la seguridad de las claves en Excel es bastante endeble, me pregunto si una macro que me han pasado, que borra todos los códigos del libro, se puede lanzar cuando algún usuario aprovechadillo o curiosillo intente reventar las claves del libro y, de ser así en qué evento habría de ubicarse para que funcionase. . . .
Es esta:
Sub Borrar_códigos_()
Dim Modulo As VBIDE.VBComponent, Modulos As VBIDE.VBComponents
Set Modulos = ActiveWorkbook.VBProject.VBComponents
For Each Modulo In Modulos
Select Case Modulo.Type
Case VBExt_ct_StdModule, VBExt_ct_MSForm, VBExt_ct_ClassModule
Modulos.Remove Modulo
Case Else
With Modulo.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next
Set Modulos = Nothing
End Sub
¿Existe alguna forma de ejecutarla cuando se produzca un número POR de ensayos de clave, mediante programas o códigos que actúan por fuerza bruta, u otros?. . . .
Gracias por la colaboración.
Ya que la seguridad de las claves en Excel es bastante endeble, me pregunto si una macro que me han pasado, que borra todos los códigos del libro, se puede lanzar cuando algún usuario aprovechadillo o curiosillo intente reventar las claves del libro y, de ser así en qué evento habría de ubicarse para que funcionase. . . .
Es esta:
Sub Borrar_códigos_()
Dim Modulo As VBIDE.VBComponent, Modulos As VBIDE.VBComponents
Set Modulos = ActiveWorkbook.VBProject.VBComponents
For Each Modulo In Modulos
Select Case Modulo.Type
Case VBExt_ct_StdModule, VBExt_ct_MSForm, VBExt_ct_ClassModule
Modulos.Remove Modulo
Case Else
With Modulo.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next
Set Modulos = Nothing
End Sub
¿Existe alguna forma de ejecutarla cuando se produzca un número POR de ensayos de clave, mediante programas o códigos que actúan por fuerza bruta, u otros?. . . .
Gracias por la colaboración.
1 respuesta
Respuesta de Abraham Valencia
1