窓からファイルを開くときフォームも表示したい

質問

Excel365solo,windows10を使っています。ＶＢＡ超初心者です。
現在以下のコードで作業しています。
マクロ記述ブックAに、ユーザーフォームBをつくりコマンドボタンCを設置しました。
Private Sub 基礎データCボタン_Click()
Unload Me
Workbooks.Open Filename:=ThisWorkbook.Path & "\2年度\計算５月.xlsm"
　’このブックが開いた時に、自動で開いた複数のコマンドボタンＤで処理
End Sub

これを窓から選んでブックを選ぶ方式にしたいです。
Private Sub testボタン_Click()
Dim OpenFileName As String
ChDir Application.ThisWorkbook.Path & "\2年度"
OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xlsm")
If OpenFileName <> "False" Then
Workbooks.Open OpenFileName
Else
MsgBox "キャンセルされました"
End If
End Sub

でも、ブック\2年度\計算５月.xlsmは開きますが、ブックが開いた時「複数のコマンドボタンＤ」が表示されず困っています。これを表示させるようにしたいです。ご教示よろしくお願いします

回答No.2

kkkkkm · ベストアンサー

UF.show
を最後にもってくればいかがですか。

回答No.1

kkkkkm

名前を指定してブックを開く
http://officetanaka.net/excel/vba/file/file02.htm

> 「複数のコマンドボタンＤ」が表示されず困っています

どこにあるボタンですか。フォームなら
Private Sub Workbook_Open()
UserForm1.Show
End Sub
とかに

補足

すみません。自分で付け加え、再度次のコードでやったら表示されました。
Private Sub testボタン_Click()
Unload me
Dim OpenFileName As String
ChDir Application.ThisWorkbook.Path & "\2年度"
OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xlsm")
UF.show
If OpenFileName <> "False" Then
Workbooks.Open OpenFileName
Else
MsgBox "キャンセルされました"
End If
ただ、そのUFというユーザーフォームがシートの裏に隠れていたので、表示されないと誤認してしまいました。それでこのユーザーフォームが後ろでなく、シートの前面に表示したいです。もうしわけありません。よろしくご指導お願いします。

End Sub