菜鸟求助，强制启用宏才能修改文件

booere

我的目的是打开表格的人启用宏才能看到表2，表1隐藏。不启用宏的话表2隐藏，表1显示。
我调试了几次有时能成功，但会报错。和两个表的显示状态有关。

附件大家帮忙看看。

booere

还有这些代码有点问题，有时不启用宏也能看到取消隐藏，这不表2就直接暴露了？

microyip

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2.     Dim sh As Worksheet
   
3.    
   
4.     Sheet1.Visible = xlSheetVisible
   
5.     For Each sh In Me.Worksheets
   
6.         If UCase(sh.Name) <> "SHEET1" Then sh.Visible = xlSheetHidden
   
7.     Next sh
   
8.     Me.Save
   
9. End Sub
   
10. 
    
11. Private Sub Workbook_Open()
    
12.     Dim sh As Worksheet
    
13.     Sheet2.Visible = xlSheetVisible
    
14.     For Each sh In Me.Worksheets
    
15.         If UCase(sh.CodeName) <> "SHEET2" Then sh.Visible = xlSheetVeryHidden
    
16.     Next sh
    
17. End Sub

复制代码

zhanghai0602

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2.     Sheets("表1").Visible = True
   
3.     Sheets("表2").Visible = False
   
4.     Me.Protect 123, True, False '锁定工作簿
   
5. End Sub
   
6. 
   
7. Private Sub Workbook_Open()
   
8.     Me.Unprotect 123 '解锁工作簿
   
9.     Sheets("表1").Visible = False
   
10.     Sheets("表2").Visible = True
    
11. End Sub

复制代码

试一下这种方式能否达到你的效果

booere

zhanghai0602 发表于 2019-10-9 09:42
试一下这种方式能否达到你的效果

试了一下，好像无法切换表格，反正就是开宏显示表2，不开宏显示表1，对应的不显示表格要深度隐藏。