怎么让EXCEL打开就出现“登陆和密码”对话框,用VBA，谢谢！

Question

如题所述

Answer 1

最简单的方法(也比较简陋)：
在workbook代码框输入：
Private Sub Workbook_Open()
Dim Password, Pword
Password = "3322" '预先设置好自己的密码
Pword = InputBox("请输入密码")
If Pword <> Password Then
MsgBox "对不起，没有访问权限！"
ThisWorkbook.Close
End
End If
End Sub
功能：一打开工作簿就要求输入预设的密码，密码不对就关闭工作簿。

Answer 2

可以设置密码.
选择选项栏,选保存,设置密码