gelani قام بنشر سبتمبر 22, 2019 مشاركة قام بنشر سبتمبر 22, 2019 السلام عليكم ورحمة الله قمت بشراء نسخة الاوفيس 2019 الأصلية ويبدو انها 64 بت وعند بداية العمل واجهتني مشكلة حيرتني وهي ان النماذج التي بها رقم سري لم تعد تعمل واضطررت ان ابقي الرقم السري واضح وذلك بحذف حرف DK من الرسالة لكي يعمل البرنامج . الغريب انني اذا قمت بحذف النماذج وابقيت الموديول المرفق يعمل الكود واذا طبقته على أي برنامج آخر تظهر الرسالة كما في الصورة المرفقة ولا يعمل الكود . (النموذج المرفق يعمل ويتم إخفاء الرقم السري وتظهر نجوم .). تحياتي وتقديري . اخفاء الرقم السري .accdb رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر سبتمبر 22, 2019 مشاركة قام بنشر سبتمبر 22, 2019 ممكن تجرب المرفق ده اخفاء الرقم السري .accdb رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر سبتمبر 22, 2019 مشاركة قام بنشر سبتمبر 22, 2019 (معدل) وبعدين اعتقد الاوفيس الذى قمت انت بشراءه يحتوى النواتين ولكن لانك انت قمت باعداده من خلال ال اوتو رن قام بتصيب نواة 64 لان الويندوز نواته 64 ادخل القرص المدمج الى سواقة الاقراص افتح استعراض الملفات تجد مجلد باسم اوفيس افتح المجلد تجد ملفين تنفيذيين الاول باسم Setup32 والثانى باسم Setup64 طبعا حضرتك محتاج تشغل المف اللى باسم Setup32 بالضغط عليه كليك يمين واختار التشغيل كمسئول النظام تم تعديل سبتمبر 22, 2019 بواسطه ابا جودى رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر سبتمبر 22, 2019 مشاركة قام بنشر سبتمبر 22, 2019 مشاركة مع اخي ابا جودي شوف المرفق وبشر بالنتيجه عدل بهذا كي يعمل بنظام 32 او 64 #If VBA7 Then Public Function InputBoxDK(Prompt, Optional Title, Optional Default, Optional XPos, _ Optional YPos, Optional HelpFile, Optional Context) As String Dim lngModHwnd As Long, lngThreadID As Long lngThreadID = GetCurrentThreadId lngModHwnd = GetModuleHandle(vbNullString) hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID) InputBoxDK = InputBox(Prompt, Title, Default, XPos, YPos, HelpFile, Context) UnhookWindowsHookEx hHook #ElseIf Win64 Then Public Function InputBoxDK(Prompt, Optional Title, Optional Default, Optional XPos, _ Optional YPos, Optional HelpFile, Optional Context) As String Dim lngModHwnd As Long, lngThreadID As LongPtr lngThreadID = GetCurrentThreadId lngModHwnd = GetModuleHandle(vbNullString) hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID) InputBoxDK = InputBox(Prompt, Title, Default, XPos, YPos, HelpFile, Context) UnhookWindowsHookEx hHook #Else '32-bit Office Public Function InputBoxDK(Prompt, Optional Title, Optional Default, Optional XPos, _ Optional YPos, Optional HelpFile, Optional Context) As String Dim lngModHwnd As Long, lngThreadID As Long lngThreadID = GetCurrentThreadId lngModHwnd = GetModuleHandle(vbNullString) hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID) InputBoxDK = InputBox(Prompt, Title, Default, XPos, YPos, HelpFile, Context) UnhookWindowsHookEx hHook #End If End Function اخفاء الرقم السري .accdb رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر سبتمبر 22, 2019 مشاركة قام بنشر سبتمبر 22, 2019 اتفضل MaskedInputBox 64.accdb 1 رابط هذا التعليق شارك More sharing options...
gelani قام بنشر سبتمبر 23, 2019 الكاتب مشاركة قام بنشر سبتمبر 23, 2019 السلام عليكم ورحمة الله وبركاته أتقدم بالشكر الجزيل على تفاعلكم وردكم على سؤالي . جميع المحاولات لم تفلح معي بالعكس لم يعد يطلب الرقم السري ويفتح نموذج الإعدادات مباشرة بدون ما يطلب الرقم السري ولا يظهر الرقم سواء على هيئة نجوم او خلافه . وانا على يقين تام ان الحل قريب ان شاء الله وسنستفيد من خبراتكم حفظكم الله من كل مكروه . تحياتي وتقديري لكم جميعا وانا منتظر . مع أسفي الشديد على ازعاجكم . رابط هذا التعليق شارك More sharing options...
gelani قام بنشر سبتمبر 23, 2019 الكاتب مشاركة قام بنشر سبتمبر 23, 2019 وبعدين اعتقد الاوفيس الذى قمت انت بشراءه يحتوى النواتين ولكن لانك انت قمت باعداده من خلال ال اوتو رن قام بتصيب نواة 64 لان الويندوز نواته 64 ادخل القرص المدمج الى سواقة الاقراص افتح استعراض الملفات تجد مجلد باسم اوفيس افتح المجلد تجد ملفين تنفيذيين الاول باسم Setup32 والثانى باسم Setup64 طبعا حضرتك محتاج تشغل المف اللى باسم Setup32 بالضغط عليه كليك يمين واختار التشغيل كمسئول النظام شكرا على الرد . عزيزي لم استطيع التوصل الى ما ذكرت حيث ان الويندوز والأوفيس الجديد يتم تحميلها على الجهاز مباشرة بدون ارفاق سيدي او خلافه . هل هناك طريقة اصل بها الى ما ذكرت ؟ تحياتي وتقديري . رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر سبتمبر 23, 2019 مشاركة قام بنشر سبتمبر 23, 2019 هو مش حضرتك بتقول اشتريت اوفيس 2019 ؟؟؟؟ رابط هذا التعليق شارك More sharing options...
kha9009lid قام بنشر سبتمبر 23, 2019 مشاركة قام بنشر سبتمبر 23, 2019 اخي @ابا جودى انتهى زمان شراء نسخة الدارج الان انك تشتري مفتاح تفعيل فقط وتحمل الاوفيس من موقع الشركة وبعض الاجهزة الجديدة تجد اصدارة تجربية لفتره محدودة ويتطلب تفعيلها شراء مفتاح التفعيل حاليا لدي 2019 برو اشتريت المفتاح من متجر ميكروسوفت مدى الحياة ب18 دولار بينما يباع في السوق المحلي بـ 699 ريال 😎 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر سبتمبر 23, 2019 مشاركة قام بنشر سبتمبر 23, 2019 اهااااااااا طيب اذا هو معه مفتاح التفعيل بيقدر يحمل النسخة 32 بيت من الموقع ويريح نفسه وعلى كل راح احاول مره تانية تعديل الاكواد بقدر المستطاع على الله يرزقه حل مشكلته رابط هذا التعليق شارك More sharing options...
gelani قام بنشر سبتمبر 23, 2019 الكاتب مشاركة قام بنشر سبتمبر 23, 2019 حفظكم الله وزادكم علما . الأخ أبو جودي . اشكر اهتمام حضرتك وارجو ان لا أكون ازعجتك . عزيزي :- ذكرت انني اشتريت نسخة 2019 ليعلم الإخوة بداية المشكلة وكنت استخدم 2016 غير اصلي ويتم تحديثه كل فتره مما ارهقني ولم اكن اهتم بموضوع 32بت و64 بت الا بعد ان استخدمت النسخة الاصلية ولاحظت تعطل البرامج وفقدت الكثير من الخصائص . ربما لجهلي بأكثرها وكما ذكر الأخ فان النسخة هنا في السعودية بقيمة 1800 ريال سعودي مدى الحياه .ولم يعطوني سيدي وانما ظرف به رقم تسلسل البرنامج فقط لا غير . وقاموا بتحميل البرنامج من موقع الشركة . تحياتي وتقديري . رابط هذا التعليق شارك More sharing options...
أبو عبدالله الحلوانى قام بنشر سبتمبر 24, 2019 مشاركة قام بنشر سبتمبر 24, 2019 السلام عليكم جرب أن تنشأ ملف أكسس فارغ ثم تقوم باستيراد جميع الكائنات اليه من الملف القديم الذي به المشكلة ووافنا بالنتائج تمنياتي لكم بالتوفيق رابط هذا التعليق شارك More sharing options...
gelani قام بنشر سبتمبر 25, 2019 الكاتب مشاركة قام بنشر سبتمبر 25, 2019 حياك الله يا أخ أبو عبد الله الحلواني قمت بما ذكرت حفظك الله واذا عملت ذلك على اوفيس 2016 او 2013 يعمل الكود بشكل رائع . وللتذكير المشكلة ظهرت معي بعد تثبيت الأوفيس 2019 . وانا على يقين ان شاء الله للوصول الى حل بتعاونكم جميعاً حفظكم الله . تحياتي وتقديري أكررها لكم جميعاً . رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.