Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayAlerts = False
    Dim s$
    w = "abc " & Month(Now) & "月" & Day(Now) & "日" & ".xls"
    With Me
        s = .ActiveSheet.[b2] & w
        If s <> .Name Then
            .SaveCopyAs .Path & "\" & s
            .ChangeFileAccess xlReadOnly
            Kill .FullName
        Else
            .Save
        End If
    End With
End Sub

我想在原文件修改之后选择保存时，文件名自动更改为原文件名加最后一次修改日期，如果原文件未修改，那么退出时正常提示是否保存
这个怎么改，求教大神，感谢