vba代碼怎樣隱藏工作簿？
1、首先我們打開一個工作樣表作為例子。2、使用 alt+f11 組合鍵打開 vbe編輯器 ，新建一個模塊，在模塊編輯窗中輸入以下代碼：
Option Explicit
Sub 隱藏()
Dim i As Integer
For i = 1 To sheets.Count
If Sheets(i).Name<> "源數據" Then
Sheets(i).Visible = 0
End If
Next x
End Sub
3、解讀這段代碼首先是要了解工作表的名稱規則是默認的以數字順序遞增，按工作表的順序依次是sheets1、sheets2、……直到最末尾一個工作表。 因此我們這里定義一個for循環，起始值為1，終值為工作表數 。
4、 接著我們對工作表名做判斷 。工作表出了下標值，也就是上步提到的順序命名，還可以自定義名稱，也就是我們這里寫的" 源數據 "。<>大于小于判斷符為不等于。
5、visible屬性是 可視屬性 ，作為表格對象的屬性即是可視或隱藏。這里寫做0即是隱藏，我們可以用更直觀的 寫法false。
6、制作一個按鈕并指定這個宏，我們運行一下，可以看到除了源數據工作表外，其他的工作表都隱藏起來了，如果需要回復，只需要將宏代碼中visible的屬性值0修改為1或者true然后運行即可
