旁路需要信任的文件吗？

Question

我正在构建一个基于VBA的应用程序，该应用程序将有大约150个用户。他们都将拥有自己的数据文件，表，自定义视图等。但是我需要定期更新应用程序背后的代码。因此，即时通讯使用两项工作书技术，其中其独特的用户工作簿（称为UWS）都将控件传递给包含所有代码的代码工作簿（称为CW）。这样，当我需要更新时，我会更新CW，每个人都可以用新文件夹中的旧CW替换旧的CW，而UWS保持不变。

我的问题是，我希望CW基本上保持隐藏和保护。但是使用宏观安全性，更新后他们打开UWS并立即调用新CW中的启动子例程时，它将不会运行。他们必须首先打开CW（我不想！），并在打开UWS之前将其制作为受信任的文档，将在CW中运行启动子例程。

这没关系，但这是UWS中唯一的代码（请注意，这仍然处于原型/早期阶段，因此所有内容都称为“测试”！）：

Private Sub Workbook_BeforeClose(Cancel As Boolean)

On Error Resume Next
 Workbooks("Test CW.xlsm").Close
End Sub

Private Sub Workbook_Open()

Application.ScreenUpdating = False

'Checks to see if TestCW is present next to Test UW
On Error Resume Next
X = Workbooks("Test CW.xlsm").Name 'Sets X to name of workbook; if its not there this will throw an error and Err <> 0
If Not (Err = 0) Then  'If there's no error
    On Error GoTo CWFileError
    Workbooks.Open Filename:=ThisWorkbook.Path & Application.PathSeparator & "Test CW.xlsm"  'Opens Test CW if in same folder

    'Makes Test CW hidden
    Workbooks("Test CW.xlsm").Windows(1).Visible = False
End If
On Error GoTo 0

'Runs test module in Test CW, then returns control to here
With Application
    .ScreenUpdating = True
    .Run "'Test CW.xlsm'!ThisWorkbook.TestStart" 'Uses ThisWorkbook.TestSTart as TestStart is a Workbook-level subroutine in the ThisWorkbook module
End With

ThisWorkbook.Activate
Exit Sub

CWFileError:
MsgBox "Your SVEDash application file named Test CW is not in this folder." _
    & vbCrLf _
    & "Please locate your current SVEDash application file and place it in this folder." _
    & vbCrLf _
    & "This file will close to prevent damage to your data."
On Error GoTo 0

ThisWorkbook.Close
End Sub

关于我如何绕过此安全问题的任何想法，而无需用户必须更改其安全设置？

Answer 1

这似乎只是第一个“ Updte”的问题。当我将较新的“更新” CW复制到文件夹中时，只要我将名称保持一致，则记住了以前文件的先前信任状态。希望那是一个实际的解决方案