logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
حسين الحمادي لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة YasserKhalil أكبر تجميعية لملفات PSD مفتوحة المصدر جاهزة للتعديل إهداء لأعضاء وزوار المنتدي الكرام اكسيل اسئله واجابات



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





08-09-2017 06:24 مساءً
السلام عليم ورحمة الله وبركاته
سأحاول اليوم شرح الدرس الماضي - كيفية عمل مشروع بنسخة تجريبية-
أولا نقوم بفتح ملف أكسل جديد ثم من تبوب المطور نختار UserForm ثم نضيف عليه إثنين TextBox و سبعة Label و CheckBox واحدة و إثنين CommandButtonكما هو موضح في اليوزر فورم1
Mjk3MTUyMQ67672017-09-08_154833
نرجع على ورقة العمل رقم 1
أولا شرح توليد كود التفعيل
عند الخلية G1""نكتب مثلا رقم 6881 ثم نحد الخلية نكتب مثلا رقم 6881 ثم نحد الخلية "H1" ونقوم بتحويل الرقم الموجود في الخلية G1"" من رقم عشري إلى رقم سداسي عشري وذلك بكتابة المعادلة التالية في الخلية "H1" =DEC2HEX(G1)
يصبح الناتج 1AE1 ولزيادة الحماية أكثر نضع في الخلية "J1" المعادلة التالية
=G1*2-10000 وذلك لكي يصبح الكود أكثر أمانا وهذا هو كود التفعيل.
MzExNDA0MQ44442017-09-08_160303
نعود لليوزر فورم 1
بعد ما صممنا اليوزر فورم مثلما هو موضح في الصورة السابقة بالضبط
نجعل textbox2 مخفي لأننا نريد عند ظهر اليوزر فورم . التكس بوكس2 يأخذ القيمة الموجودة في الخلية "J1"
وذلك بالضغط مرتين على اليوزر فورم ونكتب الكود التالي في حدث Activate
CODE
Private Sub UserForm_Activate()
Label6.Caption = Cells(1, 8).Value
TextBox2.Value = Cells(1, 10).Value
End Sub

نقوم بتصميم يوزر فورم 2 كما هو موضح بالصورة
NDYwMzEzMQ77772017-09-08_183453
نعود لليوزر فورم واحد ونقوم بالضغط على زر موافق مرتين ونكتب الكود التالي
CODE
Private Sub CommandButton1_Click()
If TextBox1.Value = TextBox2.Value Then
Cells(1, 1).Value = 0
UserForm2.Caption = "نسخة مفعلة"
UserForm2.Label1.Visible = False
UserForm2.Label2.Visible = False
UserForm1.Hide
UserForm2.Show
Else
Call kamell
Label6.Caption = Cells(1, 8).Value
TextBox2.Value = Cells(1, 10).Value
Label3.Caption = Label3.Caption - 1
TextBox1.Enabled = True
TextBox1.Value = ""
TextBox1.SetFocus
If Label3.Caption = 0 Then
ThisWorkbook.Save
Application.Quit
End If
End If
End Sub

سؤال مطروح ماذا تعني Call kamell !?
للإجابة على هذا السؤال ندرج مديول نسميه مثلا kamell ثم نكتب فيه الكود التالي
CODE
Sub kamell()
m = Cells(1, 7).Value
b = m + 15
Cells(1, 7).Value = b
End Sub

هذا الموديول هو لتغيير الكود كلما أخطأت في إدخال الكود الصحيح وهذا كما قلنا لزيادة المحافظة على خصوصية و امان البرنامج
ثم نعود لليوزفورم1
نضغط مرتين على شيكبوك ونكتب الكود التالي
CODE
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
TextBox1.PasswordChar = ""
Else
TextBox1.PasswordChar = "*"
End If
End Sub

اه انا نسيت حاجة في تكس بوكس نروح للخصائص وعند الخاصيةPassewordChar نكتب بجنبها * أو أي رمز أخر وهذ لإخفاء كلمة المرور
MTM4ODI1MQ28282017-09-08_191550
نضغط مرتين على زر الخروج من البرنامج ونكتب الكود التالي
CODE
Private Sub CommandButton2_Click()
ThisWorkbook.Save
Application.Quit
End Sub

وبهذا القدر نكتفي اليوم بقية حاجة بسيطة من البرامج نتركها لمرة اخرى بإذن الله
شكرا
السلام علكم
تكملتا للموضوع لم يتبق في هذا اليوزر فورم إلا إلغاء خاصية QueryClose وذلك بإدراج الكود التالي في اليوزر فورم
CODE
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = True
End Sub

وهاكذا إنتهينا من اليوزر فورم 1
ننتقل لليوزر فورم2

