Excel userforms and disabling the Microsoft office 2010 on-screen keyboard

Hello Experts,


I have a pc tablet computer (Windows 7), and would like to disable the on-screen upon opening an Excel userform. I have found the following code by "kukush" on the excel forum site that dates back to 2008 that opens & closes the Office onscreen keyboard when opening/closing a worksheet. I don’t know whether it will work with 2010 Office, way beyond my limited vba.

Can an expert modify this code (or offer an alternative idea) to close the on-screen keyboard when opening a specifc userform, and then return the on-screen keyboard to it’s normal functioning upon closing the userform.

Thanks,
Ray



Option Explicit

Private Declare Function CloseHandle Lib "kernel32" ( _
  ByVal hObject As Long) As Long
 
Private Declare Function OpenProcess Lib "kernel32" ( _
  ByVal dwDesiredAccess As Long, _
  ByVal bInheritHandle As Long, _
  ByVal dwProcessId As Long) As Long
 
 
Private Declare Function TerminateProcess Lib "kernel32" ( _
  ByVal hProcess As Long, _
  ByVal uExitCode As Long) As Long
 
Const PROCESS_TERMINATE = &H1


' TaskID of running osk.exe
Public lTaskID As Long


Public Sub closeOSK()
  Dim lhwnd As Long
  Dim lResult As Long
 
  lhwnd = OpenProcess(PROCESS_TERMINATE, 0&, lTaskID)
  lResult = TerminateProcess(lhwnd, 1&)
  lResult = CloseHandle(lhwnd)
End Sub


Private Sub Worksheet_Activate()
' returns TaskID of running osk.exe to public variable lTaskID
lTaskID = Shell("C:\WINDOWS\system32\osk.exe", 1)
End Sub

Private Sub Worksheet_Deactivate()
Call closeOSK
End Sub