Foksh

أتفق معك أخي موسى .. فهل الرسالة هذه واضحة المعالم ؟؟ استبدل الحدث كاملاً للزر بالحدث التالي :- Private Sub Btn_DefaultSettings_Click() On Error Resume Next If MsgBox("هل أنت متأكد من رغبتك في استعادة إعدادات الأمان الافتراضية لبرنامج آكسيس؟" & vbCrLf & vbCrLf & _ "• ملاحظة مهمة : سيترتب على ذلك حذف جميع المواقع الموثقة والمعتمدة سابقا !!", vbQuestion + vbYesNo + vbDefaultButton2 + vbMsgBoxRight + vbMsgBoxRtlReading, "") = vbYes Then DoCmd.Hourglass True Call SetControlsEnabledByTag(Me, False, "SettingApply") Me.Repaint Call SetAllowSpecialKeys(True) Call RestoreFactoryDefaultsByBat(True) Call LoadConfigValues Call SetControlsEnabledByTag(Me, True, "SettingApply") DoCmd.Hourglass False End If End Sub

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

مباااارك عليك حل المشكلة أخي محمد

وإياكم بشمهندس محمد .. هذا قليل مما عندكم أخي أبا الحسن .. مرورك هو كل الروائع .. تحياتي لك

أخواني وأساتذتي ومعلمينا ( دون استثناء ) .. كمطورين لبرامج وقواعد بيانات آكسيس ، نعلم جميعاً أن أكبر تحدٍ يواجهنا بعد الانتهاء من برمجة أي مشروع هو مرحلة نشر البرنامج وتثبيته لدى العميل . وكثيراً ما نتفاجأ باتصالات وشكاوى متكررة من العملاء . أذكر منها :- ❌ الماكرو لا يعمل والأزرار لا تستجيب ، ( بسبب شريط الأمان الأصفر ) ❌ البرنامج تم حظره من الويندوز لأنه محمل من الإنترنت ، ( مشكلة الـ Unblock ) ❌ البرنامج بطيء أو يرفض تشغيل الأكواد من السيرفر المشترك ، ( Network Locations ) ❌ رسالة خطأ مفاجئة تقول: MaxLocksPerFile Exceeded عند ترحيل البيانات من هنا ، وُلدت فكرة هذه الأداة المتكاملة لتكون الحل الجذري والنهائي لكافة مشاكل الأمان ، والتوثيق ، وتهيئة بيئة التشغيل لأي مشروع آكسيس بضغطة زر واحدة . 🌟 فمن هي هذه اللأداة :- اسم الأداة :- مركز التوثيق وإدارة إعدادات الأمان في آكسيس - Access Security & Trust Center Manager التوافقية :- متوافقة مع كافة أنظمة ويندوز ( Windows 7 / 10 / 11 ) بنواتي ( 32-bit و 64-bit ) إصدارات أوفيس المدعومة :- تعمل بتوافقية تامة مع ( 2007, 2010, 2013, 2016, 2019, 2021, و Office 365 ) 🛠️ الميزات والوظائف الرئيسية للأداة :- 1️⃣ إدارة مركز التوثيق والأمان (Trust Center & Macros) توثيق مسار المشروع فوراً ، وإضافة مجلد البرنامج ومجلداته الفرعية إلى المواقع الموثوقة (Trusted Locations) تلقائياً تمكين الماكرو و ActiveX . بخيار للتحكم في تفعيل الماكرو وعناصر التحكم دون ظهور أي رسائل تحذير مزعجة للعميل إلغاء شرائط التحذير وإخفاء شريط الرسائل الأصفر عند فتح البرنامج 2️⃣ فك حظر الملفات المحملة تلقائياً (Unblock Files) فك حظر ملفات البرنامج المحملة عبر الإنترنت أو الواتساب أو الشبكة من خلال مسح القيود من الريجستري تلقائياً تعديل سياسة ويندوز لمرفقات الملفات (SaveZoneInformation) لمنع حظر الملفات مستقبلاً 3️⃣ دعم كامل لشبكات وسيرفرات الشركات (Network Readiness) تمكين مسارات الشبكة ( AllowNetworkLocations ) والسماح لآكسيس بتشغيل الأكواد والماكرو من السيرفرات ومحركات الأقراص المشتركة (\\Server\Share) إلغاء تحذيرات الروابط والمرفقات الخارجية ( DisableHyperlinkWarnings ) ، وفتح التقارير الخارجية كملفات الـ PDF أو الروابط بسلاسة وبدون رسائل التحذير الأمنية 4️⃣ تحسين محرك البيانات وإصلاح العرض الرسومي (Engine & Graphics) زيادة سعة أقفال السجلات ( MaxLocksPerFile = 500,000 ) وذلك لمنع انهيار الاستعلامات الضخمة وتضارب المستخدمين في الشبكة المحلية إصلاح وميض النماذج ( DisableHardwareAcceleration ) بتعطيل التسريع الرسومي لبطاقات الشاشة لمنع وميض النماذج أو اختفاء الأزرار 5️⃣ تخصيص بيئة و واجهة البرنامج (UI & Startup Options) قفل كواليس المشروع ( AllowSpecialKeys ) من خلال تعطيل المفاتيح الخاصة مثل (F11) لحماية جزء التنقل من عبث المستخدمين إلغاء رسائل التأكيد بتعطيل رسائل التأكيد عند الحذف ، التعديل ، واستعلامات الإجراءات التحكم بمظهر آكسيس وذلك من خلال إظهار أو إخفاء شريط الحالة السفلي الرمادي ، والكائنات المخفية ، وجداول النظام ، وسلوك مفتاح Enter ، وتعطيل شاشة ترحيب أوفيس للتشغيل المباشر 🚀 الميزة الجديدة والمطورة :- مشغل العميل التلقائي ( Client Launcher Generator ) تحتوي الأداة على زر تصدير مشغل الإعدادات ، والذي يقوم بإنشاء ملف باتش تنفيذي ( .bat ) يتميز بما يلي :- طلب صلاحية تشغيل المسؤول ذاتياً ( Self-Elevating UAC ) بمجرد فتحه ودون الحاجة لتشغيله كمسؤول Run As Administrator ذكاء التصدير بحد ذاته سيمكنك من تصدير ملف التشغيل والضبط لنفس قاعدة البيانات الحالية ، أو استعراض وتحديد أي قاعدة بيانات خارجية ( accdb أو accde ) لإنشاء المشغل الخاص بها في مجلدها مباشرة تجهيز الجهاز فوراً في لحظة واحدة بحيث يقوم المشغل بضبط كافة إعدادات الأمان في ريجستري العميل وفتح البرنامج مباشرة في ثوانٍ معدودة 🧹 الصيانة الذكية وضبط المصنع :- إزالة التوثيق لمجلد المشروع من خلال زر مخصص لإلغاء توثيق المجلد ومسح سجلات الملف من مسارات الريجستري لأوفيس بالكامل استعادة ضبط المصنع والإعدادات الإفتراضية ستجعل إمكانية استرجاع إعدادات الأمان الافتراضية الأصلية لبرنامج آكسيس أمر في غاية السهولة وفي لحظة واحدة 📥 كيفية الاستخدام :- استيراد النموذج Frm_SecuritySettings والوحدة النمطية Mod_Trust إلى مشروعك فتح النموذج لضبط الخيارات التي تناسبك ( الخيارات تقرأ حالتها اللحظية مباشرة وتتلون ديناميكياً حسب الحالة بالأبيض أو الأصفر ) الضغط على حفظ وتطبيق لتطبيقها فوراً على جهازك ، أو الضغط على تصدير المشغل لتوليد ملف التشغيل الجاهز للعملاء 📸 صورة لواجهة الأداة :- ملف الأداة مفتوح المصدر ، للتحميل :- Trust Center.zip

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

