为了账号安全,请及时绑定邮箱和手机立即绑定

从VB代码取消保护VBProject

从VB代码取消保护VBProject

从VB代码取消保护VBProject如何从vb宏取消保护我的VB项目?我找到了这段代码:    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中显示验证的窗口和打印密码。然后,我的目标是取消保护我的VBproject而不显示此窗口。谢谢你的帮助。
查看完整描述

2 回答

  • 2 回答
  • 0 关注
  • 887 浏览

添加回答

举报

0/150
提交
取消
意见反馈 帮助中心 APP下载
官方微信