¿Cómo puedo controlar el tiempo en EXCEL 2000?

Hola auntent,

Mediante el metodo OnTime. P.ej.:


'-inicio codigo-
Const Clave = "abracadabra"

Sub Empezar()
Dim Inicio As Date
Inicio = Now
ThisWorkbook.Sheets("Hoja1").Unprotect Clave
Application.OnTime Now + TimeSerial(0, 30, 0), "Terminar"
End Sub

Sub Terminar()
With ThisWorkbook
.Sheets("Hoja1").Protect Clave
.Save
.Close
End If
End Sub
'-fin codigo-

Saludos,
KL

"auntent" wrote in message
news:e$

Estimados amigos... suelo preparar mis examenes de fin de ciclo en hojas
de
EXCEL con varias opciones para marcar... el Examen tiene una duración de
30
minutos para 30 preguntas... ¿Como podría controlar el tiempo desde que
inicia hasta que finaliza en 30 minutos...? Al término de esos 30 minutos
la
hoja se protege sola, se guarda y se cierra automáticamente.

Agradecere una ayuda

Gracias

Auntent

Muchas Gracias "KL" por tu ayuda... Me funciono de maravillas... Gracias.

Auntent
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::::::::::::::::::::::::::::::::::
"KL" escribió en el mensaje
news:

Hola auntent,

Mediante el metodo OnTime. P.ej.:


'-inicio codigo-
Const Clave = "abracadabra"

Sub Empezar()
Dim Inicio As Date
Inicio = Now
ThisWorkbook.Sheets("Hoja1").Unprotect Clave
Application.OnTime Now + TimeSerial(0, 30, 0), "Terminar"
End Sub

Sub Terminar()
With ThisWorkbook
.Sheets("Hoja1").Protect Clave
.Save
.Close
End If
End Sub
'-fin codigo-

Saludos,
KL

"auntent" wrote in message
news:e$
> Estimados amigos... suelo preparar mis examenes de fin de ciclo en hojas
> de
> EXCEL con varias opciones para marcar... el Examen tiene una duración de
> 30
> minutos para 30 preguntas... ¿Como podría controlar el tiempo desde que
> inicia hasta que finaliza en 30 minutos...? Al término de esos 30

minutos

> la
> hoja se protege sola, se guarda y se cierra automáticamente.
>
> Agradecere una ayuda
>
> Gracias
>
> Auntent
>
>