يا سلاااااااام على الجمال .. تستحق الإضافة في هرم المشاركات

أستاذ منتصر .. توظيف ذكي لما قمت به باستخدام DLookup .. أبدعت بهذا التوظيف ؛ فشكراً لك مبدعنا الغالي .. أيضاً رغم أنه عند اختيار أي تعديل فإن السعر لا يتحدث للصنف الذي تم اختياره ، وبالتالي لن يتعدل السعر النهائي . أيضاً عند التعديل في القسم الرئيسي ، فإن القيم في الفرعي والصنف لا تتحدث حسب القسم الرئيسي . وكذلك الأمر عند اختيار القسم الفرعي .. مهندسنا الغالي .. تغيير جري جميل من ناحية التصميم في الفكرة الأولى الجميلة التي تقدمت بها . تعاملت مع التغيير عند القسم الرئيسي بنجاح أو الفرعي .. هنيئاً لك 👍🏻 أيضاً رغم أنه عند اختيار أي تعديل فإن السعر لا يتحدث للصنف الذي تم اختياره ، وبالتالي لن يتعدل السعر النهائي . ولاحظت انه عند فتح الملف الأول يتم عرض القائمة للصنف الأول تلقائياً لإجراء التعديل . لاحظ ما قصدته :- الفكرة الثانية أيضاً جميلة .. شكراً لك عليها . أيضاً رغم أنه عند اختيار أي تعديل فإن السعر لا يتحدث للصنف الذي تم اختياره ، وبالتالي لن يتعدل السعر النهائي . السعر يجب أن يتحدث تلقائياً عند تغيير الكمية أو الصنف وليس بشكل يدوي 😁

