请问在excel中怎么用vba设置开启密码

Question

要求：1、不用菜单方式做密码。2、不要用录制宏的方式，这个只要关闭宏就解了

Answer 1

不怎么理解你的意思啊，不过还是给出下面代码，供参考：
Private Sub Workbook_Open()
Application.Visible = False
a = InputBox("请输入密码：")
If a <> "abc" Then
ThisWorkbook.Close
Else
Application.Visible = True
End If
End Sub
‘===============================
’Application.Visible = False打开的时候隐藏excel表格
‘a = InputBox("请输入密码：")弹出输入密码框
’abc为设置的密码，可以改成你想要的
‘Application.Visible = True如果密码正确，恢复excel显示
’ThisWorkbook.Close如果密码不对，直接关闭该excel

另外你说的关闭宏，应该说的是删除宏，你可以按 alt+f11，调出vba编辑器，选工具——vbaproject属性——保护，输入密码防止宏被删就行。

Answer 2

VBA就要启用宏
按你所述，关闭宏，还要VBA干嘛？