Excel VBAで別のブックからユーザーフォームの閉じる

Excel VBAで別のブックからユーザーフォームの閉じたいのですが
うまくいきません。
教えてください。

Private Sub CommandButton2_Click()
Application.Visible = False
Unload Workbook.("材料リスクマップ検索Ver2.xls")UserForm3・・・・※
Workbooks.Close userform3:=ThisWorkbook.Path & "あああ.xls"
Workbooks("\いいい.xls").Close savechanges:=False
UserForm1.Show vbModeless
End Sub
※印のところが赤字にかわります。
コマンドボタン２は、いいい.xlsにあり、フォームを閉じたいのはあああ.xlsのUserform3です。
その後、ファイル名いいい.xlsは閉じます。


コードが間違っているかと思いますが、どんな風にすればよいかわかりません。初歩的なこととは思いますがよろしくお願い致します。

No.1 ベストアンサー 回答者： fumufumu_2006 回答日時： 2008/01/12 07:05

質問のコードはわからない所もあるので、

>コマンドボタン２は、いいい.xlsにあり、フォームを閉じたいのはあああ.xlsのUserform3です。
だけです。

直接は難しそうなので、ユーザーフォームのある「あああ.xls」の標準モジュールに、UserForm3を閉じる関数を作っておく。
Public Sub hideUserForm3()
UserForm3.Hide
End Sub

その関数を「いいい.xls」から、Application.Runで呼び出すモジュール（その後自分を閉じる）
Private Sub CommandButton2_Click()
Application.Run ("あああ.xls!hideUserForm3")
ThisWorkbook.Close SaveChanges:=False
End Sub

この回答へのお礼

ありがとうございました。
UserForm3は、いいいファイルから閉じることが出来ました。

お礼日時：2008/01/12 22:51