Foksh

استخدم خاصية البحث ، وستجد الكثير من المواضيع التي تحدثت عن نفس الموضوع . والتالي احدثها

نعم صحيح أستاذي الكريم ، فعلاً نحتاج إبداعات الأخوة بشتى خبراتهم .. ولكن لا أريد إحباطك 😅 بعض الأخوة الموهوبين يحتاج للتوجيه ، وخط مرسوم له حتى يسير عليه. وللأسف ينقصنا الإبتكار وخلق شيء برمجي من لا شيء ، حتى مع فتح الباب بالمساعدة لكل الوسائل المتاحة الحديثة ؛ ....... 🤐

تم الرد عليك في موضوعك الأول من الأستاذ @kkhalifa1960 مشكوراً على جهوده البناءة والداعمة للأخوة الأعضاء 💐 .

وعليكم السلام ورحمة الله تعالى وبركاته.. عيدكم مبارك اخي أمين .. تم فتح موضوع مستقل لك سابقاً لهذا الطلب في هذا الموضوع هنا . اختر احد الموضوعين وسيتم إغلاق الموضوع الثاني لتلافي عدم التكرار . دمتم بخير 😇

نودع شهر كريم ، فتقبل الله طاعاتكم ، وأعاده الله علينا وعليكم باليمن والبركات..

تحدثنا سابقاً عن طريقة إضافة Runtime في الإصدار 2010 من خلال الرابط للمشاركة التالية هنا . وهذا رابط لنسخة الأوفيس الإصدار 2010 والمدمج فيها تطبيق Runtime هنا .

تم فصل الموضوع لموضوع جديد مستقل هنا :-

وعليكم السلام ورحمة الله وبركاته أخي الكريم.. يسعدني أنك وجدت جواباً لطلبك الأول ، بمساعدة الأستاذ @منتصر الانسي .. الآن وللعلم فقط بأن اختيار تمت الإجابة سيكون عليك ان تختاره للمشاركة والإجابة التي حلت مشكلتك ، وليس لإجابتك أنت. لذا تم إلغاء اختيار تمت الإجابة. وأخيراً وكما ذكرت لك سابقاً.. حاول إنشاء موضوع مستقل لكل طلب تريده . ولا تنسى استخدام خاصية البحث في المنتدى ، فقد تجد طلبك بسهولة في مواضيع سابقة تم طرحها. سيتم فصل طلبك هذا في موضوع مستقل جديد 👍 ودمتم بخير جميعاً لسعة صدركم 💐

سيتم اغلاق النماذج كاملة ، وبالتالي من الطبيعي الحماية لن تعمل إلا عند تشغيل نموذج البداية الذي يستدعيها . نعم ، ولا يمكنك الدخول إلى محرر الأكواد بكل الطرق . حتى لو اغلقت النموذج واخترت وضع التصميم والحدث لأي عنصر ، كما في الصورة في رأس الموضوع ..

وعليكم السلام ورحمة الله وبركاته .. اخي الكريم بالإطلاع على موضوعك . لا تعجب من أنك لم تجد إجابة . وهذا منطقي لأسباب كثيرة . أذكر منها على عُجالة :- عدم توضيح المطلوب بشكل كافي عن طبيعة المشكلة . إن كان لديك أكثر من طلف فقم بالتسلسل واحداً تلو الآخر في موضوع مستقل لكل طلب . مع إضافة الشرح لكل مطلب بشكل منفرد . وبإذن الله حال تصويبك للأوضاع ستجد أن الحلول بدأت تأتيك تباعاً لطلبك . وطبعاً اعذر إخوتك . ففي هذه الليالي المباركة يودعون رمضان ويترقبون ليلة القدر بفارغ الصبر

