ThisWorkbook是一个类模块，它有一个PredeclaredId属性，可以从任何地方访问它，但是它的成员仍然是 its 成员。你可以从代码的任何地方访问ThisWorkbook的任何公共成员，方法是用预先声明的ThisWorkbook对象限定它：

Debug.Print ThisWorkbook.wsWorking.Name

如果你想要一个 global 变量，那么你就不能使用object模块，因为对象需要一个示例（自动创建的ThisWorkbook示例并没有减少它的对象示例）。相反，在一个 standard module 中声明一个公共变量，然后你可以在代码的任何地方不加限定地访问它，无论是读还是写。
等等，大声说出来。
然后你可以从代码的任何地方不加限定地访问它，不管是读还是写。
这可能不是一个好主意，考虑将其声明为Private，并且只将其公开为Public Property Get，以便它在任何时候、任何地方都 * 不能 * 被任何东西覆盖。
如果它是ThisWorkbook中的Public，这应该可以工作：

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Set ThisWorkbook.wsWorking = ThisWorkbook.Worksheets("MRL 1")
    Dim clickRow As Integer '<~ this will explode at row 32,768. Use a Long!
    Dim ClickCol As Integer '<~ should still be a Long

这里有几个严重的问题：

Call SaveFormToScorecard_Click '<~ event handlers aren't supposed to be invoked like this
    Unload Me '<~ self-destructing object, danger!
    ActiveWorkbook.Sheets(wsWorking).Activate '<~ will throw error 1004 End Sub ```

ActiveWorkbook是 * 任何工作簿碰巧在那个时候是活动的 *，虽然它 * 可能是 * ThisWorkbook，但也有很大的可能不是。无论何时它不是，这个 * 都会 * 崩溃。wsWorking是Worksheet引用，取消引用它是多余的（通过名称，隐式地！）从Sheets集合中-只需要ThisWorkbook.wsWorking.Activate就可以了。
注意，如果wsWorking在编译时存在于ThisWorkbook中，那么最好使用它自己的预声明示例。
每个Worksheet模块都有一个(Name)属性，该属性是VB项目组件的名称;这个值变成了一个全局对象的名字，就像ThisWorkbook一样。2更多的信息请参考implicit containing workbook reference Rubberduck inspection。