從VB代碼取消保護(hù)VBProject如何從vb宏取消保護(hù)我的VB項(xiàng)目?我找到了這段代碼: Sub UnprotectVBProject(ByRef WB As Workbook, ByVal Password As String)
Dim VBProj As Object
Set VBProj = WB.VBProject
Application.ScreenUpdating = False
'Ne peut procéder si le projet est non-protégé.
If VBProj.Protection <> 1 Then Exit Sub
Set Application.VBE.ActiveVBProject = VBProj 'Utilisation de "SendKeys" Pour envoyer le mot de passe.
SendKeys Password & "~"
SendKeys "~"
'MsgBox "Après Mot de passe"
Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute
Application.Wait (Now + TimeValue("0:00:1"))End Sub但是此解決方案不適用于Excel 2007.它在我的IDE中顯示驗(yàn)證的窗口和打印密碼。然后,我的目標(biāo)是取消保護(hù)我的VBproject而不顯示此窗口。謝謝你的幫助。
從VB代碼取消保護(hù)VBProject
慕村225694
2019-08-02 16:51:59