在运行时创build不同的访问权限,如读/写

有人可以帮助我的以下情况:我需要创build副本(复制)具有不同的安全访问,如读取,读取和执行,写入,修改和完全控制(当您检查文件的属性时,这些选项是可见的)。

在复制工作簿时,macros将要求用户select安全访问组合中的任何一个,当他点击“确定”时,应该使用该访问来生成文件

Excel VBAmacros可以实现这样的场景吗? 我应该使用哪个API或函数来实现。

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

我已经testing过了,根据当前的读取模式提出问题并重新打开。 这显然会调整到你的需要。

它只能以另一种模式重新打开文件,而不能复制它。

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