[求助]以下清除活动VBA 工程口令的代码在Excel 2003中无效

FENGJUN

<p>以下清除活动VBA 工程口令的代码在Excel 2003中无效，不知原因</p><p><br/>'need&nbsp; reference To VBA Extensibility<br/>'need To make sure that the target project Is the active project</p><p>Sub test()<br/>'&nbsp;&nbsp;&nbsp; Workbooks.Open ThisWorkbook.Path &amp; "\test1.xls"<br/>&nbsp;&nbsp;&nbsp; UnprotectVBProject Workbooks("test1.xls"), "password"<br/>End Sub</p><p>Sub UnprotectVBProject(WB As Workbook, ByVal Password As String)<br/>'<br/>' Bill Manville, 29-Jan-2000<br/>'<br/>&nbsp;&nbsp;&nbsp; Dim VBP As VBProject, oWin As VBIDE.Window<br/>&nbsp;&nbsp;&nbsp; Dim wbActive As Workbook<br/>&nbsp;&nbsp;&nbsp; Dim i As Integer</p><p>&nbsp;&nbsp;&nbsp; Set VBP = WB.VBProject<br/>&nbsp;&nbsp;&nbsp; Set wbActive = ActiveWorkbook</p><p>&nbsp;&nbsp;&nbsp; If VBP.Protection &lt;&gt; vbext_pp_locked Then Exit Sub</p><p>&nbsp;&nbsp;&nbsp; Application.ScreenUpdating = False</p><p>&nbsp;&nbsp;&nbsp; ' Close any code windows To ensure we hit the right project<br/>&nbsp;&nbsp;&nbsp; For Each oWin In VBP.VBE.Windows<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If InStr(oWin.Caption, "(") &gt; 0 Then oWin.Close<br/>&nbsp;&nbsp;&nbsp; Next oWin</p><p>&nbsp;&nbsp;&nbsp; WB.Activate<br/>&nbsp;&nbsp;&nbsp; ' now use lovely SendKeys To unprotect<br/>&nbsp;&nbsp;&nbsp; Application.OnKey "%{F11}"<br/>&nbsp;&nbsp;&nbsp; SendKeys "%{F11}%TE" &amp; Password &amp; "~~%{F11}", True</p><p>&nbsp;&nbsp;&nbsp; If VBP.Protection = vbext_pp_locked Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' failed - maybe wrong password<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SendKeys "%{F11}%TE", True<br/>&nbsp;&nbsp;&nbsp; End If</p><p>&nbsp;&nbsp;&nbsp; ' leave no evidence of the password<br/>&nbsp;&nbsp;&nbsp; Password = ""<br/>&nbsp;&nbsp;&nbsp; ' go back To the previously active workbook<br/>&nbsp;&nbsp;&nbsp; wbActive.Activate</p><p>End Sub</p><p>''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''<br/>Sub ProtectVBProject(WB As Workbook, ByVal Password As String)</p><p>&nbsp;&nbsp;&nbsp; Dim VBP As VBProject, oWin As VBIDE.Window<br/>&nbsp;&nbsp;&nbsp; Dim wbActive As Workbook<br/>&nbsp;&nbsp;&nbsp; Dim i As Integer</p><p>&nbsp;&nbsp;&nbsp; Set VBP = WB.VBProject<br/>&nbsp;&nbsp;&nbsp; Set wbActive = ActiveWorkbook</p><p>&nbsp;&nbsp;&nbsp; ' Close any code windows To ensure we hit the right project<br/>&nbsp;&nbsp;&nbsp; For Each oWin In VBP.VBE.Windows<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If InStr(oWin.Caption, "(") &gt; 0 Then oWin.Close<br/>&nbsp;&nbsp;&nbsp; Next oWin</p><p>&nbsp;&nbsp;&nbsp; WB.Activate<br/>&nbsp;&nbsp;&nbsp; ' now use lovely SendKeys To unprotect<br/>&nbsp;&nbsp;&nbsp; Application.OnKey "%{F11}"<br/>&nbsp;&nbsp;&nbsp; SendKeys "+{TAB}{RIGHT}%V{+}{TAB}" &amp; Password &amp; "{TAB}" &amp; Password &amp; "~"<br/>&nbsp;&nbsp;&nbsp; Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute<br/>&nbsp;&nbsp;&nbsp; WB.Save<br/>End Sub<br/>''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''<br/></p>