不同密码打开不同sheet

lay龙86 · 发表于 2017-12-21 17:46

求助各位！
不同密码打开不同sheet！
如输入123456打开所有的sheet，
输入12345只能打开表1

ivccav · 发表于 2017-12-21 20:40

本帖最后由 ivccav 于 2017-12-21 20:45 编辑

楼主还真厉害，一个表格可以有几个打开密码。都是通过账号设置的，不同账号能看到的界面不同就行了。你可以弄一个窗体，不同账号登录，能看到不同的按钮（指向各表格），或者根据账号直接用代码隐藏显示某些表格

lay龙86 · 发表于 2017-12-22 07:47

ivccav 发表于 2017-12-21 20:40
楼主还真厉害，一个表格可以有几个打开密码。都是通过账号设置的，不同账号能看到的界面不同就行了。你可以 ...

谢谢指点！按照你的建议能帮我实现吗，非常感谢！

microyip · 发表于 2017-12-22 08:04

建立一个InputBox获取密码，然后根据获取密码对不同表进行显隐(可以通过录制宏获取代码)

ivccav · 发表于 2017-12-22 08:30

microyip 发表于 2017-12-22 08:04
建立一个InputBox获取密码，然后根据获取密码对不同表进行显隐(可以通过录制宏获取代码)

这，太简陋了吧？密码都需要预设。想改个密码都得修改代码。不过的确是楼主的要求，呵呵

ivccav · 发表于 2017-12-22 09:44

本帖最后由 ivccav 于 2017-12-22 09:48 编辑

不能隐藏所有工作表，以前没用过，现在才知道有这限制。只能把标签也隐藏了。

Private Sub Workbook_Open()
On Error Resume Next
Dim psw$, YN$, sht As Worksheet
ActiveWindow.DisplayWorkbookTabs = False
Line1:
psw = InputBox("请输入你的密码：", "密码输入框")
If psw = "12345" Then
      Sheet1.Visible = xlSheetVisible
      Sheet1.Activate
      ActiveWindow.DisplayWorkbookTabs = True
      For Each sht In Worksheets
         If sht.CodeName <> "Sheet1" Then sht.Visible = xlSheetVeryHidden
      Next
ElseIf psw = "1234" Then
      Sheet2.Visible = xlSheetVisible
      Sheet2.Activate
      ActiveWindow.DisplayWorkbookTabs = True
      For Each sht In Worksheets
         If sht.CodeName <> "Sheet2" Then sht.Visible = xlSheetVeryHidden
      Next
ElseIf psw = "123" Then
      Sheet3.Visible = xlSheetVisible
      Sheet3.Activate
      ActiveWindow.DisplayWorkbookTabs = True
      For Each sht In Worksheets
         If sht.CodeName <> "Sheet3" Then sht.Visible = xlSheetVeryHidden
      Next
ElseIf psw = "12" Then
      Sheet4.Visible = xlSheetVisible
      Sheet4.Activate
      ActiveWindow.DisplayWorkbookTabs = True
      For Each sht In Worksheets
         If sht.CodeName <> "Sheet4" Then sht.Visible = xlSheetVeryHidden
      Next
ElseIf psw = "123456" Then
      For Each sht In Worksheets
         sht.Visible = xlSheetVisible
         sht.Activate
         ActiveWindow.DisplayWorkbookTabs = True
      Next
Else
      YN = MsgBox("密码错误！是否重新输入？", vbYesNo)
      If YN = vbYes Then GoTo Line1 Else ThisWorkbook.Close 0
End If
End Sub

ivccav · 发表于 2017-12-22 09:47

这是附件，将就用吧！感觉代码太啰嗦，应该有更简单的方式（从未隐藏过工作表，欠缺知识）。

不同密码打开不同工作表.zip (9.06 KB, 下载次数: 241)

阿辉少 · 发表于 2019-4-16 17:00

这个非常不错,我在这里解决了一个又一个问题

260964006 · 发表于 2021-9-1 15:12

学习了，谢谢大神

小眼睛看世事 · 发表于 2022-8-27 21:48

有个问题，当打开某个sheet时，修改后再保存，那么下次用打开excel时首先展示的是上次保存时的sheet

		自动登录	找回密码
密码			免费注册

[求助] 不同密码打开不同sheet