- 帖子
- 549
- 主題
- 152
- 精華
- 0
- 積分
- 691
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- OFFICE 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-8-10
- 最後登錄
- 2022-9-7
 
|
[發問] 如何用程式解開VBA保護之後可直接修改程式碼?
- Sub test()
- UnprotectVBProj "0988", ActiveWorkbook '解開上鎖(只能解開無法用)
- MsgBox ThisWorkbook.VBProject.VBE.CodePanes.Count '只會讀出0(正常不可能沒有模組)
- '必須要分為兩個按鈕,先解開才可以改程式碼,有辦法一個按鈕直接解開又改程式碼嗎?
- End Sub
- Sub UnprotectVBProj(ByVal Pwd As String, wb As Workbook)
- Dim vbProj As Object
- Set vbProj = wb.VBProject
- If vbProj.Protection <> 1 Then Exit Sub ' already unprotected
- Set Application.VBE.ActiveVBProject = vbProj
- SendKeys Pwd & "~~"
- Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute
- End Sub
|
|
發表於 2016-11-8 17:11
| 
