返回列表 上一主題 發帖

[發問] 關於Workbook_Open會不當觸發Num Lock使其關閉？

av8d

帖子
705 
主題
277 
精華
0 
積分
1008 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-12-24 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-9-4 08:48 | 只看該作者

[發問] 關於Workbook_Open會不當觸發Num Lock使其關閉？

  1. Private Sub Workbook_Open()
  2.     On Error Resume Next
  3.     Application.SendKeys ("%{F11}") '按下 Alt+F11 鍵
  4.    
  5.     With Application
  6.         With .VBE.MainWindow
  7.             .WindowState = vbext_ws_Minimize
  8.             .Visible = False
  9.         End With
  10.     End With
  11. End Sub
複製代碼
以上自動執行後會讓Num Lock的燈關閉？
如何讓他不關閉Num Lock的燈，再次感謝。
收藏 分享

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
2#
發表於 2014-9-4 22:10 | 只看該作者
以上自動執行後會讓Num Lock的燈關閉？
如何讓他不關閉Num Lock的燈，再次感謝。
av8d 發表於 2014-9-4 08:48

我的PC 執行時不會關閉 Num Lock的燈 耶.

或者若你確定執行 Open 程序後 NumLock 燈一定會關閉,
那就在 Open 程序 的最底下再將它打開也是一個解決的方式 :
Application.SendKeys("{NUMLOCK}")

不過我還是覺得應該不是 Open 程序造成的,
你也可以手動按下 Alt + F11 複合鍵看看 NumLock 燈 是否會跟著關閉?
若是, 那可能是其他常駐軟體或系統的設定(試試停在BIOS設定畫面時是否會發生, 還沒進 Windows 系統前呢?)造成的,
亦或是跟別人借個鍵盤來試試看是否仍舊有此情形?
交叉比對測試一下應該能找到問題點.

TOP

av8d

帖子
705 
主題
277 
精華
0 
積分
1008 
點名
1  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2024-12-24 
3#
發表於 2014-9-10 11:15 | 只看該作者
回復 2# luhpro


    Application.SendKeys("{NUMLOCK}")
解決了我的問題，受益良多，回文晚了，真是抱歉！

TOP

        靜思自在 : 虛空有盡．我願無窮，發願容易行願難。
返回列表 上一主題