[已解决]关于不保存留下的后患，希望 得以解决

598598

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Dim i As Integer
For i = 1 To Sheets.Count
If Sheets(i).Name <> "总目录" Then
Sheets(i).Visible = 2
End If
Next i
ThisWorkbook.Close False
希望在工作薄最后不保存，但是关闭工作薄后要隐藏除 总目录 以外的工作薄，这要如何实现呢，现在关闭工作薄看着是都隐藏了，但是当在次打开工作薄因没有保存的原因，工作薄先前没隐藏的还在。

最佳答案

月排行榜 / 总排行榜

zjdh

2012-5-25 08:40

只要把隐藏语句放在OPEN事件里即可。
Private Sub Workbook_Open()
    On Error Resume Next
    For i = 1 To Sheets.Count
        If Sheets(i).Name <> "总目录" Then
            Sheets(i).Visible = 2
        End If
    Next i
End Sub

跳转到最佳答案楼层

598598

知道了，这个问题不可能实现的，如果一旦隐藏了，必定是保存了。

huyuwang

不保存的话不能实现吧

zjdh

只要把隐藏语句放在OPEN事件里即可。
Private Sub Workbook_Open()
    On Error Resume Next
    For i = 1 To Sheets.Count
        If Sheets(i).Name <> "总目录" Then
            Sheets(i).Visible = 2
        End If
    Next i
End Sub

598598

zjdh 发表于 2012-5-25 08:40
只要把隐藏语句放在OPEN事件里即可。
Private Sub Workbook_Open()
    On Error Resume Next

感谢这个思路，VBA的问题能想出来就会有实现的可能啊。{:021:}