Lock A Dektop Icon

[PleaseHelp]

I like this but get the password wrong 3 times - and then cancel

rep
,ifi(win("" "Shell_TrayWnd"))
,,hid win("" "Shell_TrayWnd")
,,if(!inpp("Jim" "" "" 1))
,,,out "Wrong"
,,,clo win("" "Shell_TrayWnd")
,,hid- win("" "Shell_TrayWnd")
,,ret
,else
,,out "No"
,,2