متأكد أخي منتصر من أن الأكواد مختلفة ما بين المرفق والفيديو 🤔

هذا احتمال .. ولا أعلم إن كان للويندوز أيضاً علاقة بالمشكلة .. فما إصدار الأوفيس لديك ، وما اصدار الويندوز أيضاً

الكود المرفق في الملف التالي هو نفسه الموجود في الفيديو https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=129345

وعليكم السلام ورحمة الله وبركاته.. استخدم خاصية البحث في المنتدى وستظهر لك جميع مواضيع ملائمة حجم الشاشة ، ومن بينها :- الموضوع طلبك على ما أعتقد ( ولم اقم بالتجربة ، متابع من الجوال ) :- موضوع آخر للأستاذ @صالح حمادي :-

وعليكم السلام ورحمة الله وبركاته .. انا عندي نسخة أوفيس 2021 - واجهة انجليزية . وقمت بتحويل الأرقام من العربية الى الهندية وبعدها تصدير ملفك وتم الأمر بنجاح . وهذا ملفك PDF الملف.pdf

أهلاً بكم في التحدي الرابع ؛ استكمالاً لسلسلة "الفعاليات والتحديات الشهرية" ( نظراً لأن التحدي الثالث لم يتم حسم أمره بعد ) .. 📖 قصة التحدي :- لدينا شاشة إدخال فواتير مشتريات تحتوي على نموذج فرعي مستمر SubFrm_InvoiceDetails . وتضم مربعات نص مرتبطة بالحقول التالية :- CategoryID ( القسم الرئيسي : إلكترونيات ، أطعمة ، أدوات منزلية ... إلخ) SubCategoryID ( القسم الفرعي : هواتف ، شاشات ، ألبان ... إلخ) ItemID ( المنتج النهائي كمثال : آيفون 15 ، سامسونج S24 ، حليب مراعي ... إلخ) Quantity ( الكمية ) Price ( السعر ) 🎯 المطلوب :- عند اختيار "القسم الرئيسي" في أي سطر ، يجب أن تقتصر قائمة "القسم الفرعي" و "الصنف" على التابع للقسم المختار في ذلك السطر فقط 🚫 الشرط أنه يجب ألا تختفي أسماء الأقسام الفرعية أو المنتجات في الأسطر السابقة أو اللاحقة نهائياً عند التحديث أو التنقل بين السجلات 🚫 عند التنقل بالأسهم أو الماوس بين السجلات أو الفرز والترتيب ، يجب أن تبقى جميع البيانات في جميع الأسطر ظاهرة بوضوح وسلاسة تامة 🚫 قوانين المشاركة :- السقف مفتوح للمشاركين بالطريقة والوسيلة والأسلوب الذي يراه مناسباً لتنفيذه فكرة التحدي فترة المشاركة بتقديم الأعمال والأفكار سيكون 30 يوماً من تاريخ الموضوع اليوم 21-08-2026 ، وتنتهي بإذن الله بتاريخ 21-09-2026 ♻ كيف تشارك ؟ قم بتنفيذ العمل على الملف المرفق أدناه ، ثم قم برفعه في مشاركتك . 📁 ملف العمل :- التحدي الرابع.accdb إختصاراً للوقت والجهد ، قمت بتعبئة أصناف بأسعار عشوائية متنوعة التصنيفات داخل الجداول .

نرجو تصويب الوضع من المشرفين 😇 .

مداخلة سريعة بعد إذن أستاذنا @hegazee .. برأيي الغير ملزم طبعاً .. أن أفضل حل عملي ونظيف :- بدلاً من الدخول في دوامة تنبيهات إكسل الذكية . اذهب إلى تبويب File (ملف) ثم Options (خيارات) ثم Formulas (الصيغ) ، ثم ألغِ تفعيل الخيار :- Formulas which omit cells in a region . كما في الصورة أدناه :- بهذه الخطوة البسيطة ستظل بياناتك وأرقامك وتنسيقاتك كما تحب ؛ وستختفي جميع المثلثات الخضراء المزعجة من الملف نهائياً . للتوضيح :- طبعاً سبب هذا المنطق الغريب والعجيب من إكسل هو أن اكسل يقوم بتنبيه المستخدم إلى أنه قد يكون قد سهى عن إضافة الخلية المجاورة B10 الى معادلة الجمع . وبالتالي تظهر علامة المثلث الأخضر هذه . وللتأكد ، جرب من علامة التعجب اختيار Update Formula to Include Cells ، ستجد أن المعادلة تحولت إلى :- =SUM(B10:G10) فما علاقة الخلية أو العمود B بالأمر ، ليس لدي معلومة دقيقة ، إلا أنه يمكن أن يكون هذا مقترحاً من مايكروسوفت لمساعدة المحاسبين حين تحدث أمور قد سهوا عنها . يعني على رأي أخواني في مصر الشقيق ( حركة جدعنه منهم 😅 )

