Mac版Excel VBA无法保存新文件的问题求助

针对你遇到的Mac Excel 16执行VBA SaveAs时报1004共享冲突的问题，以下是几个可行的解决方案：

方案1：完善权限验证与文件冲突处理 #

Mac的沙箱机制对文件访问权限限制严格，即使调用了GrantAccessToMultipleFiles，也需要确认用户是否授权，同时提前清理已存在的目标文件：

Sub Rectangle2_Click()
    Dim wb As Workbook
    Dim strFullpath As String
    Dim filePermissionCandidates
    Dim fileAccessGranted As Boolean

    Set wb = Workbooks.Add
    strFullpath = ThisWorkbook.Path & Application.PathSeparator & "My Simple File Save Test.xlsx"
    
#If MAC_OFFICE_VERSION >= 15 Then
    filePermissionCandidates = Array(strFullpath)
    fileAccessGranted = GrantAccessToMultipleFiles(filePermissionCandidates)
    ' 用户拒绝授权时直接退出，避免后续报错
    If Not fileAccessGranted Then
        MsgBox "需要授予Excel文件访问权限才能保存", vbExclamation
        wb.Close SaveChanges:=False
        Exit Sub
    End If
#End If

    ' 若目标文件已存在，先尝试删除（需确保文件未被其他程序占用）
    If Dir(strFullpath) <> "" Then
        On Error Resume Next
        Kill strFullpath
        On Error GoTo 0
    End If

    wb.SaveAs strFullpath
    wb.Close SaveChanges:=False
End Sub

方案2：让用户手动选择保存路径（绕开沙箱权限限制） #

直接让用户通过文件对话框选择保存位置，Excel会自动处理权限问题，避免路径权限冲突：

Sub Rectangle2_Click()
    Dim wb As Workbook
    Dim savePath As Variant
    
    Set wb = Workbooks.Add
    
#If MAC_OFFICE_VERSION >= 15 Then
    ' 弹出保存对话框，让用户指定路径
    With Application.FileDialog(msoFileDialogSaveAs)
        .FileName = "My Simple File Save Test.xlsx"
        .FilterIndex = 2 ' 选择.xlsx格式
        If .Show = -1 Then
            savePath = .SelectedItems(1)
            wb.SaveAs savePath
        Else
            MsgBox "未选择保存路径，操作取消", vbInformation
        End If
    End With
#Else
    ' Windows平台保留原有逻辑
    Dim strFullpath As String
    strFullpath = ThisWorkbook.Path & Application.PathSeparator & "My Simple File Save Test.xlsx"
    wb.SaveAs strFullpath
#End If

    wb.Close SaveChanges:=False
End Sub

方案3：解决临时文件锁定问题 #

Mac Excel创建新工作簿时可能生成临时文件，导致目标路径被锁定，可通过激活工作簿+短暂延迟解决：

Sub Rectangle2_Click()
    Dim wb As Workbook
    Dim strFullpath As String
    Dim filePermissionCandidates
    Dim fileAccessGranted As Boolean

    Set wb = Workbooks.Add
    wb.Activate ' 激活新工作簿，释放临时文件锁定
    strFullpath = ThisWorkbook.Path & Application.PathSeparator & "My Simple File Save Test.xlsx"
    
#If MAC_OFFICE_VERSION >= 15 Then
    filePermissionCandidates = Array(strFullpath)
    fileAccessGranted = GrantAccessToMultipleFiles(filePermissionCandidates)
    If Not fileAccessGranted Then
        MsgBox "需要授予Excel文件访问权限才能保存", vbExclamation
        wb.Close SaveChanges:=False
        Exit Sub
    End If
#End If

    ' 延迟1秒，确保临时文件完全释放
    Application.Wait Now + TimeValue("00:00:01")
    
    wb.SaveAs strFullpath
    wb.Close SaveChanges:=False
End Sub

关键注意事项 #

• 权限设置：如果用户之前拒绝过Excel的文件访问请求，需要引导他们到系统设置>隐私与安全性>文件与文件夹中，手动给Excel授权目标文件夹的访问权限
• 路径格式：Mac上Excel支持两种路径格式，POSIX路径（如/Users/xxx/Documents/）和HFS路径（如Macintosh HD:Users:xxx:Documents:），确保代码中路径格式统一
• 文件占用：确认目标文件未被其他程序（如预览、其他Office软件）打开，否则会触发共享冲突

内容的提问来源于stack exchange，提问作者Greg Lovern