Procedura za događaj Workbook open

[ jmunja @ 13.05.2012. 08:50 ] @

Molim za pomoć !
Procedura za događaj Workbook open koja će automatski da promeni postavku u Language bar na željeni ispis ( engleski , srpski latinica ili srpski ćirilica ).

[ 3okc @ 13.05.2012. 23:03 ] @

Pogledaj u MSDN library Keyboard Input API funkcije:
LoadKeyboardLayout(), ActivateKeyboardLayout()

Našao sam instant rešenje na MSDN forumu ali ga nisam proverio, vidi da li ti radi:

Code:
Option Explicit

Private Declare Function ActivateKeyboardLayout Lib _
"user32.dll" (ByVal myLanguage As Long, Flag As Boolean) As Long

'define your desired keyboardlanguage
'find your desired language at http://www.trigeminal.com/frmrpt2dap.asp

Private Const KLL_SRL = 2074 'Serbian (Latin)
Private Const KLL_SRC = 3098 'Serbian (Cyrilic)
Private Const KLL_ENG = 1033 'English (US) keyboard language layout

'with app start, switch on your desired language
Private Sub A_Enter()

Call ActivateKeyboardLayout(KLL_SRC, 0)
End Sub

'with app exit, switch back to the defaults
Private Sub A_Exit(Cancel As Integer)

Call ActivateKeyboardLayout(KLL_ENG, 0)
End Sub