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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.