VBA
除了现有的三个表，再新建一个叫首页的表，在首页的B2单元格输入密码，不同的密码可以打开不同的工作表。 按ALT+F11打开
VBA界面，插入一个模块，把下面这段代码复制进去：
VBASub 登录()If Sheets(首页).Range(b1) = 123 Then Sheets(Sheet1).Visible = True Sheets(Sheet1).Select Exit SubEnd IfIf Sheets(首页).Range(b1) = 456 Then Sheets(Sheet2).Visible = True Sheets(Sheet2).Select Exit SubEnd IfIf Sheets(首页).Range(b1) = 789 Then Sheets(Sheet3).Visible = True Sheets(Sheet3).Select Exit SubEnd IfEnd SubSub Auto_Close()For i = 1 To Sheets.Count If Sheets(i).Name 首页 Then If Sheets(i).Visible = True Then Sheets(i).Visible = xlSheetVeryHidden End IfNextSheets(首页).Range(b1).SelectSelection.ClearContents '清除密码End Sub
最后在首页这个表里加一个按钮，按钮绑定的宏选登录就行。 使用的时候，在首页的B2格输入密码，然后点登录按钮，就能跳转到对应的工作表啦。
