علي الشيخ

أستاذ محمد يعني حضرتك عندك ملف فيه أسماء وأرقام وهو غير مرتبط بأي ملفات أخرى

ماذا يحدث عند فتح الملف؟ ممكن تزودنا بموذج مصغر للملف حتى استوعب المشكلة بشكل  أفضل

السلام عليكم

فضلا توضيح طبيعة الملف هل هذه الأسماء مرتبطة بمرجع في ملفات أخرى؟

اذا في إمكانية ترفق الملف توضح عليه المشكلة يكون أفضل وعامة تحديث البيانات المرتبطة بملفات أخرى ميزة جيدة ومنطقية حتى يكتمل عملية الربط بين الملفات بشكل سليم

ما شاء الله تبارك الله مجهود كبير جزاك الله كل خير

السلام عليكم

ممكن تجرب الكود كالتالي

Private Sub TextBox1_AfterUpdate()
    TextBox1.Value = Format(TextBox1.Value / 100, "Percent")
End Sub

السلام عليكم

أعتقد لابد من استخدام VBA لهذا الغرض والأكواد والطرق متنوعة يمكن على سبيل المثال استخدام الكود التالي

وهو عند الدخول إلى الصفحة يقوم بإخفاء كل الأعمدة (كامل محتوى الشيت) لحين إدخال الباسورد لو صحيح يقوم بإظهار الخلايا لو خطأ يبقي المحتوي مخفى

وتقدر تضعه في كل صفحة أنت تريد حمايتها مع تغيير الباسورد من 123 إلى أي باسورد تفضله

Private Sub Worksheet_Activate()

    Dim strReply As String
    Dim lReply As Long
     
    Cells.Select
    Selection.EntireColumn.Hidden = True
    strReply = InputBox("Enter Password", "Sheet Protection")
    If strReply = "123" Then
    Sheets("sheet2").Activate
    Cells.Select
    Selection.EntireColumn.Hidden = False
    Range("A1").Select
    Else:
    MsgBox "Wrong password"
    Exit Sub
    
    End If

End Sub

السلام عليكم.

جرب الكود كالتالي

 Sub Export_PDF_in_most()

Application.ScreenUpdating = False

 
    Sheet5.Select
ActiveSheet.ExportAsFixedFormat xlTypePDF, "C:\Users\DESKTOP\Dropbox" _
& "\  Escorts Date   " & N & UserForm1.TextDate1 & ".PDF", OpenAfterPublish:=True
Application.ScreenUpdating = True
End Sub

منذ ساعه, ياسر خليل أبو البراء said:

أخيراً ظهرت على الشاشة ..فينك يا حاج

والله جيت في بالي أكتر من 40 مرة (شفت الدقة دي)

خير اللهم اجعله خير ..لعل غيابك عن إخوانك خير إن شاء الله

لكم افقتدت وجودك فيما بيننا

أستاذي وأخي في الله تسلم وما بعدنا إلا الإنشغال وبعض الظروف أبعدتنا شوية نأسف على التقصير

وأفتقدت المنتدى بأعضاءه الموقرين وافتقدت مشاركاتك اللي بستفاد منها يوميا الله يجزاك خير أخي ياسر .. كل الإحترام والتقدير

مشكور أخي ياسر وطريقة ممتازة صراحة وجديدة بالنسبة لي وفي إنتظار الشرح

جزام الله خيرا

ما شاء الله قائمة مميزة ومجهود رائع الله يجزاك خير

السلام عليكم ورحمة الله

مرحبا أخي

تقدر تجرب التالي

أولا هنعمل Dynamic Range للجدول

والطريقة كالتالي من

Formula

Define  a Name

واكتب اسم الجدول زي ما تحب وليكن MyTable

واكتب في خانة الـ Refers To المعادلة التالية

=OFFSET(A1,0,0,COUNTA(A:A)-1,COUNTA(1:1))

واضغط اوكي

وأخيرا هتضيف الكود التالي وتعمله زر للطباعة

Sub Myprint()
ActiveSheet.PageSetup.PrintArea = "MyTable"
End Sub

وشوف ان شاء الله يمشي الحال

الاخ الكريم /على الشيخ

هذا ما اريد فعلا و لكن لم ارى اكواد ..نود منك الافادة حيث ان المرفق هو ملف مبسط من البرنامج و اريد تطبيق الموضوع على البرنامج الاصلي 

 و بارك الله فيك

السلام عليكم 

