alt+f11双击thisworkbook,添加下面的代码.Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Cancel = TrueEnd Sub