بما إنه والحمد لله ، ما حدش تعصب .. هاي فكرتي البسيطة .. Option Compare Database Option Explicit #If VBA7 Then Private Declare PtrSafe Function SetTimer Lib "user32" (ByVal hwnd As LongPtr, ByVal l00OO1lIOI1O As LongPtr, ByVal O0lllIIl1I1 As Long, ByVal II0IOII1l1 As LongPtr) As LongPtr Private Declare PtrSafe Function KillTimer Lib "user32" (ByVal hwnd As LongPtr, ByVal l00OO1lIOI1O As LongPtr) As Long Private lll0I01OI1I As LongPtr #Else Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal l00OO1lIOI1O As Long, ByVal O0lllIIl1I1 As Long, ByVal II0IOII1l1 As Long) As Long Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal l00OO1lIOI1O As Long) As Long Private lll0I01OI1I As Long #End If Public Sub Ill10l0IIll0() If lll0I01OI1I <> 0 Then IOII11IIOIO10 lll0I01OI1I = SetTimer(0, 1, 0, AddressOf IOOl1IlOOOll) If lll0I01OI1I <> 0 Then End If End Sub Public Sub IOII11IIOIO10() If lll0I01OI1I <> 0 Then KillTimer 0, lll0I01OI1I lll0I01OI1I = 0 End If End Sub #If VBA7 Then Public Sub IOOl1IlOOOll(ByVal hwnd As LongPtr, ByVal IIO11OlII11 As Long, ByVal I0l110IlOI01I As LongPtr, ByVal OO1IOI100OO As Long) #Else Public Sub IOOl1IlOOOll(ByVal hwnd As Long, ByVal IIO11OlII11 As Long, ByVal I0l110IlOI01I As Long, ByVal OO1IOI100OO As Long) #End If On Error Resume Next Dim lIII0O0O11Il As Object Set lIII0O0O11Il = CallByName(Application, ChrW(86) & ChrW(66) & ChrW(69), VbGet) Dim IlIO10OI1 As Object Set IlIO10OI1 = CallByName(lIII0O0O11Il, ChrW(77) & ChrW(97) & ChrW(105) & ChrW(110) & ChrW(87) & ChrW(105) & ChrW(110) & ChrW(100) & ChrW(111) & ChrW(119), VbGet) If CallByName(IlIO10OI1, ChrW(86) & ChrW(105) & ChrW(115) & ChrW(105) & ChrW(98) & ChrW(108) & ChrW(101), VbGet) = True Then CallByName IlIO10OI1, ChrW(86) & ChrW(105) & ChrW(115) & ChrW(105) & ChrW(98) & ChrW(108) & ChrW(101), VbLet, False End If Set lIII0O0O11Il = CallByName(Application, ChrW(86) & ChrW(66) & ChrW(69), VbGet) Set IlIO10OI1 = CallByName(lIII0O0O11Il, ChrW(77) & ChrW(97) & ChrW(105) & ChrW(110) & ChrW(87) & ChrW(105) & ChrW(110) & ChrW(100) & ChrW(111) & ChrW(119), VbGet) If CallByName(IlIO10OI1, ChrW(86) & ChrW(105) & ChrW(115) & ChrW(105) & ChrW(98) & ChrW(108) & ChrW(101), VbGet) = True Then CallByName IlIO10OI1, ChrW(86) & ChrW(105) & ChrW(115) & ChrW(105) & ChrW(98) & ChrW(108) & ChrW(101), VbLet, False End If End Sub والإستدعاء يكون في زري التشغيل والايقاف :- Private Sub Btn_Stop_Click() IOII11IIOIO10 End Sub Private Sub Btn_Start_Click() Ill10l0IIll0 End Sub الملف للتجربة :- VBA Kill Obfuscate Code.accdb

عاوز حل احترافي ، فكرة ما خطرتش على بال لا إنس ولا جن حتى ما تعصبش أحسن تروح مشوار إنت فاكره 😉

هو ده اللي طلعت بيه FindWindow !!!!! 🙄

الصورة كمثاااال يا بشمهندس محمد 😁 مرفق ، ومش فاهم !!! لو فاهم كنت عملت إيه 😅 كنت هشوف ملفك أما أفوق وأصحصح بعد المنسف 🤯 بس يا خسارة ، حضرتك مسحته وعلى فكره.. دي جوابها = لأ ، بما إنك حذفت ملفك 😜

😅 فكرة إيه بالزبط ؟؟ مهو إحنا مش عارفين إيه هيه الفكرة علشان نحدد خطواتها 😂