Chiêu Excel số 12: Tạo riêng một thanh công cụ cho riêng một bảng tính cụ thể

Rồi, nhập vào hai đoạn code sau đây:

Option Explicit
--------------------------------------------------------------------

Private Sub Workbook_Activate()
    On Error Resume Next
        With Application.CommandBars("MyCustomToolbar")
               .Enabled = True
               .Visible = True
        End With
    On Error GoTo 0
End Sub
 
--------------------------------------------------------------------

Private Sub Workbook_Deactivate()
    On Error Resume Next
        Application.CommandBars("MyCustomToolbar").Enabled = False
    On Error GoTo 0
End Sub

Bạn có thể thay thế “MyCustomToolbar” bằng cái tên mà bạn đã đặt cho thanh công cụ tự tạo của bạn. Sau đó bạn nhấn Alt+Q để trở về Excel.

Để thử, bạn hãy mở thêm một bảng tính nữa, Book2.xls chẳng hạn. Bạn sẽ thấy, khi nào bạn chọn bảng tính mà có đoạn code ở trên, thì bạn mới thấy “MyCustomToolbar”, còn nếu chọn Book2 (chuyển đổi qua lại giữa các bảng tính bằng Ctrl+Tab), “MyCustomToolbar” biến mất! Chọn lại bảng tính ban đầu, “MyCustomToolbar” xuất hiện lại. Vậy là thành công rồi!

Được voi đòi tiên. Bây giờ, giả sử bạn muốn rằng, trong cùng một bảng tính, nhưng chỉ có Sheet1 thì mới thấy “MyCustomToolbar”, còn Sheet khác thì không? 

Được thôi. Bạn có thể viết thêm một “Level” nữa cho đoạn code trên. Hãy bảo đảm là bạn đang chọn bảng tính có chứa code (tốt nhất là bạn đóng cái Book2 đi). Quay trở lại cửa sổ VBA, bạn hãy nhấn phải chuột vào Sheet nào mà bạn muốn thấy “MyCustomToolbar”, rồi chọn View Code (hoặc nhấn đúp vào tên Sheet đó cũng được). Ở đây tôi giả sử bạn chọn Sheet1.

Nhập vào hai đoạn code sau đây:

Option Explicit
--------------------------------------------------------------------

Private Sub Worksheet_Deactivate()
    On Error Resume Next
        Application.CommandBars("MyCustomToolbar").Enabled = False
    On Error GoTo 0
End Sub

--------------------------------------------------------------------

Private Sub Worksheet_Activate()
    On Error Resume Next
        With Application.CommandBars("MyCustomToolbar")
               .Enabled = True
               .Visible = True
        End With
    On Error GoTo 0
End Sub

Rồi nhấn Alt+Q để quay lại Excel. Bây giờ, bạn hãy dùng chuột hoặc nhấn Ctrl+PgUp/Ctrl+PgDn để chọn qua lại các Sheet và xem thử cái gì xuất hiện trên màn hình.

Xin đính kèm theo đây bảng tính đã có sẵn những đoạn code nói trên, cùng một “MyCustomToolbar” làm ví dụ.
Cũng xin nhắc lại, chiêu này chỉ có tác dụng với những phiên bản trước Excel2007.