عبدالله المجرب

جرب هذا الكود Sub PDF_ALL() MyName = "D:\MR_" & Format(Date, "dd-mm-yyyy") & ".pdf" Range("C45").Select Sheets(Array("A", "B", "C", "D")).Select Sheets("A").Activate MyMsg = MsgBox("هل انت متاكد من اتمام عمليه الحفظ", 4, "تنبيه") If MyMsg = 6 Then ChDir "D:" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ MyName, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True MsgBox "تم الحفظ" Else MsgBox "لم يتم الحفظ" End If End Sub

يمكنك تسجيل ماكرو بهذه الخطوات

تقوم بذلك من محرر الاكواد شاهد الصور

السلام عليكم اليك المرفق Abu_Ahmed_2014.rar

بارك الله فيك فكرة حلوة وتنفيذ أحلى

العفو

جربت الكود ويعمل بشكل ممتاز

Camtasia Studio 7

اخي الكريم الأولى ان تضع جدول للمستخدمين حتى تستطيع التحكم في الصلاحيات

السلام عليكم استبدل هذا السطر If [E2] = "" Or [F2] = "" Then MsgBox "لا بد من إدخال بيانات للفرز", , "Abu_Ahmed": Exit Sub بهذا If [E2] = "" And [F2] = "" Then MsgBox "لا بد من إدخال بيانات للفرز", , "Abu_Ahmed": Exit Sub

شاهد المرفق في ورقة 1 لن تعمل حافظة النسخ في الورقتين الاخريين تعمل Abu_Ahmed 2013.rar

السلام عليكم استخدم هذه الدالة في الخلسة واسحب للاسفل C22 =IF(B22>100;B22*2;IF(AND(B22>=90;B22<=99);B22*1.5;IF(AND(B22>=80;B22<=89);B22*1;IF(B22<80;B22*0))))

هل تستعمل أوفيس 2007

السلام عليكم تم تعديل المرفق (تم التحايل على دمج الخلايا وكود التصفية المتقدمة) جرب المرفق واعلمني بالنتيجة خانه فرز باسم السائق (1).rar

السلام عليكم ما رايك ان يتم عمل الفرز بالكود

جربت الفكرة ونجحت وهي شاشة الصلاحيات تعطي tst القيمة 1 وفي حدث الفتح لكل فورم (الرئيسي او الفرعي) استدعاء الوحدة النمطية في حدث الاغلاق tst يساوي 0 فاذا كان الدخول من خلال فورم الصلاحيات تفتح النماذج أو لا تفتح

اي بمعنى ان الفورم الفري مرتبط بالرئييسي اثناء التصميم وليس بعد يرتبط به

السلام عليكم يظهر لدي بأن الكود يتفعل عند فتح الفورم الرئيسي لانه مرتبط به وليس كهذه الحالة بحيث يمنع الفتح Private Sub Form_Load() Sub1.SourceObject = "sub1" End Sub فهل من حل

جميل جداً وهو المطلوب وفكرته سهله ولذيذة +1

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

عمل متكامل ما شاء الله تبارك الرحمن بارك الله فيك

لمسات رائعة وافكار جميلة تجعلنا نقف عندها لفهم طريقة تركيبها سلمت يمينك

اخي الكريم ضع مرفق للعمل عليه

السلام عليكم اخي علي ضع سطر فك الحماية في بداية الكود وسطر إعادة لحماية في نهاية الكود

تم تثبيت الموضوع بناء على طلب ألاخ SAROOK