作者：乔山办公网日期：
返回目录：excel表格制作
说明有关闭工作簿事件运行百，运行的事件程序中有修改代码度的语句，但VBA有密码保护，所以要求输入密码才能修改。这往往是过期自杀代码，你输入正问确的密码后，代码就被删除了，下次答打开就没有原有的VBA功能。要继续使用这个表，最好版找原来的设计人员解决，要不然就每次都权显示这个密码框了
Sub test()
myPW = "123456" '设置密码
p = InputBox("请输入运copy行密码", "温馨提示百！度", Default)
If myPW = p Then
MsgBox "OK" '删除此知句，插入原代码
Else
MsgBox "密码错道误，请重新输入！", , "温馨提示！"
End If
End Sub
那就做个简单的
最简单的方百法(也比较简陋)：
在workbook代码框输入：
Private Sub Workbook_Open()
Dim Password, Pword
Password = "3322" '预先设置好自度己的密码
Pword = InputBox("请输入密码")
If Pword <> Password Then
MsgBox "对不起，没有访问权限！"
ThisWorkbook.Close
End
End If
End Sub
功能：一打开工版作簿就要求输入预设的密码，密码不对就关权闭工作簿。