Evidentemente l'accesso al tuo pc, secondo le regole aziendali, non puo' rimanere accessibile a estranei pr motivi di protezione dei dati; se aggiri la norma sei passibile di provvedimenti disciplinari anche severi.
Tecnicamente puoi provare con una macro Excel che, periodicamente, fa finta di fare qualcosa.
Ad esempio:
- Codice: Seleziona tutto
Sub FaiFinta()
Dim fCell As String, fcSh As String
Dim fRan As Range
'
fCell = "$AA$1" '<<< Una cella libera
fcSh = "Foglio1" '<<< Il Foglio con la cella libera
'
Set fRan = Sheets(fcSh).Range(fCell)
If ActiveSheet.Name <> fcSh Or ActiveCell.Address <> fCell Then
fRan.Interior.Color = xlNone
Exit Sub
End If
Application.OnTime Now + TimeValue("00:0:10"), "FaiFinta"
Application.SendKeys "A", True
Application.SendKeys "{ESC}"
fRan.Interior.Color = RGB(255, 255, 0)
End Sub
Le due righe marcate <<< vanno personalizzate come da commento; con esse indichi una cella pilota che verra' usata dalla macro per rieseguirsi periodicamente o no.
Poi all'occorrenza seleziona la cella pilota (Foglio1!AA1, nel mio codice) e lancia la Sub FaiFinta
Ogni 10 secondi la cella pilota viene manipolata e rimane colorata di giallo; lo screensaver "dovrebbe" non intervenire.
Quando invece la selezione e' diversa dalla cella pilota allora la macro viene fermata e la cella pilota viene "scolorata"
Quindi per provare a fermare lo screensaver devi selezionare la cella pilota e avviare la Sub FaiFinta; per interrompere questa fase bastera' deselezionare la cella pilota.
Tutto dopo aver letto piu' volte il primo paragrafo del messaggio
Ciao
Registrazione
