前景提要(文末提供源碼下載）

昨晚我們玩了一下工作表的批量隐藏，整體代碼非常的簡單，隻有短短的幾行，精華隻有一句話

sth.Visible = xlSheetHidden

不過有小夥伴表示不服，因為他發現工作表隐藏了之後，不用代碼也可以取消隐藏，就是鼠标右鍵就可以

好吧，因為當初僅僅是考慮到工作表隐藏不可見，并沒有考慮太深入，不過既然大家發現了這個BUG，我們今天就來修複這個BUG，今天我們來嘗試下深度隐藏，以實現大家的要求，通過代碼隐藏之後，隻能通過代碼取消隐藏，絕對不可能通過鼠标去取消隐藏

代碼區

暫且我們稱之為深度隐藏吧

說起來那麼玄乎，其實實現起來也是非常的簡單，看代碼

Sub TEST() Dim sth As Worksheet For Each sth In Worksheets If sth.Name <> "最終統計結果" Then sth.Visible = xlSheetVeryHidden End If Next sth End Sub

看看效果

不僅僅成功的實現了工作表的批量隐藏，而且，你完全沒有辦法通過鼠标去取消隐藏，就算是知道有隐藏的工作表，你也不能通過鼠标來取消隐藏了。

如果想要取消的話，隻能通過我們上節學習的代碼的方式來取消隐藏了。 沒有代碼的情況下是沒有辦法取消隐藏的

可能這時候大家就會問了，是不是這樣任何知道取消代碼的人，都可以通過再寫一次代碼就可以隐藏了呢？

其實也簡單，你設置下密碼保護

如果人家要更改密碼的話，就。。。

不行咯

代碼分析

今天的代碼也很簡單

就一句話

sth.Visible = xlSheetVeryHidden

工作表的深度隐藏

=======================================================

本節課的案例源碼已經上傳，需要的小夥伴後台私信“7-43-8”，希望大家多支持~~，多多關注 ~ ~

好了，明晚19:00,準時再見!

,

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!

查看全部