插入模块，输入以下代码：

Sub otime()
'一分钟后自动运行WbSave过程
Application.OnTime Now() + TimeValue("00:01:00"), "WbSave"
End Sub

Sub WbSave()
ThisWorkbook.Save        '保存本工作簿
Call otime              '再次运行otime过程
End Sub

在ThisWorkbook插入以下代码：

Private Sub Workbook_Open()
Call otime             '打开工作簿后自动运行otime过程
End Sub

另存为XLSM格式，重新打开工作簿，即可得到自动保存的工作簿