numlock tuşunun kapanması

[incsoft]

Arkadaşlar aşağıdaki gibi bir macrom var çalıştıktan sonra NUMLOCK tuşunu kapatıyor her seferinde. Macroya SendKeys "{NUMLOCK}", True ekledim yine açmıyor. Neden olabilir acaba?

Teşekkürler.

Sub DÜZENLE()
Dim Alan As Range
For Each Alan In Range("K143:L145,K138: Q140,M143:M145,K146:L154,M146:M154,Q144:Q150,Q152:Q154")
Alan.Select
DoEvents
SendKeys "{F2}", True
SendKeys "{ENTER}", True
Next
End Sub

 

[Tevfik_Kursun]

Merhaba Arkadaşım,

Sub Test()
    If NumLock = True Then CreateObject("Wscript.Shell").SendKeys "{NUMLOCK}"
End Sub

sanırım bu işinizi görür.
İyi çalışmalar
Korhan Ayhan 04.04.2018 de yazmıştı (ben kullanıyorum, bu vesile ile Korhan Ayhan hocaya tekrar teşekkür ederim)