[Microformt]

(28-02-18, 11:49 PM)مصمم هاوي كتب : ضع هذا الكود في مديول

كود :

Public Sub IsAppRunning()
 If App.PrevInstance = True Then
   MsgBox "البرنامج قيد التشغيل", vbExclamation + vbMsgBoxRtlReading
 End
 End If
End Sub

اخي العزيز
 السلام عليكم ورحمة وبركاته
هل يمكن استعادة النسخة المفتوحة بدل من الرسالة  وجزكم الله خيراً ؟؟
 تحياتي