'移除VBA编码保护
'移除VBA编码保护Private Function MoveProtect()
Dim FileName As String
FileName = Application.GetOpenFilename("Excel文件(*.xls), *.xls,Excel文件(*.xla), *.xla", , "VBA破解")
If FileName = False Then
Exit Function
Else
VBAPassword FileName, False
End If
End Function
页:
[1]