Sub view_user()
	ActiveWorkbook.CustomViews("ちゅん - 個人用ビュー").Show
	'ユーザー設定の"ちゅん-個人用ビューを開きます
    	ActiveWorkbook.CustomViews.Add ViewName:="presheet", _
	'presheetというユーザー設定のビューを作成します
	PrintSettings:=True, _
	'印刷の設定を含みます
        RowColSettings:=True
	'非表示の行列およびフィルタを含みます
    	ActiveWorkbook.CustomViews("presheet").Delete
	'presheetのビューを削除します
End Sub