رجب جاويش

أخى الفاضل / مصطفى كمال جزاك الله كل خير

الأخت الفاضلة / أم عبد الله تسلم ايديكى على هذا الإبداع

أخى الحبيب / محمود الشريف جزاك الله كل خير

أخى الفاضل : أبو حنين Public ( عام ) هى كلمة تستخدم لتعريف المتغيرات وتجعل هذا المتغير يمكن استخدامه فى أى موديول فى الملف وليس مقصورا فقط على الموديول الموجود به المتغير أما Byte فهو نوع من أنواع البيانات التى تخزن داخل المتغير وهو أصغر أنواع البيانات مساحة حيث يشغل في ذاكرة الكمبيوتر 1 بايت ومداه الأرقام الصحيحة الموجبة من صفر إلى 255 فقط

أخى الحبيب / محمود الشريف جزاك الله كل خير على هذه الكلمات الطيبة

أخى الفاضل / ناصر جزاك الله كل خير على هذه الكلمات الطيبة

السلام عليكم أخى الفاضل إجعل الكود بالشكل التالى Public ss As Byte Sub addition() Dim ER, R pass = "123" sama = InputBox("إدخل الباسورد لتنفيذ الماكرو") If sama <> pass Then ss = ss + 1 MsgBox ("الباسورد خطأ (الإدخال الخاطئ اكثر من 3 محاولات يقفل البرنامج)" & Chr(10) & " " & "باقى لك عدد" & " " & 3 - ss & " " & "محاولة") If ss >= 3 Then Application.DisplayAlerts = False Application.Quit End If Exit Sub End If ER = ActiveSheet.UsedRange.Rows.Count For R = 8 To ER If WorksheetFunction.IsNumber(Cells(R, 7)) = True And _ Cells(R, 7) <> 0 Then Cells(R, 7) = Cells(R, 7) + 1 If WorksheetFunction.IsNumber(Cells(R, 23)) = True And _ Cells(R, 23) <> 0 Then Cells(R, 23) = Cells(R, 23) + 1 Next R End Sub

أخى الفاضل جزاك الله كل خير

السلام عليكم أخى الفاضل جرب هذا التعديل Sub addition() Dim ER, R pass = "123" ansr = InputBox("أدخل كلمة المرور أولا ") If ansr <> pass Then Exit Sub ER = ActiveSheet.UsedRange.Rows.Count For R = 8 To ER If WorksheetFunction.IsNumber(Cells(R, 7)) = True And _ Cells(R, 7) <> 0 Then Cells(R, 7) = Cells(R, 7) + 1 If WorksheetFunction.IsNumber(Cells(R, 23)) = True And _ Cells(R, 23) <> 0 Then Cells(R, 23) = Cells(R, 23) + 1 Next R End Sub

السلام عليكم تفضل أخى Private Sub CommandButton1_Click() Range("A2:A10").Interior.ColorIndex = 5 End Sub Private Sub CommandButton2_Click() CommandButton1_Click End Sub مثال.rar

أخى الحبيب / محمود الشريف أحييك على هذه الروح الطيبة وأحييك على حرصك على نشر العلم وإفادة الآخرين جزاك الله كل خير

السلام عليكم تفضل أخى التغييرات التى تمت على الملف أولا : فى حدث الـ Workbook ضع الكود التالى Private Sub Workbook_Open() Application.Visible = False kh_Show_UFormChang1 End Sub ثانيا : عمل زر CommandButton2 بجوار زر خروج ( يسمى مستند ) مثلا وتضع فيه الكود التالى Private Sub CommandButton2_Click() Application.Visible = True Unload Me End Sub ثالثا : تغير كود زر الخروج الى الكود التالى وذلك للخروج من التطبيق تماما عند الضغط عليه Private Sub ButtonExit_Click() Application.Quit End Sub تسجيل 2014.rar

أخى الحبيب / ابراهيم لا يوجد اذن بين الأحبه إنما هو تعاون فى الخير تسلم ايديك

أخى الفاضل / نجم الدين جزاك الله كل خير على هذه الكلمات الطيبة

وهذا حل آخر Book122.rar

السلام عليكم أخى الفاضل / نجم الدين تسلم ايديك ولاثراء الموضوع هذا حل آخر Book121.rar

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

أخى الحبيب / محمود الشريف هدية رائعة جعلها الله فى ميزان حسناتك جزاك الله كل خير

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

السلام عليكم بعد اذن أخى الفاضل / زمزم ولاثراء الموضوع تفضل أخى تعديل فاتورة.rar

أخى الفاضل / طارق زكريا جزاك الله كل خير

السلام عليكم أخى الفاضل هل تقصد هكذا تسديد اشتراك.rar

السلام عليكم أخى الفاضل إجعل كود اظهار الفورم بالشكل التالى Sub ragab() UserForm1.Show 0 End Sub

واذا كانت الحماية بكلمة مرور ( مثلا 123 ) يكون السطر الأول هكذا ActiveSheet.Unprotect "123" والسطر الأخير هكذا ActiveSheet.Protect "123"

أخى الفاضل / محمد ضع السطر التالى فى أول الكود ActiveSheet.Unprotect والسطر التالى فى آخر الكود ActiveSheet.Protect