|
Hola, me tome la libertad de contestar tu pregunta. Pega este codigo en un modulo:
Option Explicit
Dim ClockCell As String
Dim timer_enabled As Boolean
Dim timer_interval As Double
Dim segundero, minutero
Dim hora As String
Sub mar()
acumulador = 1
Sub cmd_TimerOn()
Dim interval As Double
interval = 1.15740740740741E-05
Call timer_Start(interval)
End Sub
Sub Timer()
segundero = segundero + 1
If segundero = 60 Then
minutero = minutero + 1
'Aqui le das la cantidad de minutos en que quieres q se active la proteccion a la hoja1 si deseas puedes variar el tiempo
If minutero = 10 Then
Worksheets("hoja1").Protect
minutero = 0
End If
segundero = 0
End If
End Sub
Sub timer_OnTimer()
Call Timer
If timer_enabled Then Call timer_Start
End Sub
Sub timer_Start(Optional ByVal interval As Double)
If interval > 0 Then timer_interval = interval
timer_enabled = True
If timer_interval > 0 Then Application.OnTime (Now + timer_interval), "Timer_OnTimer"
End Sub
Sub timer_Stop()
timer_enabled = False
End Sub
Sub Formulario()
Load UserForm1
UserForm1.Show
End Sub
Luego en la Hoja1 en la propiedad: Private Sub Worksheet_Activate(), haces referencia a: Sub cmd_TimerOn(), y listo tu documento de excel se bloqueara cada 10 minutos. Bueno espero haberte sido de ayuda. Saludos y no olvides cerrar la pregunta.
|
