エクセルの保存時にSheet1で保存する

質問

いつもお世話になっております。
エクセル2016で他のシートでファイルを保存しても必ずSheet1で保存するようにしたいのですが。
目的は開くときに必ずSheet１で開いてくるようにしたいのです。
以前オープンマクロを自作したらエクセルが開かなくなってしまって非常に焦ったことがあるので出来れば保存時のマクロでお願いします。
尚、Sheet１にはオープンマクロが組んで有り必ずA列が表示されるようになっています。（問題ないでしょうか？）
過去にA列が隠れていたためにB列からデータを入力してしまい苦情になったことがあるので再発防止対策です。
その後シートが増えたので別のシートで保存してしまった場合の対策です。

回答No.1

m3_maki · ベストアンサー

ThisWorkbook に

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
　Worksheets(1).Activate
End Sub

で。

お礼

早々のご回答ありがとうございます。

ご回答いただいた3つとも完璧に動作する事を確認しました。
一番最初にご回答いただいたm3_makiさんにさせていただきます。

回答No.3

imogasi

質問の表現がおかしい。
エクセルに限らず、外部記憶装置のディスクなどに保存するのは、ファイル単位でしかできません。
＞Sheet1で保存する 、
の表現は、コンピューターの基礎知識を疑われる。
ーー
＞開くときに必ずSheet１で開いてくるようにしたいのです
これなら若したいことが判る。シート「Ｓｈｅｅｔ１」から作業を始めたい場合もあるだろうから、ありれたニーズだ。
ＷＯＲＫＢＯＯＫのＯｐｅｎイベントを使えばよいのでは？
＞オープンマクロを自作したらエクセルが開かなくなってしまって非・・
そういう恐れは、いわれてないと思う。他の事情だろう。
「workbook_openイベント　イベントプロシージャ」などで照会すれば
https://excel-ubara.com/excelvba1/EXCELVBA424.html
ほかたくさんの記事が出る。
その中に
ＷｏｒｋＳｈｅｅｔｓ（”Ｓｈｅｅｔ１”）．Ａｃｔｉｖａｔｅ
を入れておけばよい。
Private Sub Workbook_Open()
Worksheets("Sheet1").Activate
End Sub
シート名で指定しているので、望む、かつ存在するシート名を文字列で指定しないとならない。
ーー
保存するとき、Ｓｈｅｅｔ１をＡｃｔｉｖａｔｅして保存しても、開いた時には、おなじだろうが。

お礼

早々のご回答ありがとうございます。

参考HPも参考になりました。

回答No.2

watabe007

>エクセルの保存時にSheet1で保存する
ThisWorkbookモジュールのBeforeSaveイベントを利用します。
下記コードをThisWorkbookモジュールに記述してください。
保存前、どのシートに有っても必ずSheet1のA1セルを選択して保存されますので次回開くときはSheet1のA1セルがアクティブの状態で開かれます。
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
　　Application.Goto Reference:=Worksheets("Sheet1").Range("A1"), Scroll:=True
End Sub

お礼

いつもお世話になっております。
セルまで指定できるコードは参考になります。
今回ご回答いただいた3つとも一発で動くことを確認しました。

どれも簡単で完璧に動きますのでBSは最初にご回答いただいた#No1さんにしますのでご了承ください。

本当にいつもありがとうございます。