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

Question

最近，我的部门因过度使用 Bloomberg 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 或加载项之一的访问仅限于知道密码的人？

标签： excelvbapassword-protectionbloomberg