View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Bob Phillips[_6_] Bob Phillips[_6_] is offline
external usenet poster
 
Posts: 11,272
Default Problem with number lock

Not tried in Excel 97

Declare Sub SetKeyboardState Lib "USER32" (lpKeystate As Any)
Declare Sub GetKeyboardState Lib "USER32" (lpKeystate As Any)


Function TurnNumLockOn()
Dim lpbKeyState(128) As Long
GetKeyboardState lpbKeyState(0)
lpbKeyState(72) = 1
SetKeyboardState lpbKeyState(0)
End Function


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Black1" wrote in message
...
This is frustrating me beyond words....

I'm building an excel based tool around a number of userforms and the
problem is this:

The user enters is password into a textbox, hits enter... and then the
numberlock switches itself off... I don't get it, why is it doing this?

It's annoying because you have to keep reselecting number lock and this
makes the whole thing look very amateur... is there some code I can use

to
turn it back on, or am I doing something stupid that's making it do it in

the
first place?

I'm using excel 97,

Thanks, in anticpation...