一个控件上的点击事件有时不会触发

我在一张纸上有两个button。 有时，点击其中一个button不会“触发”事件。

• 将光标悬浮在button上会将光标从十字转换为箭头
• 该button不会像“事件”发生时那样“压低”。
• 代码中的断点或停止语句没有达到。
• 另一个button从来没有演示这个问题。
• 如果代码是手动启动的，代码将按devise运行。
• 在Designer Mode ，代码似乎被附加到button。
• closures并重新打开工作表，然后触发正常工作的button将恢复此button的function。

疑难解答build议，将不胜感激。 button代码如下是属性窗口，但我认为问题在于其他地方; 只是不知道在哪里看。

再次，另一个非常相似的button，它调用不同的代码，似乎一直工作正常。

感谢您的任何指导。

 Option Explicit Private Sub cbDeleteViewed_Click() With cbDeleteViewed .Width = .Width End With Application.ScreenUpdating = False Select Case Environ("COMPUTERNAME") Case "RON-DODIER" sDrive = "F:\" sBasePath = "Videos" ProtectDisable Sheet1 UnProtectEnable Sheet3 Sheet3.Select Case "RONBP" sDrive = "Z:\" sBasePath = "" ProtectDisable Sheet3 UnProtectEnable Sheet1 Sheet1.Select Case Else MsgBox "Cannot Run on This Computer" Exit Sub End Select SetUpZ DeleteViewedShows Application.ScreenUpdating = True End Sub