أخي الفاضل تم استخدام التنسيق الشرطي Conditional Formatting ولم يتم استخدام أكواد

في التنسيق الشرطي يتم استخدام هذه المعادلة 

=IF($F6<>"",COUNTA($F6:$J6)>0,"")

حيث إن F6 الأولى التي على أساسها يتم عمل إطار للخلايا

والنطاق من F6:J6 هو الذي يتم عمل الإطار له 

وبعد ذلك في نافذه التنسيق الشرطي هتضغط على Format

ثم Border لتحدد شكل الإطار كما تشاء 

ويمكنك نسخ التنسيق إلى أي عدد من الصفوف تحت نفس النطاق كما تشاء

وبتطبيق الخطوة السابقة على كل الجداول مع تغيير الخلية التي على اساسها يتحدد الإطار وأيضا تغيير النطاق ستعمل معك بدون مشاكل ان شاء الله 

لو مش واضح بالنسبة لك التنسيق الشرطي ممكن أوضحلك الخطوات كلها بالتفصيل بالصور ومن الأول

وبالله يوفقك

السلام عليكم

أتفضل أخي شوف الملف المرفق

الورقة 5

الجدول Evening

اللي تم عمله إنك بمجرد إضافة قيم للجدول Evening باستخدام الصفحات الأولى طبعا

سيتم عمل الجدول تلقائيا لكل القيم المضافة ويتم حذف الجدول بحذف القيم

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

test.rar

أخي الفاضل 

أتفضل حمل الكراك من الرابط التالي لو مش موجود عندك

http://arab.sh/yvpwuza3oqpk

وطريقة التثبيت في الرابط التالي

http://techeqla.tumblr.com/post/36816257723/2010

السلام عليكم 

مرحبا أخي

للإيضاح أكتر عرفنا النتيجة المتوقعة من استخدامك للدالة 

السلام عليكم

مرحبا أخي

الملف تالف ولا اعتقد ان له حل

السلام عليكم أخي

عذرا المطلوب غير واضح على الأقل بالنسبة لي

الكومبوبوكس ده فيه إيه ومرتبط بإيه ؟

والتاريخ التلقائي هيتم بناء على إيه ؟

ورقم الصفحة أيضا رقم أي صفحة ؟

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

كلام جميل ولكن

1- اريد تحديد صفوف لعدم الاقتراب منها مثل الاعمده كيف افعلها

2- اريد اي مستخدم لا يستطيع الدخول و التعديل علي الفاجوال بيسك 

3- هل يمكن لاكثر من مستخدم ان يستخدمون الملف في وقت واحد ام لا ؟

السلام عليكم

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

يمكنك حماية محرر الأكواد " الفيجوال بيسك " بباسورد ولن يقوم أحد بالدخول إليه

لا يمكن لأكثر من مستخدم استخدام ملف الإكسل في نفس الوقت وهذه طبيعة برمجية في الإكسل بشكل عام

السلام عليكم الاخ الكريم على الشيخ

ما تقدمه للمنتدى واخوانك عمل رائع

سلمت يداك بكل خير

اخى الحبيب هلى يمكن اضافه على اساس تحديد الصفحات المراد تحويلها PDF من صفحه رقم   ...  الى صفحه رقم ...

ثم السوال اذا ارت ارسلها اميل من عدمة  ( هل تريد ارساله هذا الملف عن طريق الاميل  ) اذا كانت  نعم  يتم ارسلها اميل

اذا كان الاجابه  لا يكتفى بحفظ الملف PDF

 

جزاك الله كل الخير

أخي الفاضل أبو حنين

اتفضل شوف المرفق إن شاء الله يفي بالغرض

 ويمكن تحويل الكود إلى Addin في حالة أردت استخدامه في كافة ملفات الإكسل

Save As PDF Multisheet Selection.rar

الاستاذ علي الشيخ

شكرا لك هذا التعاون و الكود الرائع المفيد

لدي بعض الملاحظات لتعم الفائدة للجميع و نتعلم و نستفاد من خبرتك و خبرة الاعضاء المحترمين

1- هل يمكن حفظ كل الشهادات في ملف واحد فقط بحيث يحتوي على شهادات كل الطلاب ؟ وليس حفظ شهادة كل طالب بصورة منفصلة؟

2- هل يمكن اضافة سطر للكود لفتح الملف الناتج بصيغة pdf?

3- تعديل على الكود يسمح للمستخدم تحديد مسار حفظ الملف؟

 

