vbaprojectpassword

1.如何创建excel VBAProject密码

打开VBAProject，点工具》VBAProject属性，安全，输入密码。

2.Excel 表格“VBAProject密码”忘记了,如何解除

准备工具：表格，电脑，OFFICE密码破解软件（OfficeToolbox软件）

1.打开BOX软件，在软件页面中找到文件选择选项，点击该选项进入到文件选择页面中。

2.在文件选择页面中找到需要修改的表格，鼠标左键点击选中该表格。

3.选中完毕后，在该页面中找到打开选项，点击该选项进入到破解页面中。

4.在破解页面中找到移除密码选项，点击该选项进行密码移除功能，等待功能完成。

5.功能完成后在新弹出的页面中找到确定选项，点击该选项进行操作确认。

6.确认完成，在原表格所在的文件夹中会出现一个新生成的表格，该表格即为原表格解除密码后的表格。

3.vbaproject密码破解

可能是这个宏使用了附加控件，或引用，你在复制时可将包含这个文件的文件夹全部自制过去试试，

如果不行，就调VB编辑器，通过“工具”—“附加控件”，看宏使用了哪些附加控件，然后现通过Windows查找，找到所附加的控件，一同复制到新机子上。注册一下就可用了

如果宏加了密码。不能查看宏。请用下面的方法。

新建一个Execl文件。Alt+f11打开编辑器。将下面的这段代吗复制进去，然后运行。找到要破解的文件，去除其保护。

然后再像上面一样设置

——————————

Private Sub VBAPassword()

'你要解保护的Excel文件路径

