UserForm açık değilse nasıl yazıl yazılır

[musaliha]

Merhaba makro ile UserForm açık değilse nasıl yazıl yazılır.Bir başka ifade ile Eğer UserForm aktif değilse mesaj olarak "hata "yazsın

 

[uzmanamele]

Merhaba
Deneyiniz.

Sub FormAc()
UserForm1.Show 0
End Sub

Sub FormKapat()
UserForm1.Hide
End Sub

Sub UserForm_Kontrol()
If UserForm1.Visible = True Then
MsgBox "Userform Açık"
Else
MsgBox "Userform Kapalı"
End If
End Sub

 

[Korhan Ayhan]

Aşağıdaki fonksiyon işinize yarayabilir..

Option Explicit

Public Function Is_Userform_Open(Form_Name As String) As Boolean
    Dim Frm As Object
    
    For Each Frm In VBA.UserForms
        If Frm.Name = Form_Name Then
            Is_Userform_Open = True
            Exit Function
        End If
    Next Frm
    Is_Userform_Open = False
End Function

 

[musaliha]

çok teşekkürler