-
如何破解
VBAProject
属性的保护密码
1
、打
开任一
excel
文件
2
、在宏里粘贴下面的代码
3
、运行下面的代码
4
、选择需要破解密码的文件
p>
5
、点击
“
打开<
/p>
”
p>
'
移除
VBA
编码
保护
Sub MoveProtect()
Dim FileName As String
FileName =
nFilename(
文
(
*.xls
& *.xla&*.xlsx
)
,*.xls;*.xla;
*.xlsx
破解
If
FileName = CStr(False)
Then
Exit Sub
Else
VBAPassword FileName, False
End If
End Sub
'
设置
VBA
编码保护<
/p>
Sub SetProtect()
Dim FileName As String
FileName =
nFilename(
文
(
*.xls
& *.xla&*.xlsx
)
,*.xls;*.xla;
*.xlsx
破解
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 &
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)
件
件