1、打开Excel 2003或2007或2010或2013完整版版本

2、进入“开发工具”一栏


3、点选“Visual Basic”选项卡中的“编辑器”



4、双击“ThisWorkBook”或“工作表1”


5、在空白区域填写代码:Sub 保存所有已打开的工作簿()Dim i As WorkbookFor Each i In Workbooks If i.Path <> "" Then i.Save End IfNext iEnd Sub


6、点击“运行”


7、点击“运行子过程/UserForm”
