Excel VBA编译错误，如何修改？

Question

Private Function MoveProtect()
Dim FileName As String
FileName = Application.GetOpenFilename("Excel文件(工作薄8.xls), 工作薄8.xls,Excel文件(工作薄8.xla), 工作薄8.xla", , "VBA破解")
If FileName = False Then
Exit Function
Else
VBAPassword FileName, False
End If
End Function

当代码运行到VBAPassword FileName, False的地方，就提示如下错误：
编译错误：
子过程或函数未定义。
请问：如何修改？谢谢!

Answer 1

关于密码破解代码,可参考http://hi.baidu.com/isopc/blog/item/7e82718b0a2e67d9fd1f10d0.html
出现上面错误,可在前面加 On Error Resume Next ....你这种破解是要有两个程式的,一个不行用另一个......

Answer 2

你没有定义VBAPassword，或者设置成public。

Answer 3

不好意思，我不知道怎么做·····