نجوم المشاركات

الأمر غريب فعلاً ...🤔... فقد قمت بالتجربة على نسخة أوفيس 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

أشكر أخي العزيز @Moosak على مساعدته القيمة في إختبار الأداة ونتيجة لهذه المساعدة قمت بإعداد ورفع إصدار ثاني من الأداة تم فيها إصلاح الخطأ الذي يظهر نتيجة تجاوز عدد الخطوط المنزلة على الجهاز أكثر من 500 خط والذي كان يظهر في الإصدار الأول كما جاء في ملاحظة الاخ موسى فأصبح لدينا الآن إجراء جديد يتم فيه سرد قائمة الخطوط والإحتفاظ بها في جدول (يتم مرة واحدة بعد أول تشغيل للأداة أو بعد تنزيل خطوط جديدة إلى الجهاز) لذلك إذا كان جهازك يحتوي على عدد خطوط أقل من 500 خط وتكون متأكد من أنك لن تتجاوز هذه العدد من الخطوط في المستقبل فلا يوجد فرق سواء إستخدمت الإصدار 1 أو 2 لا مشكلة , غير ذلك فيلزمك العمل بإستخدام الإصدار 2 تحياتي

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

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

هذا شغال على نسخة 32 طبيعي

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

جزاك الله خيرا اخي Foksh من طلبات الاستاذ ابو مارفن لو تكرمت واظهرت زر الاغلاق والتكبير والتصغير للفورم حتى تكتمل طلبات اخونا ابو مارفن وخصوصا انني حاولت ولم اصل الى حل عملي

نعم معلمي الفاضل Foksh المشكلة التي لم أجد لها حلاً هي أنه عند إظهار أزرار التكبير، التصغير، والإغلاق للفورم: عند إضافة الكود المخصص لإظهار هذه الأزرار، تظهر الأزرار بالفعل، ولكن تتوقف بعض المهام الرئيسية (مثل النسخ واللصق وغيرها) داخل بعض برامج أوفيس. وهذا بالتحديد ما أشار إليه الأخ ابو مارفن في أحدث رد له؛ حيث أنه تم إلغاء الشفافية وإظهار أزرار الفورم، تعطلت وظائف النسخ واللصق في أوفيس، بينما بقيت تعمل بشكل طبيعي على بقية البرامج والمواقع الأخرى. اتمنى ان تجد حلا للامر لاننى حاولت مع 3 مواقع للذكاء واعطوني خلولا تسبب في توقف مهام الازرار على برامج الاوفيس