|
お世話になっております。
初歩的な事かと思いますが、
Excelを起動したときは、Excelを最小化し、ユーザーフォームのみを表示する。
ユーザーフォームの閉じるボタンが押されたとき、ユーザーフォームのみを閉じ、
Excelを表示するようにしたいと思ったのですが、いろいろ試してみたところ、
ユーザーフォームは閉じて、Excelが表示されません。
どうすれば表示されるでしょうか?
以下、現在のソースです。
'=======================================================
'閉じるボタンをクリックしたとき
'=======================================================
Private Sub BtnClose_Click()
'---ユーザーフォームを閉じる---
Unload Me
End Sub
-------以下、ThisWorkbookのコード-------
'###起動時にエクセルを隠し、ユーザーフォームのみを表示###
Private Sub Workbook_Open()
Application.Visible = True
Application.WindowState = xlMinimized
AppActivate Application.Caption
MainForm.Show
End Sub
'###終了時に、ユーザーフォームを閉じ、Excelを表示###
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.WindowState = xlMaximized
End Sub
|
|