excel - 创建具有不同访问权限的 Excel，例如在运行时读/写

Question

有人可以帮我解决以下情况：我需要创建副本（复制）某些具有不同安全访问权限的 Excel 工作表，例如读取、读取和执行、写入、修改和完全控制（这些选项在您检查文件的属性时可见）。

复制工作簿时，宏将要求用户选择任何一种安全访问组合，当他单击“确定”时，应使用该访问生成文件

可以使用 Excel VBA 宏来实现这样的场景。我应该使用哪个 api 或函数来实现。

有人可以指出我正确的方向。这将是很大的帮助。

Answer 1

我已经对此进行了测试，它会根据当前的阅读模式提出问题并重新打开。这显然会根据您的需要进行调整。

它只会以另一种模式重新打开文件，而不是复制它。

Private Sub Workbook_Open()

    With ThisWorkbook
    Stop
        If .ReadOnly Then
            If MsgBox("Change to write mode?", vbYesNo) = vbYes Then
                .ChangeFileAccess xlReadWrite
            End If
        Else
            If MsgBox("Change to read only mode?", vbYesNo) = vbYes Then
                .ChangeFileAccess xlReadOnly
            End If
        End If
    End With

End Sub