EXCEL vba 怎么身份验证才能进入，例如：打开EXCEL文件，

进入VBA，双击thisworkbook对象，复制以下代码：

Private Sub Workbook_Open()

Dim Sht As Worksheet, PW As String

'利用循环语句将除了Sheet1外的所有工作表隐藏,这样防止有人通过禁用VBA来绕过验证程序而看到文件,Sheet1为一个空的工作表

For Each Sht In ThisWorkbook.Worksheets

If Sht.Name <> "Sheet1" Then Sht.Visible = xlSheetHidden

Next

'以下开始验证

PW = InputBox("请输入创建人身份证号：", "登录验证")

If PW <> "XXXXXXXXXXXXXXXXXX" Then

'复制以上代码后，请用实际的身份证号替代上面的XXXXXXXXXXXXXXXXXX

ThisWorkbook.Close SaveChanges:=False '如果输入不符，就退出工作薄

Else

'如果输入相符，就恢复被隐藏工作表的全部显示

For Each Sht In ThisWorkbook.Worksheets

Sht.Visible = xlSheetVisible

Next

End If

End Sub

结果如下图：