Sub Auto_Open()
Application.WindowState = xlMaximized ‘エクセルのウィンドウを最大化します
Sheets(“sheet名”).Select ‘開くシートを指定します
With ActiveWindow
.DisplayHorizontalScrollBar = False ‘水平スクロールバーを消す
.DisplayVerticalScrollBar = False ‘垂直スクロールバーを消す
.DisplayWorkbookTabs = False ‘シート見出しを消す
.DisplayGridlines = False ‘枠線を消す
.DisplayHeadings = False ‘行列番号を消す
End With
Toolbars(1).Visible = False ‘標準ツールバーを消す
Toolbars(2).Visible = False ‘書式設定ツールバーを消す
Toolbars(5).Visible = False ‘図形を消す
Toolbars(7).Visible = False ‘フォームを消す
Toolbars(9).Visible = False ‘ＶＢを消す
Application.DisplayFormulaBar = False ‘数式バーを消す
Application.DisplayStatusBar = False ‘ステータスバーを消す
ActiveWindow.Zoom = 100
End Sub
Sub 終了処理()
With ActiveWindow
.DisplayHorizontalScrollBar = True ‘水平スクロールバーを表示
.DisplayVerticalScrollBar = True ‘垂直スクロールバーを表示
.DisplayWorkbookTabs = True ‘シート見出しを表示
.DisplayGridlines = True ‘枠線を表示
.DisplayHeadings = True ‘行列番号を表示
End With
Toolbars(1).Visible = True ‘標準ツールバーを表示
Toolbars(2).Visible = True ‘書式を表示
Toolbars(5).Visible = True ‘図形を表示
Toolbars(7).Visible = True ‘フォームを表示
Toolbars(9).Visible = True ‘ＶＢを表示
Application.DisplayFormulaBar = True ‘数式バーを表示
Application.DisplayStatusBar = True ‘ステータスバーを表示
Application.DisplayAlerts = False ‘閉じる際に確認メッセージを出さない
Application.Quit ‘アプリケーション(エクセル)を終了する
