hola quiero saber si hay algun modo de hacer un barrido mediante codigo (cada "x" tiempo) y
verificar si esta abierto el editor de vba (por si brincan la contraseña de proteccion)
dado el caso realizar alguna accion
anexo un codigo simple de ejemplo el cual no funciona y no encuentro el error
Private Sub Workbook_Open()
Mantener
End Sub
Private Sub Mantener()
Tiempo
Babe
End Sub
Private Sub Tiempo()
Application.OnTime _
EarliestTime:=Now + TimeValue("0:00:15"), _
Procedure:="Mantener", _
Schedule:=True
End Sub
Private Sub Babe()
If Application.VBE.SelectedVBComponent.name = "Módulo1" Then
Range("B4").Select
ActiveCell.FormulaR1C1 = "2"
Range("B5").Select
ActiveCell.FormulaR1C1 = "2"
End If
End Sub
