なっくるすきるす(Knuckle Skills)

まず
「あとから他のBookを開くと、最初に非表示にしてたBookのシートまで見えてしまう」
という問題の解決は、非常に簡単です。
いったんBookを表示状態にして、メニューで「ウィンドウ」→「表示しない」をクリックして、その状態でいったん保存すればよいのです。



これで、あとから他のBookを開くことでエクセルが表示状態になってしまっても、フォームと結びついたシートは表示されません。

さて、問題はその逆です。
先に他のBookが開いている状態でこのBookを起動し、フォームだけを表示して、かつ先に開いていたBookは表示されたままにするには、どのような挙動が必要か？

１．起動処理で、他のBookが開いていなければエクセルそのものを非表示にする。
２．起動処理で、他のBookが開いていた場合は、エクセルを非表示にしない。
３．終了処理で、他のBookが開いていなければエクセルそのものを終了する。
４．終了処理で、他のBookが開いていた場合は、このBookだけを閉じる。


１．から４．の、どの処理においても「他のBookが開いているかどうかの判定」が必要です。

ここで、最初にメニューで「ウィンドウ」→「表示しない」にしていたことが生きてきます。
この状態ならば、ActiveWorkbookで取得した情報は、常に他のBookの情報になるはずです！

Private Sub Workbook_Open()

    Dim bookName as String
    
    Load UserForm1
    UserForm1.Show vbModeless
    
    On Error Resume Next
    bookName = ActiveWorkbook.Name
    
    If bookName = "" Then Application.Visible = False
    
End Sub

Workbook_Openに赤字の部分を追加しました。他のBookが開いていない状態でこのBookのActiveWorkbook.Nameを求めようとすると、「ウィンドウ」→「表示しない」にしていたことにより、エラーとなってしまいます。
On Error Resume Nextとすることで、他のBookが開いていればその名前が変数に格納され、他のBookが開いていなければ変数には空白文字が格納されます。

あとは、変数に空白文字が格納されていた場合だけ、Application.Visible = Falseにすればよいのです。
これで、１．と２．の要件が満たされました。

終了処理でも、似たようなことをします。

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    
    Dim bookName As String
    
    Me.Hide
    Unload Me
    
    On Error Resume Next
    bookName = ActiveWorkbook.Name
    
    If bookName = "" Then
        Application.Quit
    Else
        ThisWorkbook.Close
    End If
    
End Sub

変数に空白文字が格納されていた場合にはエクセルそのものを終了させ、変数に他のBookの名前が格納されていた場合には、ThisWorkbook.CloseでこのBookだけを閉じます。

これで、３．と４．の要件が満たされました。
こうして、あたかも他のエクセルファイルとは独立してフォームアプリケーションが表示されているように見せかけるエクセルVBAアプリケーションが作成できます。

関連記事

• サーブレットでcookie(日本語のURLエンコード)
• Visual StudioなしでC#コンソールアプリケーションを開発
• Excel VBAでフォームアプリケーションを作る土台(2)
• Excel VBAでフォームアプリケーションを作る土台(1)
• Perlを使った超シンプルなゲストブック