两种方法,一、把EXCEL安全选项降低到启用所有宏
二、将原自动保存另存为加载宏，并将此加载宏加载到该电脑的EXCEL软件上（这个较复杂，可以百度一下）
1、宏级别设置为最低；
2、把代码放进去；
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Set wb = ActiveWorkbook
wb.SaveAs ThisWorkbook.Path & "/" & Range("a1") & ".xlsm"
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024