[已解决]多个好功能，关闭excel表格自动隐藏文档

xhuang

详细如附件！

book.zip (24.66 KB, 下载次数: 15)

2013-12-28 16:07 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-12-28 16:36

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2.     Dim ir%, k%
   
3.     With Worksheets("密码文档")
   
4.         .Visible = 2
   
5.         Cells.EntireRow.Hidden = False
   
6.         ir = Sheets("Summary").Range("a" & Cells.Rows.Count).End(xlUp).Row
   
7.         For k = 2 To ir
   
8.             If Sheets("Summary").Range("a" & k).Value > 0 Then .Rows(k).Hidden = True
   
9.         Next k
   
10.     End With
    
11.     ThisWorkbook.Save
    
12. End Sub

复制代码

跳转到最佳答案楼层

yewei113

沙发，

hwc2ycy

直接利用工作簿事件解决吧。

hwc2ycy

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2.     Dim ir%, k%
   
3.     With Worksheets("密码文档")
   
4.         .Visible = 2
   
5.         Cells.EntireRow.Hidden = False
   
6.         ir = Sheets("Summary").Range("a" & Cells.Rows.Count).End(xlUp).Row
   
7.         For k = 2 To ir
   
8.             If Sheets("Summary").Range("a" & k).Value > 0 Then .Rows(k).Hidden = True
   
9.         Next k
   
10.     End With
    
11.     ThisWorkbook.Save
    
12. End Sub

复制代码

hwc2ycy

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2.     Dim ir%, k%
   
3.     Dim sht As Worksheet
   
4.     Set sht = Worksheets("Summary")
   
5. 
   
6.     With Worksheets("密码文档")
   
7.         .Visible = 2
   
8.         .Rows.Hidden = False
   
9.         ir = sht.Cells(Rows.Count, 1).End(xlUp).Row
   
10.         For k = 2 To ir
    
11.             If sht.Range("a" & k).Value > 0 Then .Rows(k).Hidden = True
    
12.         Next k
    
13.     End With
    
14.     ThisWorkbook.Save
    
15. End Sub

复制代码