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

"helmekki" wrote in message
...

Hi all

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

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

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


--
helmekki


------------------------------------------------------------------------
helmekki's Profile:
http://www.excelforum.com/member.php...fo&userid=6939
View this thread: http://www.excelforum.com/showthread...hreadid=268819