انتهت الملاحظات

 

وطلب اخر اذا امكن احتاج الى كود تغيير مظهر الفورم( اضافة skin) علما بان ملف skin ضمن نفس مجلد الشيت

السلام عليكم ورحمة الله

مرحبا أخي العزيز

بالنسبة لحفظ كل الشهادات في ملف واحد على حسب معرفتي البسيطة إنه لا يمكن ذلك وذلك بسبب طبيعة ملف البي دي إف الغير قابل للتعديل

ويمكن لو عملت موضوع يتعلق بهذه الجزئية يمكن أحد الإخوة لديه حل لهذه الجزئية بمشية الله

وبالنسبة لاختيار مكان الحفظ انا اختصرتها لك حتى لا تقم باختيار مكان واسم الحفظ لكل ملف خاصة إن ممكن الشهادات تكون كثيرة فحسيت إن كده أفضل ولكن لو تحب

أغيرلك هذه الجزئية مفيش مشكلة بإذن الله

والنقطة الأخيرة لفتح الملف بي دي إف بعد حفظه فهي بسيطة وأنا عملتها عدم تمكين لأن سيتم حفظ عدد كبير من البي دي إف " الشهادات " ولما تفتح كلها ممكن تسبب مشكلة

في أي شئ وعامة لتمكينها فقط غير الجزئية هذه في الكود

OpenAfterPublish:=False

إلى

OpenAfterPublish:=True

وشوف اللي ينباسبك وفي حدود اللي أقدر عليه بساعد فيه بمشية الله

اتفضل أخي شوف الملف المرفق وهو لأحد الأخوة في المنتدى جزاه الله كل خير

اسم المستخدم : الدعم الفني

الباسورد : 1111

برنامج صلاحيات المستخدمين اصدار 3.rar

اتفضل أخي شوف الملف المرفق عسى يكون المطلوب

بس عشان يضبط أعمل فولدر جديد على سطح المكتب اسمه  "  الشهادات " 

ولو حابب نغير الجزئية دي مفيش مشكلة نغيرها عادي

BOOKTOPDF123.rar

الشائع انك ممكن تعمل صلاحيات المستخدمين 

هيكون هو ملف واحد ولكل مستخدم يوزر نيم وباسورد 

وهناك حساب " مدير " أدمن للملف هو اللي يغير الباسوردات والصلاحيات ويحذف أو يضيف يوزر جديد

بجانب ان الصلاحيات ممكن تكون كالتالي

التحكم في الصفحات التي يتم عرضها لكل مستخدم 

إمكانية التعديل من عدمه 

حتى بعض النطاقات أو الأعمدة يمكن التحكم فيها بمعنى أن اليوز يقدر يدخل أو يعدل على بيانات في أعمدة محددة

وهناك شيت للأدمن يحتوي على اليوزرات والباسوردات والصلاحيات 

وفي خاصية Timestamp اللي بتوضحلك دخول كل عضو وقت دخوله بالتاريخ والساعة والدقيقة 

السلام عليكم ورحمة الله 

مرحبا أخي 

على حد علمي لا يمكن عمل ذلك مع الإكسل 

أول شخص هيقوم بفتح الملف على الشبكة هيكون هو الوحيد القادر على التعديل وحفظ التعديلات 

الباقون سيفتح الملف معهم Read Only مشاهدة فقط ولا يقبل حفظ التعديلات 

اخي العزيز علي الشيخ 

كل عام وانت  بالف خير و جزاك الله خيرا على تعاونك واهتمامك بالرد و تطلبية الطلب

اليك الملف المرفق و المطلوب حفظ كل الشهادات لكل الطلاب بصيغة ملف PDF 

السلام عليكم أخي الفاضل الميساني

وأنت بخير وصحة وسلامه وصوما مقبولا بإذن الله 

يعني انت عاوز بمجرد الضغط على الزر يتم حفظ كل الشهادات كل شهادة على حدى في ملف بي دي إف مستقل؟

ولا كل طالب تختار رقمه وتضغط على الزر لحفظ الطالب المحدد فقط في ملف بي دي إف؟

في كل الأحوال أنت ذكرت ان هناك كود تستخدمه لطباعة الشهادات 

فضلا ضع الكود لدمجة مع كود البي دي إف بمشية الله 

ربنا يكرمك أخي الفاضل وولا يهمك المهم جهازك يظبط ويبقى تمام بإذن الله