69.作業状態の保存
Application.Dialogs(xlDialogSaveWorkspace).Show