excel2013里面需要隐藏表格，打开是隐藏的表格需要密码，这个如何操作呀？

ALT+F11打开VBE编辑器，选中需要隐藏的工作表，比如sheet2，点属性。

将Visible属性设置为：第3个 2-xlSheetVeryHidden。

选中VBAProject，右键点选VBAProject属性。

在属性窗口选中查看时锁定工程，密码区域设置密码。

最后保存excel文件，关闭重新打开即可。

以后要取消隐藏需要先ALT+F11打开VBE，输入密码，改Visible属性即可。

追问

按照你的设置，确实如此，不可打开

再打开VBA，直接修改visible属性就可以显示隐藏的表格，连密码都不需要输入，怎么解决



追答

你设置了VBAProject属性保护了没有？

设置了以后打开应该如上所示。

追问

这样么

追答

对，操作好了，保存文件，关闭然后重新打开。

追问

我就是这样设置的，设置保存之后，再打开表格，打开VB，visible这个属性值还是可以修改，不知道是什么原因，难道是我这个2013版本的原因？

追答

真心没用过2013版，所以不知是否版本原因，但是看楼下mrtaiki说的是否就是：保存成“启用宏的excle工作薄”（即xlsm格式）呢？

分两步走，

1、打开VBA环境，双击左侧的“ThisWorkbook"，将下面的代码粘贴到右边：

Dim hidden
Private Sub Workbook_Open()
Worksheets("Sheet1").Visible = False
hidden = 1
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Worksheets("Sheet1").Visible = False Then
hidden = 1
End If
If (hidden = 1 And ActiveSheet.Name = "Sheet1") Then
    Worksheets("Sheet1").Visible = False
    pwd = InputBox("enter password:")    
    If pwd = "123" Then '改为你自己的密码
    hidden = 0
    Worksheets("Sheet1").Visible = True
    End If
End If
End Sub

2、按照zuhi的办法，将vbaproject加密。

另外，别忘了保存成“启用宏的excle工作薄”（即xlsm格式）

本回答被提问者采纳

I CAN HELP YOU

 

插入 2个 ACTIVEX 控件： 命令按钮 

分别输入 如下代码

Private Sub CommandButton1_Click()
Sheets(1).Visible = xlSheetHidden
End Sub

Private Sub CommandButton2_Click()

pw = InputBox("请输入密码")

If pw = "123" Then Sheets(1).Visible = xlSheetVisible

End Sub

本回答被网友采纳