A userformu açık değilse b userformu açılmadan kapansın

[hsayar]

b userformunun userforminitlizesinde A userformunun açık olup olmadığını kontrol etsin ve açık değilse kendini kapatsın.

Private Sub UserForm_Initialize()
if[COLOR=Red] a userformu açıkmı = false[/COLOR] then unload me

'  Call adbBagl_Aç
'  Call adbKset_İsimler_Aç
End Sub

böyle bir şey müm kün mü?

 

[hsayar]

vb kitabım yanımda imiş. Faruk Çubukçu'nun birden fazla userformu kapatmak uygulamasından kendime göre düzenledim.

Private Sub UserForm_Initialize()
  Call [COLOR=Green]AnaForm_Açıkmı[/COLOR]
  Call adbBagl_Aç
  Call adbKset_İsimler_Aç
End Sub
Private Sub [COLOR=Green]AnaForm_Açıkmı[/COLOR]()
'17/11/2008-16:46 hsayar
'istenilen userform açık olmadan bu userformun açılmaması için._______________
  Dim ufKont As Object: Dim blkont As Boolean                               '|
  Dim strAra As String: strAra = "uf_SycTkp"
  For i = UserForms.Count - 1 To 0 Step -1                                  '|
    Set ufKont = UserForms(i)                                               '|
    If ufKont.Name = strAra Then                                            '|
      blkont = True                                                         '|
      Exit For                                                              '|
    End If                                                                  '|
  Next i                                                                    '|
  If blkont = False Then                                                    '|
    MsgBox strAra & " Formu açık olmadan bu modulü kullanamazsınız."        '|
    Unload Me                                                               '|
    End                                                                     '|
  End If                                                                    '|
  Set ufKont = Nothing                                                      '|
'¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨
End Sub