废话不多说直接上代码： Sub Showsaveinfo()    Dim savetime As String    savetime = ActiveWorkbook.BuiltinDocumentProperties("last save time").Value    If savetime = &q