エクセルVBAのマルチページはフォームを再起動した際に、開いたページの情報を保持することができますか？

Question

タイトルだけではわかりずらいと思うので以下内容。

マルチページが例えば1～5まであったとして、
マルチページの3ページ目で必要な作業をした後に
×で閉じるとします。
その後、起動したときにまた、1ページ目から
表示されてしまうのですが、それを、先ほど
開いた3ページのまま起動させたいのですが、
可能でしょうか？
エクセルVBAのフォーム内の話です。

お聞かせ願います。

Answer 1

他に方法があるかもしれませんが、今思いついた方法です。
シートにVBAの情報を保持しておく方法です。
どのシートでもいいのですが、下記サンプルはSheet1に情報を保持するようにしています。
Sheet1は非表示にしておくとよいでしょう。
但し、当然ながら悪意のある第三者に触られてしまう可能性があるので注意が必要です。

Private Sub UserForm_Initialize()
    ' パネル番号をシートから取得し対象パネルをアクティブにする
    ' 有効な値のときのみ処理する
    If MultiPage1.Pages.Count > Sheet1.Cells(1, 1).Value Then
        MultiPage1.Value = Sheet1.Cells(1, 1).Value
    End If
End Sub

Private Sub MultiPage1_Change()
    ' アクティブなパネル番号をシートに保持する
    Sheet1.Cells(1, 1).Value = MultiPage1.Value
End Sub

Comments

[morutemu]

ありがとうございました！
さすがです！うまくいきました！

[ttyp03]

今気づいたんですが・・・
今回の回答はファイルを閉じた後、また開いたときに同じページから再開できる対応なんですが、ブックを開いている間のみでよいなら標準モジュールにグローバル変数を用意して、そこに同じように値を保持すればいけます。

[ttyp03]

「フォームを再起動」というのを、ブック自体の再起動と捕らえていました。

[morutemu]

なるほど。ちょっとやってみます！

[morutemu]

できました！
フォームの変数変えるのと、標準モジュールに以下を追加するだけでいいんですね。
Public 変数 As Integer
ありがとうございました。

[ttyp03]

そうそう、それでOKです。
私が勘違いしてしまったせいで、余計な手間取らせてしまい申し訳ない。

[morutemu]

いえいえ、回答ありがとうございます。
これからもどうぞよろしくお願いします。