Sub file_save_sagyou()
	ActiveWorkbook.SaveAs Filename:="C:\My Documents\Book1.xlw"
	'C:\My DocumentsにBook1の作業状態を保存します
End Sub