返回列表 上一主題 發帖

[解決了，改為分享] 用VBA批次幫其他excel 的VB專案設定密碼鎖定

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
1# 跳轉到 »
發表於 2011-2-27 10:41 | 顯示全部帖子
一直無法成功，請大家幫忙看看哪裡有問題？
diabo 發表於 2011-2-26 20:55


sendkeys需要配合版面顯示快速度,試試加些暫停的代碼
  1.                With xlapp
  2.                 .SendKeys "%{F11}"                'Alt + F11 切換到VBA視窗
  3.                 Application.Wait (Now + TimeValue("0:00:01"))
  4.                 .SendKeys "%Te"                    'ALT + T 工具(繁體中文是(T))-VBproject屬性(E)
  5.                 Application.Wait (Now + TimeValue("0:00:01"))
  6.                 .SendKeys "^{TAB}"                '切換到下一頁面 VBproject屬性(E)-保護
  7.                 Application.Wait (Now + TimeValue("0:00:01"))
  8.                 .SendKeys "{+}"                   '{+}/{-}選取/取消「鎖定專案以供檢視」
  9.                 Application.Wait (Now + TimeValue("0:00:01"))
  10.                 .SendKeys "{TAB}", False          '移到密碼欄位
  11.                 Application.Wait (Now + TimeValue("0:00:01"))
  12.                 .SendKeys VBA_PWD & "{TAB}", True '輸入密碼
  13.                 Application.Wait (Now + TimeValue("0:00:01"))
  14.                 .SendKeys VBA_PWD                 '確認密碼
  15.                 Application.Wait (Now + TimeValue("0:00:01"))
  16.                 .SendKeys "{TAB}{ENTER}"          '按確定鈕(預設值)
  17.                 Application.Wait (Now + TimeValue("0:00:01"))
  18.                 .SendKeys "%q"                    '
  19.             End With
複製代碼
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        靜思自在 : 改變自己是自救，影響別人是救人。
返回列表 上一主題