Giúp code vô hiệu hóa 1 nút bấm trên bàn phím

[hondacrv2019]

Chào cả nhà GPE ! Em có 1 file gồm 25 Sheet hiện em đang dùng code này đế tránh nhấn F11 ( vì nhấn nó tạo nhiều Sheet chart biểu đồ gây nặng file )

Private Sub Worksheet_Activate()
Application.OnKey "{F11}", ""
End Sub


Private Sub Worksheet_Deactivate()
Application.OnKey "{F11}"
End Sub

Code chỉ chạy cho khi sheet nào có code trên, nhưng khi qua sheet khác thì vẫn nhấn phím F11 được, chẳng lẻ file có 100 sheet thì làm copy code cho 100 sheet thì rất lâu. Mọi người có cách gì nhanh hơn không. xin chân thành cảm ơn

 

[70211119]

Bạn có thể tạo 1 file .xlam mới, bỏ code đó vào module và thêm vào excel dưới dạng addin ạ.

 

[ppc0312]

Chào cả nhà GPE ! Em có 1 file gồm 25 Sheet hiện em đang dùng code này đế tránh nhấn F11 ( vì nhấn nó tạo nhiều Sheet chart biểu đồ gây nặng file )

Private Sub Worksheet_Activate()
Application.OnKey "{F11}", ""
End Sub


Private Sub Worksheet_Deactivate()
Application.OnKey "{F11}"
End Sub

Code chỉ chạy cho khi sheet nào có code trên, nhưng khi qua sheet khác thì vẫn nhấn phím F11 được, chẳng lẻ file có 100 sheet thì làm copy code cho 100 sheet thì rất lâu. Mọi người có cách gì nhanh hơn không. xin chân thành cảm ơn

Để vào sự kiện
Workbook_Open
và
Workbook_BeforeClose

là được
hoặc


Private Sub Workbook_WindowActivate(ByVal Wn As Window)

End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)

End Sub