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

发布网友 发布时间：2022-04-25 08:35

我来回答

共4个回答

热心网友 时间：2023-11-09 14:40

打开excel表格文件----审阅----保护工作表----设置密码----确认密码----确定后保存excel文件后，关闭后再打开就要输入密码才能打开了。

热心网友 时间：2023-11-09 14:40

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

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

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

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

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

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

热心网友 时间：2023-11-09 14:40

分两步走，

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格式）

热心网友 时间：2023-11-09 14:41

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

热心网友 时间：2023-11-09 14:40

打开excel表格文件----审阅----保护工作表----设置密码----确认密码----确定后保存excel文件后，关闭后再打开就要输入密码才能打开了。

热心网友 时间：2023-11-09 14:40

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

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

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

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

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

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

热心网友 时间：2023-11-09 14:41

分两步走，

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格式）

热心网友 时间：2023-11-09 14:41

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