这个写在 thisworkbook 的代码Private Sub Workbook_Open() ’工作簿打开时UserForm2.Show 'UserForm2 是你输入窗口的名称End Sub在输入窗口里面加一个按钮 代码是 Private Sub save_bt_Click() '保存工作薄Application.Workbooks(gzbm).Save ‘gzbm 是工作簿的名称End Sub