في حدث userform activate نضع الكود التالي
CODE
Label2.Caption = Cells(1, 2).Value

وهذا الكود يمثل جلب عدد المرات المتبقية للنسخة التجربية و إضهارها في الليبل كما هو موضح في الصورة السابقة
والزر -ملف الأكسل يمثل الدخول للبرنامج والزر الأخر للخروج كذلك يجب إلغاء QueryClose كما فعلن سابقا في اليوزر فورم 1
نأتي للمرحلة الأخيرة
ندرج يوزر فورم 3 ونع فيه2 أزرار و ليبل واحد كما في الصورة
MTc5MTczMQ61612017-09-08_184720
في حدث userform activate نض الكود التالي
CODE
Private Sub UserForm_Activate()
If Cells(1, 2).Value = 0 Then
CommandButton2.Visible = False
End If
End Sub

والذي يمثل إذا كانت عدد المرات المتبقية هي 0 أخفي زر العمل على النسخة التجريبية
أما الزر الأخر فهو لفتح اليوزر فورم 1
كذلك نلغي خاصية QueryClose
وهذا اليوزر فورم نجعله يظهر عند فتح البرنامج و إذا كانت النسخة تجريبية فقط
أما إذا كانت مفعلة فلن يظهر
كيف نقوم بذلك ?
نقوم بفتح ThisWorkbook
MTYxNzMwMQ80802017-09-08_191835
ومن خلال حدث Open ندرج الكود التالي
CODE
Private Sub Workbook_Open()
Application.Visible = False
Cells(1, 7).Value = Cells(1, 7) + 7
If Cells(1, 1).Value = 1 Then
Cells(1, 2).Value = Cells(1, 2).Value - 1
UserForm3.Show
Else
UserForm2.Caption = "نسخة مفعلة"
UserForm2.Label1.Visible = False
UserForm2.Label2.Visible = False
UserForm2.Show
End If
End Sub

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




توقيع :Kamel meraghni

<big> الحمد لله وكفى والصلاة والسلام على الحبيب المصطفى </big>


142

look/images/icons/i1.gif شرح درس كيفية جعل البرنامج نسخة تجريبية
  08-09-2017 07:19 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10509
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36622
الاعجاب : 145
وعليكم السلام أخي العزيز كامل
بارك الله فيك وجزاك الله خيراً ..موضوع مميز ورائع

مجرد نصيحة بسيطة حاول تدعم الموضوع ببعض الصور ..
تقبل تحياتي




look/images/icons/i1.gif شرح درس كيفية جعل البرنامج نسخة تجريبية
  08-09-2017 07:24 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10509
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36622
الاعجاب : 145
يبدو أن الصور لم يتم إدراجها بشكل صحيح في الموضوع ..
قم بالنقر على إضافة مرفقات ثم قم بتحميل الصور وبعد التحميل قم بتحديد المكان المطلوب إدراج الصورة فيه ثم انقر "أضف للمشاركة" من نافذة "تحميل المرفقات"




look/images/icons/i1.gif شرح درس كيفية جعل البرنامج نسخة تجريبية
  08-09-2017 08:29 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 182
المشاركات : 107
الجنس :
تاريخ الميلاد : 23-10-1984
قوة السمعة : 754
الاعجاب : 2
خلاص أخي يايسر أصلح الخلل شكرا



توقيع :Kamel meraghni

<big> الحمد لله وكفى والصلاة والسلام على الحبيب المصطفى </big>


142

look/images/icons/i1.gif شرح درس كيفية جعل البرنامج نسخة تجريبية
  10-12-2018 11:18 صباحاً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-11-2018
رقم العضوية : 9298
المشاركات : 119
الجنس :
تاريخ الميلاد : 27-6-1985
قوة السمعة : 110
الاعجاب : 0
بارك الله فيك




اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كيفية استخراج بيانات من عمود بواسطة بوضع نجمة امامه وشوية تريكات mmagedmemo
2 795 EM_ACC
كيفية إضافة التاريخ والوقت والتغلب على معادلة الوقت عند استخدام ماكينة الباركود mmagedmemo
4 196 EM_ACC
كيفية اظهار يوزرفورم فى اكسيل اوتوماتيكياً عند انقطاع الانترنت gemy2010
4 104 gemy2010
كيفية وضع ملف فى فولدر تم انشاءة toytotan
12 137 YasserKhalil
كيفية فصل بيانات عمود إلى عدة أعمدة باي محدد DELIMTER بالبوركويري mmagedmemo
1 110 mmagedmemo

الكلمات الدلالية
كيفية ، البرنامج ، نسخة ، تجريبية ،









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

الساعة الآن 02:09 PM