[解決了，改為分享] 用VBA批次幫其他excel 的VB專案設定密碼鎖定
- 帖子
- 79
- 主題
- 2
- 精華
- 0
- 積分
- 193
- 點名
- 0
- 作業系統
- Winwos 7 64 bits
- 軟體版本
- Excel 2003/2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- TAIPEI
- 註冊時間
- 2010-8-25
- 最後登錄
- 2019-9-20
|
[解決了，改為分享] 用VBA批次幫其他excel 的VB專案設定密碼鎖定
本帖最後由 diabo 於 2011-2-28 00:31 編輯
一直無法成功，請大家幫忙看看哪裡有問題？- Sub Lock_VBA()
- Dim xlapp As Excel.Application
- Dim wbSource As Excel.Workbook
- Dim LogFileName As Variant
- Dim fname As Variant
- Dim VBA_PWD As String, XLS_PWD As String
-
- '取得密碼
- VBA_PWD = [c4] 'VBA password
-
- Set xlapp = New Excel.Application
-
- 'MultiSelect:=True 表示可複選檔案
- LogFileName = Application.GetOpenFilename( _
- FileFilter:="Excel檔(*.xls),*.txt", _
- Title:="請選取檔案", MultiSelect:=True)
-
- '判斷使用者是否有選取檔案，或按取消
- If VarType(LogFileName) = vbBoolean Then
- Exit Sub
- End If
-
-
- xlapp.Visible = True
- For Each fname In LogFileName
- Set wbSource = xlapp.Workbooks.Open(CStr(fname))
-
- '專案沒有保護
- If wbSource.VBProject.Protection = 0 Then
-
- DoEvents
-
- With xlapp
- .SendKeys "%{F11}" 'Alt + F11 切換到VBA視窗
- .SendKeys "%Te" 'ALT + T 工具(繁體中文是(T))-VBproject屬性(E)
- .SendKeys "^{TAB}" '切換到下一頁面 VBproject屬性(E)-保護
- .SendKeys "{+}" '{+}/{-}選取/取消「鎖定專案以供檢視」
- .SendKeys "{TAB}", False '移到密碼欄位
- .SendKeys VBA_PWD & "{TAB}", True '輸入密碼
- .SendKeys VBA_PWD '確認密碼
- .SendKeys "{TAB}{ENTER}" '按確定鈕(預設值)
- .SendKeys "%q" '
- End With
-
- '存檔後關閉該檔案
- wbSource.Save
- wbSource.Close SaveChanges:=True
-
- 'MsgBox Dir(fname) & " 專案鎖定完成"
-
- Else
-
- '不存檔後關閉該檔案
- wbSource.Close SaveChanges:=False
-
- 'MsgBox Dir(fname) & " 專案已經鎖定，請解鎖後再執行"
- End If
- Next fname
-
- Set wbSource = Nothing xlapp.Quit
- End Sub
 lock_vba.rar (493.61 KB)
|
|
|
diabo
|
|
|
|
|
- 帖子
- 79
- 主題
- 2
- 精華
- 0
- 積分
- 193
- 點名
- 0
- 作業系統
- Winwos 7 64 bits
- 軟體版本
- Excel 2003/2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- TAIPEI
- 註冊時間
- 2010-8-25
- 最後登錄
- 2019-9-20
|
3#
發表於 2011-2-28 00:30
| 只看該作者
謝謝 kimbal ，果然是這要命的8秒.......
現在 OK 了.... |
|
|
diabo
|
|
|
|
|
- 帖子
- 472
- 主題
- 5
- 精華
- 0
- 積分
- 485
- 點名
- 0
- 作業系統
- Windows
- 軟體版本
- MS Office
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 香港
- 註冊時間
- 2010-7-4
- 最後登錄
- 2014-12-28
|
2#
發表於 2011-2-27 10:41
| 只看該作者
一直無法成功，請大家幫忙看看哪裡有問題？
diabo 發表於 2011-2-26 20:55 
sendkeys需要配合版面顯示快速度,試試加些暫停的代碼- With xlapp
- .SendKeys "%{F11}" 'Alt + F11 切換到VBA視窗
- Application.Wait (Now + TimeValue("0:00:01"))
- .SendKeys "%Te" 'ALT + T 工具(繁體中文是(T))-VBproject屬性(E)
- Application.Wait (Now + TimeValue("0:00:01"))
- .SendKeys "^{TAB}" '切換到下一頁面 VBproject屬性(E)-保護
- Application.Wait (Now + TimeValue("0:00:01"))
- .SendKeys "{+}" '{+}/{-}選取/取消「鎖定專案以供檢視」
- Application.Wait (Now + TimeValue("0:00:01"))
- .SendKeys "{TAB}", False '移到密碼欄位
- Application.Wait (Now + TimeValue("0:00:01"))
- .SendKeys VBA_PWD & "{TAB}", True '輸入密碼
- Application.Wait (Now + TimeValue("0:00:01"))
- .SendKeys VBA_PWD '確認密碼
- Application.Wait (Now + TimeValue("0:00:01"))
- .SendKeys "{TAB}{ENTER}" '按確定鈕(預設值)
- Application.Wait (Now + TimeValue("0:00:01"))
- .SendKeys "%q" '
- End With
|
|
|
|
|
|
|
|
