Excel：触发双击事件

我有一个由第三方密码保护的Excel工作簿。 该工作表中的交互是通过双击来切换字段中的复选标记。 我将不得不做7000双击完成这个任务，所以我想自动化它。 我怀疑是工作表正在使用BeforeDoubleClick事件。 密码encryption隐藏了实际的实现。

我开始在自己的工作表中运行一个testing，没有密码，来解决这些问题。

我已经尝试了Application.DoubleClick：

Range("B17").Select Application.DoubleClick 

但是，这并不会触发我的事件代码（Worksheet_BeforeDoubleClick），这为“真正的”双击工作。

这显然是由devise根据MS： http : //msdn.microsoft.com/en-us/library/office/aa220809(v=office.11​​).aspx

DoubleClick方法不会导致发生此事件。

我不能直接调用第三方事件代码，因为这个子是私有的。 有没有解决的办法？

我已经在Excel 2003和2007中尝试了这一点。

Answer 1

这是可以尝试的解决方法（我在Excel 2007上试过）

1. 使BeforeDoubleClick事件公开（我在Sheet1中使用这个）
   

   公共小组Worksheet_BeforeDoubleClick（BYVAL目标作为范围，取消布尔）

2. 在你的macros只是调用这个函数

    Range("B17").Select Call Sheet1.Worksheet_BeforeDoubleClick(Selection, False)