اظهار يوزرفورم اوماتيكيا عند انقطاع الانترنت

[Mohamed Hamada22]

السلام عليكم ورحمة الله وبركاته 

رمضان كريم على الاخوة جميعا

ممكن لو سمحتو المساعدة

كيفية اظهار يوزرفورم فى اكسيل اوتوماتيكياً عند انقطاع الانترنت 

[lionheart]

In standard module
 

Private Declare Function IsNetworkAlive Lib "Sensapi" (lpdwFlags As Long) As Long

Sub CheckInternetConnection()
    If Not IsInternetConnected() Then UserForm1.Show
    Application.OnTime Now + TimeValue("00:00:10"), "CheckInternetConnection"
End Sub

Public Function IsInternetConnected() As Boolean
    Dim lngAlive
    If IsNetworkAlive(lngAlive) = 1 Then IsInternetConnected = True
End Function

In workbook module

Private Sub Workbook_Open()
    Application.OnTime Now + TimeValue("00:00:10"), "CheckInternetConnection"
End Sub

 

تم تعديل أبريل 9, 2023 بواسطه lionheart

[Mohamed Hamada22]

ماشاء الله عليك 

الف شكر تعبت معايا

معلش سامحنى اخى الكريم فى حاجه تانيه

لو عندى برنامج مصمم على اكسيل

كيفية اظهار يوزرفورم اذا كان الجهاز فى حالة السكون بمعنى انى ما اشتغلتش على البرنامج وليكن لمدة ربع ساعة 

ازاى اول ما امسك الماوس يظهرلى يوزرفورم معين انا محددهوله

[lionheart]

Post a new topic for the new question