怎么给同一个excel中不同的表格设置单独的密码

ヾ_错误╮

以前看到一个excel可以给工作簿中的各个excel设置单独的密码，就是说给Sheet1、Sheet2、Sheet3、Sheet4、SheetN设置不同的密码进入，只要单击Sheet1就可以跳出输入密码的框，那位高手帮忙做个，代码最好能留下。如果用窗体也可以最好最是简单的，看起来和平常的表格一样。

ヾ_错误╮

先谢谢了                       

五百年/太阳

工作表文档

五百年/太阳

[b]在工作表ACtivate事件中输入以下代码：
Private Sub Worksheet_Activate()
  sheet1.Cells.Font.ColorIndex = 2  '设字体颜色为白色，和底色一样，就看不见了。
  Dim Mm
  Mm = InputBox("请输入密码", "工作表密码")
  If Mm <> "12345" Then  '密码 12345 ，如果输入不为12345 跳出sheet1,设Sheet2为当前工作表
      MsgBox "工作表密码不正确！", vbInformation + vbOKOnly, "提示"
      Sheet2.Activate
   Else
   Cells.Font.ColorIndex = 0  '设字体颜色为黑底，可以看见字了。
  End If
End Sub

ヾ_错误╮

就是这个附件，里面把Sheet2加密隐藏起来，我现在想应用想设置更多Sheet3、Sheet4里面，不是03的版本不可以

ヾ_错误╮

五百年/太阳 发表于 2013-1-4 23:38
工作表文档

这就是我以前看到的谢谢了，但昨晚我又看到一个更好的，不知道是不是07和03的问题，我想把他改到跟多工作表里或者按照他一样的在新建一个工作簿把原代码贴进去还是不可以，他的表格就可以，我传个附件你帮忙看下。

贾家口

ヾ_错误╮ 发表于 2013-1-5 10:36
就是这个附件，里面把Sheet2加密隐藏起来，我现在想应用想设置更多Sheet3、Sheet4里面，不是03的版本不可以

你这个是怎么做到的，我复制代码到我的表里，隐藏的看不到呀