Appena trovo un po' piu' di tempo per giocare (stima corrente: tra luglio e agosto) provo a fare qualcosa di piu'; al momento potresti provare sul modulo Foglio3 ("tempo1") questo codice
- Codice: Seleziona tutto
Dim MyTim As Single
Private Sub startTempo1_Click()
MyTim = Timer
Range("E22:E23").ClearContents
End Sub
Private Sub stopTempo1_Click()
If MyTim > 0 Then
Range("E22").Value = Timer - MyTim
Range("E23").Value = "Scostamento (sec): " & Format([E22] - 60, "0.0")
Range("E23").HorizontalAlignment = xlRight
MyTim = 0
End If
End Sub
Ti restituira' in E22 il tempo trascorso e in E23 lo scostamento rispetto ai 60 secondi.
Per quanto riguarda la musica, i miei gadget natalizi includono in genere una musica di fondo (embedded nel foglio, ma puo' anche essere linked); gli ultimi sono disponibili qui:
http://www.astrofili.it/AME comunque credo che la musica aiuti a calcolare il tempo trascorso, a meno che non siano rumori.
Per quanto riguarda la password, se e' l' admin ad assegnarla potrebbe essere la somma a modulo 1000 della codifica asci dei caratteri dello username (pippo fa 552, paperinella fa 165); cosi' nella verifica ti basta verificare l' algoritmo.
Per quanto riguarda nascondere l' orario, beh se il tuo amico vuole barare puo' portarsi l' orologio, puo' avere l' auricolare ed essere in collegamento telefonico con l' orologio atomico di Zurigo, puo' inserire in una cella la formula Adesso() e fare F9 con calma, e qualche altra decina di trucchi banali.
Inoltre, per quello che ne capisco, excel gira nella finestra che gli assegna il SO, quindi alterare questo dato si puo' fare con uno script lanciato nella macro, ma agisce a livello di sistema. Insomma io suggerisco di spuntare semplicemente nelle proprieta' della taskbar la voce Nascondi automaticamente, per nasconderla dopo qualche secondo di inattivita' (riaprendola appena il mouse delll' imbroglione ci torna sopra)
Uno spunto decisivo
immagino...