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

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

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

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

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

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

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

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