Filename = Application.GetOpenFilename("Excel文件（*.xls & *.xla & *.xlt）,*.xls;*.xla;*.xlt", , "VBA破解"）

If Dir(Filename) = "" Then

MsgBox "没找到相关文件，清重新设置。"

Exit Sub

Else

FileCopy Filename, Filename & ".bak" '备份文件。

End If

Dim GetData As String * 5

Open Filename For Binary As #1

Dim CMGs As Long

Dim DPBo As Long

For i = 1 To LOF(1)

Get #1, i, GetData

If GetData = "CMG=""" Then CMGs = i

If GetData = "[Host" Then DPBo = i - 2: Exit For

Next

If CMGs = 0 Then

MsgBox "请先对VBA编码设置一个保护密码。"， 32， "提示"

Exit Sub

End If

If Protect = False Then

Dim St As String * 2

Dim s20 As String * 1

'取得一个0D0A十六进制字串

Get #1, CMGs - 2, St

'取得一个20十六制字串

Get #1, DPBo + 16, s20

'替换加密部份机码

For i = CMGs To DPBo Step 2

Put #1, i, St

Next

'加入不配对符号

If (DPBo - CMGs) Mod 2 <> 0 Then

Put #1, DPBo + 1, s20

End If

MsgBox "文件解密成功。。"， 32， "提示"

End If

Close #1

End Sub

4.Excel 表格“VBAProject密码”忘记了,如何解除

打开VBE编辑窗口----工具菜单-----VBAProject属性（E）。---保护选项卡---------查看时锁定工程-----把其前面那个勾去掉-------最后记得保存一下文件-------再打开文件就没有VBA密码了。

组件

编辑

桌面产品

这些程序包括在Microsoft Office 2010的所有版本中，除了Microsoft Office Starter 2010。Microsoft Office Starter 2010并非公开销售的产品，它是购买品牌电脑时随机安装的，只包括入门版Word及Excel，而且在版面的右方有着无法移除的微软广告。

Word

主条目：Microsoft Word

Microsoft Word是文书处理软件，被认为是Office的主要程序，在文字处理软件市场上拥有统治份额，其私有的DOC格式被尊为一个行业的标准，虽然由Word 2007年已经转用DOCX格式。Word也适宜某些版本的Microsoft Works。它适宜Windows和Macintosh平台。它的主要竞争者是LibreOffice、Corel WordPerfect和ApplePages。

Excel

主条目：Microsoft Excel

Microsoft Excel是电子试算表程序（进行数字和预算运算的软件程序），与Microsoft Word一样，它在市场拥有统治份额。它最初对占优势的Lotus 1-2-3是个竞争者，但最后它卖得比它多、快，于是它成为了实际标准。它适宜Windows和Macintosh平台。它的主要竞争者是OpenOffice.org Calc、AppleNumbers和CorelQuattro Pro。

Outlook

主条目：Microsoft Outlook

Microsoft Outlook（不要与Outlook Express混淆）是个人信息管理程序和电子邮件通信软件。在Office 97版接任Microsoft Mail。它包括一个电子邮件客户端，日历，任务管理者，和地址本。它的电子邮件程序的主要竞争者是Mozilla Thunderbird(Mozilla)和Eudora。它的个人信息管理程序主要竞争者是Mozilla、苹果公司的Mail和Lotus Organizer。它的一个版本也被包括在大多数Pocket PC掌上电脑里。

5.EXCEL的vbaproject密码破解

下面的答案不是我的，我试验成功过，但不保证每次成功，你试试吧。

关闭你的文件，新开一Excel，同时按Alt和F11，进入VBA界面，右键点左上窗口的Thisworkbook，插入，模块，在右边出来的窗口中粘贴如下代码：

Sub MoveProtect()

Dim FileName As String

FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xla）,*.xls;*.xla", , "VBA破解"）

If FileName = CStr(False) Then

Exit Sub

Else

VBAPassword FileName, False

End If

End Sub

'设置VBA编码保护

Sub SetProtect()

Dim FileName As String

FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xla）,*.xls;*.xla", , "VBA破解"）

If FileName = CStr(False) Then

Exit Sub

Else

VBAPassword FileName, True

End If

End Sub

Private Function VBAPassword(FileName As String, Optional Protect As Boolean = False)

If Dir(FileName) = "" Then

Exit Function

Else

FileCopy FileName, FileName & ".bak"

End If

Dim GetData As String * 5

Open FileName For Binary As #1

Dim CMGs As Long

Dim DPBo As Long

For i = 1 To LOF(1)

Get #1, i, GetData

If GetData = "CMG=""" Then CMGs = i

If GetData = "[Host" Then DPBo = i - 2: Exit For

Next

If CMGs = 0 Then

MsgBox "请先对VBA编码设置一个保护密码。"， 32， "提示"

Exit Function

End If

If Protect = False Then

Dim St As String * 2

Dim s20 As String * 1

'取得一个0D0A十六进制字串

Get #1, CMGs - 2, St

'取得一个20十六制字串

Get #1, DPBo + 16, s20

'替换加密部份机码

For i = CMGs To DPBo Step 2

Put #1, i, St

Next

'加入不配对符号

If (DPBo - CMGs) Mod 2 <> 0 Then

Put #1, DPBo + 1, s20

End If

MsgBox "文件解密成功。。"， 32， "提示"

Else

Dim MMs As String * 5

MMs = "DPB="""

Put #1, CMGs, MMs

MsgBox "对文件特殊加密成功。。"， 32， "提示"

End If

Close #1

End Function

然后在此界面，把光标移到第一行，按F5，运行MoveProtect，在打开窗口中选择你说的文件，完成后，该文件的宏就没密码了。

6.有谁知道Excel中VBAProject的密码是多少

你应该想要的是用VBA破解VBAProject密码吧！方法如下：

新建一个Execl文件。Alt+f11打开编辑器。插入一个将下面的这段代吗复制进去，然后运行。找到要破解的文件，去除其保护。

——————————

Private Sub VBAPassword()

'你要解保护的Excel文件路径

Filename = Application.GetOpenFilename("Excel文件（*.xls & *.xla & *.xlt）,*.xls;*.xla;*.xlt", , "VBA破解"）

If Dir(Filename) = "" Then

MsgBox "没找到相关文件，清重新设置。"

Exit Sub

Else

FileCopy Filename, Filename & ".bak" '备份文件。

End If

Dim GetData As String * 5

Open Filename For Binary As #1

Dim CMGs As Long

Dim DPBo As Long

For i = 1 To LOF(1)

Get #1, i, GetData

If GetData = "CMG=""" Then CMGs = i

If GetData = "[Host" Then DPBo = i - 2: Exit For

Next

If CMGs = 0 Then

MsgBox "请先对VBA编码设置一个保护密码。"， 32， "提示"

Exit Sub

End If

If Protect = False Then

Dim St As String * 2

Dim s20 As String * 1

'取得一个0D0A十六进制字串

Get #1, CMGs - 2, St

'取得一个20十六制字串

Get #1, DPBo + 16, s20

'替换加密部份机码

For i = CMGs To DPBo Step 2

Put #1, i, St

Next

'加入不配对符号

If (DPBo - CMGs) Mod 2 0 Then

Put #1, DPBo + 1, s20

End If

MsgBox "文件解密成功。。"， 32， "提示"

End If

Close #1

End Sub

'以上代码测试通过，希望我的回答对你有用！

7.你好,怎样破解EXCEL的vbaproject密码

网上抄的代码：

Private Sub VBAPassword（) '你要解保护的Excel文件路径

Filename = Application.GetOpenFilename("Excel文件（*.xls & *.xla & *.xlt）,*.xls;*.xla;*.xlt", , "VBA破解"）

If Dir(Filename) = "" Then

MsgBox "没找到相关文件，清重新设置。"

Exit Sub

Else

FileCopy Filename, Filename & ".bak" '备份文件。

End If

Dim GetData As String * 5

Open Filename For Binary As #1

Dim CMGs As Long

Dim DPBo As Long

For i = 1 To LOF(1)

Get #1, i, GetData

If GetData = "CMG=""" Then CMGs = i

If GetData = "[Host" Then DPBo = i - 2: Exit For

Next

If CMGs = 0 Then

MsgBox "请先对VBA编码设置一个保护密码。"， 32， "提示"

Exit Sub

End If

Dim St As String * 2

Dim s20 As String * 1

'取得一个0D0A十六进制字串

Get #1, CMGs - 2, St

'取得一个20十六制字串

Get #1, DPBo + 16, s20

'替换加密部份机码

For i = CMGs To DPBo Step 2

Put #1, i, St

Next

'加入不配对符号

If (DPBo - CMGs) Mod 2 <> 0 Then

Put #1, DPBo + 1, s20

End If

MsgBox "文件解密成功。。"， 32， "提示"

Close #1

End Sub

8.EXCEL的vbaproject密码破解

这个是2003版本下的，试试！！Private Sub VBAPassword（) '你要解保护的Excel文件路径 Filename = Application.GetOpenFilename("Excel文件（*.xls & *.xla & *.xlt）,*.xls;*.xla;*.xlt", , "VBA破解"） If Dir(Filename) = "" Then MsgBox "没找到相关文件，清重新设置。

" Exit Sub Else Set fs = CreateObject("Scripting.FileSystemObject") fs.CopyFile Filename, Filename & ".bak" '备份文件。 End If Dim GetData As String * 5 Open Filename For Binary As #1 Dim CMGs As Long Dim DPBo As Long For i = 1 To LOF(1) Get #1, i, GetData If GetData = "CMG=""" Then CMGs = i If GetData = "[Host" Then DPBo = i - 2: Exit For Next If CMGs = 0 Then MsgBox "请先对VBA编码设置一个保护密码。

"， 32， "提示" Exit Sub End If If Protect = False Then Dim St As String * 2 Dim s20 As String * 1 '取得一个0D0A十六进制字串 Get #1, CMGs - 2, St '取得一个20十六制字串 Get #1, DPBo + 16, s20 '替换加密部份机码 For i = CMGs To DPBo Step 2 Put #1, i, St Next '加入不配对符号 If (DPBo - CMGs) Mod 2 <> 0 Then Put #1, DPBo + 1, s20 End If MsgBox "文件解密成功。

"， 32， "提示" End If Close #1 End Sub2007版本 Sub MoveProtect() Dim FileName As String FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xla）,*.xls;*.xla", , "VBA破解"） If FileName = CStr(False) Then Exit Sub Else VBAPassword FileName, False End If End Sub '设置VBA编码保护 Sub SetProtect() Dim FileName As String FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xla）,*.xls;*.xla", , "VBA破解"） If FileName = CStr(False) Then Exit Sub Else VBAPassword FileName, True End If End Sub Private Function VBAPassword(FileName As String, Optional Protect As Boolean = False) If Dir(FileName) = "" Then Exit Function Else FileCopy FileName, FileName & ".bak" End If Dim GetData As String * 5 Open FileName For Binary As #1 Dim CMGs As Long Dim DPBo As Long For i = 1 To LOF(1) Get #1, i, GetData If GetData = "CMG=""" Then CMGs = i If GetData = "[Host" Then DPBo = i - 2: Exit For Next If CMGs = 0 Then MsgBox "请先对VBA编码设置一个保护密码。"， 32， "提示" Exit Function End If If Protect = False Then Dim St As String * 2 Dim s20 As String * 1 '取得一个0D0A十六进制字串 Get #1, CMGs - 2, St '取得一个20十六制字串 Get #1, DPBo + 16, s20 '替换加密部份机码 For i = CMGs To DPBo Step 2 Put #1, i, St Next '加入不配对符号 If (DPBo - CMGs) Mod 2 <> 0 Then Put #1, DPBo + 1, s20 End If MsgBox "文件解密成功。

"， 32， "提示" Else Dim MMs As String * 5 MMs = "DPB=""" Put #1, CMGs, MMs MsgBox "对文件特殊加密成功。

"， 32， "提示" End If Close #1 End Function。

转载请注明出处51数据库 » vbaprojectpassword