Macro to control screen saver

[helmekki]

Hi all

Is there a macro, i can call it any time i want, to force screen save
to start and password prompt to cancel it ?

i know widows does the job on interval bases...but i want to call i
whenever i leave my computer, so cannot anticipate when i will leave m
computer...

any help is realy appreciated...............
yours
h :

 

[Bernie Deitrick]

helmekki,

Your path may be different: find where OSA.EXE resides on your machine.

Sub RunScreenSaverProgram()
program = "C:\Program Files\Microsoft Office\Office\OSA.EXE -s"
TaskID = Shell(program, 1)
End Sub

The password setting is controlled by the usual routine: properties from the
desktop.

HTH,
Bernie
MS Excel MVP