VBA-SaveCopyAs隐藏

Question

每次保存工作簿时，都需要保存相同的工作簿，但已隐藏。

现在我有了这段代码

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
    ThisWorkbook.Saved = True
    On Error Resume Next
    If Not (Left(ThisWorkbook.Name, 2) = "Z_") Then
        Application.DisplayAlerts = False
        ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\Z_" & ThisWorkbook.Name
        SetAttr ThisWorkbook.Path & "\Z_" & ThisWorkbook.Name, vbHidden
        Application.DisplayAlerts = True
    End If
    SetAttr ThisWorkbook.Path & "\Z_" & ThisWorkbook.Name, vbHidden
End Sub

但是，它只能每隔第二次运行一次。第一次保存WB时，它将创建文件并将其隐藏，但是第二次保存时，它将删除隐藏的文件。

当我将SaveAs与overwrite属性一起使用时，它会保存文件并激活它，但是我不希望这样。

那是为什么？请问如何解决？