ممكن إنك تثبت نسخة أوفيس 2010 - 32 بت ويصبح لديك نسختين الأولى 64 ، والجديدة 32 .

اعتذر منك .. علك تجد حلاً لتعدد وتنوع الطلبات متابع معك

علشان تعدل ، استخدم مفتاح Shift عند فتح الملف ، وبهذا سيعمل معك الملف كأنك لم تفتح النموذج.

وعليكم السلام ورحمة الله وبركاته .. جرب هذا الملف المرفق اخي @ابو مارفن .. خروج وبحث-لصق-نسخ.xlsb

وعليكم السلام ورحمة الله وبركاته .. ما الذي لا يعمل به ؟؟ فقط قمت بتحميل الملف وفتحه وتسجيل كلمة مرور المدير m44 وعمل بشكل طبيعي على اصدار اكسيس 2010 - 32 بت !!!

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

الأمر غريب فعلاً ...🤔... فقد قمت بالتجربة على نسخة أوفيس 2010 - 32 ، وبعد إلغاء السطور الثلاثة بقيت عملية النسخ واللصق تعمل .. ولكن إليك الحل السليم بعد تجربته على أكثر من إصدار بإذن الله تعالى .. أولاً سنضيف تعريف الثابت التالي داخل المديول :- Public Const WS_EX_NOACTIVATE As Long = &H8000000 ثم نعدل حدث النموذج بحذف أسطر الشفافية القديمة ونستبدلها بالثابت الذي قمنا بتعريفه WS_EX_NOACTIVATE ، ليصبح :- Private Sub UserForm_Activate() #If VBA7 Then Dim Style As LongPtr Dim ExStyle As LongPtr #Else Dim Style As Long Dim ExStyle As Long #End If Dim ScreenWidth As Long Dim FormWidthPixels As Long Dim RightX As Long hWndForm = FindWindow(vbNullString, Me.Caption) If hWndForm <> 0 Then Style = GetWindowLongPtr(hWndForm, GWL_STYLE) Style = Style And Not WS_CAPTION Style = Style And Not WS_SYSMENU SetWindowLongPtr hWndForm, GWL_STYLE, Style DrawMenuBar hWndForm ExStyle = GetWindowLongPtr(hWndForm, GWL_EXSTYLE) SetWindowLongPtr hWndForm, GWL_EXSTYLE, ExStyle Or WS_EX_NOACTIVATE ScreenWidth = GetSystemMetrics(SM_CXSCREEN) FormWidthPixels = Me.Width * 1.33 RightX = ScreenWidth - FormWidthPixels SetWindowPos hWndForm, HWND_TOPMOST, RightX, 100, 0, 0, SWP_NOSIZE End If End Sub والنقطة الثالثة وهي كيفية الإستدعاء للنموذج بحيث نستدعيه بدون قيود :- Private Sub Workbook_Open() us.Show vbModeless End Sub بهذه الطريقة سيعمل شريط الأدوات العائم بكفاءة تامة وبدون شفافية ، وسينفذ الأوامر مباشرة داخل إكسل وجميع برامج أوفيس والتطبيقات الخارجية بدون أي تعليق أو فقدان للتركيز . فالمشكلة كانت في فقدان التركيز للنموذج . حيث يتم منع النموذج من سحب التركيز نهائياً عند النقر عليه ، وبالتالي تظل الخلية أو النص المحدد في وورد أو إكسل محتفظاً بالتركيز ويتم النسخ واللصق فوراً . بحث-لصق-تسخ.xlsb

أخي الأستاذ @عبدالله بشير عبدالله ، المشكلة جداً بسيطة إن شاء الله .. فقط قم بإلغاء أو إيقاف السطور الثلاثة التالية :- ExStyle = GetWindowLongPtr(hWndForm, GWL_EXSTYLE) SetWindowLongPtr hWndForm, GWL_EXSTYLE, ExStyle Or WS_EX_LAYERED SetLayeredWindowAttributes hWndForm, 0, 160, LWA_ALPHA من الدالة Private Sub UserForm_Activate فقط .. حيث كانت تقوم بإضافة خاصية الشفافية بقيمة 160

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