فكرة !!
في مديول ( وحدة نمطية ) ضع الكود التالي:-
Function IsChromeOpen() As Boolean
Dim objShell As Object
Dim objChrome As Object
On Error Resume Next
Set objShell = CreateObject("Shell.Application")
Set objChrome = objShell.Windows("chrome.exe")
If Not objChrome Is Nothing Then
IsChromeOpen = True
Else
IsChromeOpen = False
End If
Set objChrome = Nothing
Set objShell = Nothing
End Function
ثم في النموذج يمكنك وضع هذه الوظيفة للتأكد من حالة المتصفح :-
Private Sub CheckChromeStatusBtn_Click()
If IsChromeOpen() Then
MsgBox "المتصفح Chrome مفتوح."
Else
MsgBox "يجب فتح المتصفح Chrome."
End If
End Sub
وتستطيع توليفه كما تشاء حسب حاجتك 😊
جربه واخبرني بالنتيجة 🤗