|
▼もとあし さん:
>はモーダレスの場合ですが、
>モーダルの場合では、方法はないのでしょうか。
モーダルだと他ブックにおいてもフォームがShowされた時点で
コード進行が止まるから無理だと思います。
(今さっきやってみました。)
やってみたコード。
開かれるブック側のコード
フォーム
Private Sub CommandButton1_Click()
Unload Me
End Sub
Thisworkbook
Private Sub Workbook_Open()
UserForm1.Show
End Sub
標準モジュール
Function UsrFm() As Object
Set UsrFm = UserForm1
End Function
開く方のコード
Sub 開く()
Dim UFm As Object
bkNm = "test1.xls"
Bkpas = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & bkNm
'Workbooks.Open Bkpas
'MCR = "'" & bkNm & "'!UsrFm"
MCR = "'" & Bkpas & "'!UsrFm"
Set UFm = Application.Run(MCR)
UFm.CommandButton1 = True
MsgBox 1
DoEvents
Set UFm = Nothing
End Sub
|
|