如何運用VBA隱藏Excel2003菜單欄與工具欄

在Excel 2003中，有時需要限制用戶的操作，例如當用戶打開某個指定的工作簿時，Excel 2003菜單欄和工具欄被隱藏起來。而當關閉該工作簿重新打開其他工作簿后，菜單欄和工具欄又恢復正常。用VBA代碼可以實現這個目的，步驟如下：

1.打開需要屏蔽菜單欄和工具欄的工作簿，按Alt+F11，打開VBA編輯器。

2.在“工程”窗口中選擇“ThisWorkBook”，在右側的代碼窗口中輸入下面的代碼：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
showhide (bHide = True)
End Sub

Private Sub Workbook_Open()
showhide (bHide = False)
End Sub

Sub showhide(Optional bHide As Boolean)
Dim cmb As CommandBar
Static col As New Collection
If bHide Then
For Each cmb In Application.CommandBars
If cmb.Type = msoBarTypeMenuBar Or cmb.Type = msoBarTypeNormal Then
If cmb.Visible Then
cmb.Enabled = False
If cmb.Visible Then cmb.Visible = False
col.Add cmb, cmb.Name
End If
End If
Next cmb
Else
If col Is Nothing Or col.Count = 0 Then
For Each cmb In Application.CommandBars
If cmb.Type = msoBarTypeMenuBar Or cmb.Type = msoBarTypeNormal Then
If Not cmb.Visible Or Not cmb.Enabled Then
cmb.Enabled = True
If (Not cmb.Visible) And cmb.Enabled Then cmb.Visible = True
End If
End If
Next cmb
Else
For Each cmb In col
If Not cmb.Visible Or Not cmb.Enabled Then
cmb.Enabled = True
If (Not cmb.Visible) And cmb.Enabled Then cmb.Visible = True
End If
Next cmb
End If
Set col = Nothing
End If
End Sub

3.在退出該工作簿前，先要讓菜單欄和工具欄隱藏起來，方法是：鼠標在代碼

Private Sub Workbook_Open()
showhide (bHide = False)
End Sub

中間單擊一下，讓光標停留在這段代碼中間，然后按F5鍵運行該段代碼，這時Excel中的菜單欄和工具欄都將被隱藏。

說明：這一步十分重要，不能省略，如果保存工作簿后不運行該段代碼而直接退出，下次打開Excel時，Excel中的所有工具欄都將會顯示在界面中。萬一出現這種情況，可以用下面的方法讓Exce恢復默認的工具欄設置。在Windows XP中，刪除“C:\Documents and Settings\用戶名\Application Data\Microsoft\Excel”文件夾中的“Excel11.xlb”文件，而在Windows Vista中，該文件在“C:\用戶\用戶名\AppData\Roaming\Microsoft\Excel”文件夾中。“Excel11.xlb”文件中保存了Excel 2003自定義菜單欄和工具欄設置，刪除該文件后Excel將自動恢復默認的菜單欄和工具欄。

這樣，當我們打開該工作簿時，菜單欄和工具欄將被隱藏，從而可以限制用戶的操作。而退出Excel 2003重新打開別的工作簿后，Excel 2003菜單欄和工具欄會照常顯示。