Thắc mắc về thanh công cụ tự tạo cho EXCEL (1 người xem)

[hoacomay8x]

Xin chào các bác.
Nhờ các bác chỉ bảo mà em đã tạo được một thanh công cụ cho riêng mình khi sử dụng E.
Tuy nhiên có 2 vấn đề mà em thắc mắc:
1) Tại Book11 em đã tạo một thanh công cụ riêng, nó chạy ngon lành. Khi thoát khỏi E, em đổi tên Book11 thành Book12, nút công cụ em tự tạo lại không chạy được nữa

2) Copy Book11 sang máy khác thì thanh công cụ mình tạo ra lại khong có.

Vậy có cách nào để nó vẫn chạy được ko ạ?
Mong các bác chỉ giáo cho em.
Để tiện các bác theo dõi và xử lý, em có đính kèm tập tin.

 

[ndu96081631]

Xin chào các bác.
Nhờ các bác chỉ bảo mà em đã tạo được một thanh công cụ cho riêng mình khi sử dụng E.
Tuy nhiên có 2 vấn đề mà em thắc mắc:
1) Tại Book11 em đã tạo một thanh công cụ riêng, nó chạy ngon lành. Khi thoát khỏi E, em đổi tên Book11 thành Book12, nút công cụ em tự tạo lại không chạy được nữa

2) Copy Book11 sang máy khác thì thanh công cụ mình tạo ra lại khong có.

Vậy có cách nào để nó vẫn chạy được ko ạ?
Mong các bác chỉ giáo cho em.
Để tiện các bác theo dõi và xử lý, em có đính kèm tập tin.

File này còn thiếu code tạo menu, làm sao chạy được chứ

 

[hoacomay8x]

File này còn thiếu code tạo menu, làm sao chạy được chứ

Vậy Code như nào vậy bác ndu96081631 ơi. Bác đưa luôn vào Book11 để em tải xuông tham khảo với ạ.

 

[ndu96081631]

Vậy Code như nào vậy bác ndu96081631 ơi. Bác đưa luôn vào Book11 để em tải xuông tham khảo với ạ.

Rõ ràng bài 1 bạn nói

1) Tại Book11 em đã tạo một thanh công cụ riêng, nó chạy ngon lành.

Vậy thì bạn phải đưa code đầy đủ lên đây chứ sao lại bảo tôi?

 

[hoacomay8x]

Bác ndu96081631và các bác ở GPE ơi! Em để cả ở trong Book11 mà em đã đính kèm mà.
Vây em up lên để các bác coi hộ em với.
Tại ThisWorkbook, em có đoạn code
Private Sub Workbook_Activate()
On Error Resume Next
With Application.CommandBars("MyToolbar")
.Enabled = True
.Visible = True
End With
On Error GoTo 0
End Sub

Private Sub Workbook_Deactivate()
On Error Resume Next
Application.CommandBars("MyToolbar").Enabled = False
On Error GoTo 0
End Sub
Sub hien_Click()
thongtin.Show
End Sub
Sub TaoMenu()
Dim mnuBar As ComandBar
Set mnuBar = Application.Commands("MyToolbar")
End Sub

Con nút THOÁT thì Code sau:
Private Sub thoat_Click()
End
End Sub

Nhờ các bác xem giúp em với ạ.

 

[hoacomay8x]

Các bác GPE giải đáp thắc mắc của em với ạ.