Question

我有几个在 Windows 上运行的 VBA 宏。我正在尝试将它们移植到 Mac m1，但在 Mac 上遇到了沙盒问题。每次宏尝试打开一个新文件时，它都会触发一个访问权限对话框。 Microsoft 文档指出 GrantAccessToMultipleFiles 是部分解决方案。

我编写了以下代码来扫描目录并枚举其中的所有文件以传递给 GrantAccessToMultipleFiles。不幸的是，当我将 files 数组传递给例程时，什么也没有发生，除了它返回一个 True 指示访问被授予之外什么也没有发生。根本没有出现权限对话框。

稍后，当我的代码尝试打开枚举文件时，我收到一个访问权限请求对话框。我想可能有一个未记录的数组限制，所以只传递了几个文件但得到了相同的结果。

我做错了什么？

   Sub directoryGrant(dire)
   Dim files() As String
   Dim i, s, b As Boolean

   i = 0
   s = dir(dire)
   If s = "" Then End
   While s <> ""
     ReDim Preserve files(i)
     files(i) = s
     i = i + 1
     s = dir
   Wend

   b = GrantAccessToMultipleFiles(files)
   If b = False Then i = i / 0
   End Sub

正如我所说，上面的代码，如果它有效，那只是部分解决方案，因为稍后我的代码会下载客户端文件，直到它们到达时我才知道其名称。我需要能够在不触发权限对话框的情况下打开这些文件。

有什么方法可以在 Mac 上禁用 Excel 的应用沙箱，以便我可以使用自己的计算机来完成我的工作？

*编辑更新。很早就，我尝试了“授予完整磁盘访问权限”来使 excel 无法正常工作。尝试 GrantAccessToMultipleFiles 到同样不起作用的目录。那时，我写了上面的代码来看看这是否可行。那里也没有快乐。我终于尝试只授予对特定文件的访问权限，但该文件也不起作用。要么这是一个 M1 问题，我完全搞砸了，要么微软从来没有让它工作并发布。

Answer 1

如果您只想在您的计算机上运行宏，您可以将 Excel 添加到具有“完整磁盘访问权限”的应用程序：

开放系统偏好
点击“安全和隐私”
打开“隐私”标签
向下滚动到“全盘访问”
使用左下方的锁图标进行身份验证
通过拖放或使用“+”按钮将 Excel 添加到列表中

您也可以尝试直接GrantAccessToMultipleFiles到目录（我不精通 VBA）。

GrantAccessToMultipleFiles 不适用于 Mac M1

1 个答案: