有什么方法可以防止打开任何Excel文件的密码

Question

最近，由于过度使用彭博Excel API，我的部门被指控巨额资金。我们需要以某种方式将对Excel应用程序的访问限制为仅一群人，而对彭博终端本身的访问应保留给所有人。

我尝试将下面的代码放入PC上的“个人宏”电子表格，以便在以excel计算模式打开的每个文件都切换为手动时，所有工作表都被隐藏并且受密码保护，但是并不是将其应用于每个打开的文件如预期。

Private Sub Workbook_Open()
    Dim shWorksheet As Worksheet

    If InputBox("Input protective password: ") <> "TheSecretPassword" Then

        For Each shWorksheet In Worksheets
            With Application
                .Calculation = xlManual
                .CalculateBeforeSave = False
            End With

            With shWorksheet
                .Protect "TheSecretPassword"
                .Visible = xlSheetHidden
            End With
        Next shWorksheet

    End If
End Sub

是否有解决方案将访问整个Excel或加载项之一限制为仅知道密码的人？