本示例为设置密码窗口 (1)
If Application.InputBox(“请输入密码：”) = 1234 Then
[A1] = 1 ‘密码正确时执行
Else
MsgBox “密码错误，即将退出！” ‘此行与第2行共同设置密码
End If
[……]
Read more
VBA工程密码移除与保护
‘移除工作表VBA保护
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
[……]
Read more
Excel文档VBA代码自动删除
有时候，不想让自己编写的代码让别人长期使用或换地方使用，又不想让文档自杀，就可以设计限期清除代码，或其他限制条件下清除。具体限制条件可参考作者《Excel文档自杀程序设计》Workbook_Open模块那一部分。代码清除后，与代码有关的程序就不能运行了。[……]
Read more