Vô hiệu hóa một số menu và nút trong Toolbar

[PhanTuHuong]

Có một số bạn rất quan tâm đến vấn đề vô hiệu hóa một số menu và nút trong Toolbar để giải quyết một số công việc nào đó. Ứng dụng này linh hoạt hơn chức năng protect là chỉ hạn chế một số chức năng.

Tôi xin giới thiệu 2 đoạn code để vô hiệu hóa nút Italic và menu Format Cells như sau:

Sub An_nut_Italic()
  Dim DK As CommandBarControl
  For Each DK In Application.CommandBars(4).Controls
    If DK.Caption = "&Italic" Then
      DK.Enabled = False
      Exit Sub
    End If
  Next
End Sub

Sub An_menu_FormatCell()
  Dim menus As CommandBarPopup
  Dim Itemmenu As CommandBarControl
  Set menus = Application.CommandBars(1).Controls(5)
  
  For Each Itemmenu In menus.Controls
    If Itemmenu.Caption = "C&ells..." Then
      Itemmenu.Enabled = False
    End If
  Next
End Sub

Để phục hồi chức năng thì trả lại thuộc tính Enabled = True.

 

[chibi]

Vô hiệu hoá Ctrl+I và Ctrl+1 thì làm sao nhỉ?

Ý tôi muốn hỏi việc vô hiệu hoá phím tắt. (Ctrl+1 = Format Cells)

 

[PhanTuHuong]

Đây chỉ là ví dụ thôi, bạn có thể vô hiệu hóa các menu hoặc nút toolbar khác.

 

[anhtuan1066]

Đã gọi là "Vô hiệu hóa" thì phải cấm mọi thứ, kể cả chạy lệnh bằng phím tắt... Thế mới là "vô hiệu" chứ...

 

[tedaynui]

Đã gọi là "Vô hiệu hóa" thì phải cấm mọi thứ, kể cả chạy lệnh bằng phím tắt... Thế mới là "vô hiệu" chứ...

Khoá phím, em nghĩ dùng Onkey cũng được mà. Thực tế yêu cầu thế nào em không rõ nhưng thấy có cần thiết thế không ?

Thân!

 

[anhtuan1066]

Tất nhiên là cần thì người ta mới yêu cầu chứ... Lấy VD hôm trước uống cafe chúng ta có nói đến vấn đề làm cách nào vô hiệu hóa Cut và Copy.. Phước nhớ ko? Vô hiệu hóa phải đạt dc tiêu chuẩn là dù họ bấm phím tắt hay chạy lệnh trên menu cũng ko ăn thua... Chỉ khi nào ta chạy 1 code nào đó thì mọi chuyện mới trở lại bình thường...
Mến
ANH TUẤN

 

[tedaynui]

TuanVNUNI vừa post bài hướng dẫn khoá và khôi phục phím trong Excel rất hay (dùng Onkey). Các bác tham khảo xem.
http://www.giaiphapexcel.com/forum/showthread.php?t=4045

TDN