احمد حمور-ابوعبدالله قام بنشر أكتوبر 31, 2011 الكاتب مشاركة قام بنشر أكتوبر 31, 2011 اخي وحبيبي ابو عبدالله ( الجزيره) بارك الله فيك على هذه الكلمات الجميله ============================================ اخي الكريم وائل هل اطلعت على المشاركه رقم 2 او رقم 9 ؟؟؟؟؟؟؟؟؟؟؟؟ ستجد الملف بالمشاركه 2 بدون الشرح اما بالمشاركه رقم 9 ستجدها مع الشرح ================================================= اخي مودي الموضوع بسيط جدا ولكن يجب عليك الدخول الى صفحة الاكواد واضافة الصفحات الجديده التي لديك ومن ثم التعامل مها يعني بالبلدي مينفعش تعملها من غير كده لاني مفصل الملف على ثلاث صفحات وهي محدده باسماءها فلا اعلم مامدى درايتك بالاكواد هل تستطيع عملها ام لا فان كان نعم فهذا خير وبركه وان كان لا يمكنك ارسال الملف والتعديل عليه من قبلنا رابط هذا التعليق شارك More sharing options...
احمد حمور-ابوعبدالله قام بنشر نوفمبر 1, 2011 الكاتب مشاركة قام بنشر نوفمبر 1, 2011 اخي مودي يعني لاحظ الاكواد التي باللون الاخضر وهي مثال لاضافة صفحتين جديدتين باسم 1 و 2 فقط طبق على الكود باضافة اسماء صفحات الفعليه مهما كانت كثيره بنفس مكان الكود الذي باللون الاخضر Private Sub CommandButton1_Click() Dim AHMAD As String, HAMOOR As Worksheet, DADA As Integer, MYSH As Worksheet On Error GoTo 1 If ComboBox1.Value = "" Or TextBox2.Text = "" Then MsgBox " ÍÇæá ÇáÏÎæá ÈÔßá ÕÍÍÍ ", 16, "ÊÍÐÍÑ" ComboBox1.Value = "" TextBox1.Text = "" TextBox2.Text = "" ComboBox2.Value = "" Else Set MYSH = Sheets("DATA") DADA = MYSH.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row AHMAD = TextBox3.Value Set HAMOOR = Sheets("CONTROL") With HAMOOR Application.Range(AHMAD).Activate If TextBox2.Text <> .Range(AHMAD).Offset(0, 1).Value Then MsgBox "ÇáÑÞã ÇáÓÑÍ ÛÍÑ ÕÍÍÍ", 16, "ÑÓÇáÉ ÊäÈÍå" TextBox2.Text = "" TextBox2.SetFocus Else If TextBox1.Text = .Range(AHMAD).Value And TextBox2.Text = .Range(AHMAD).Offset(0, 1).Value Then If ComboBox2.Value = "ADMINSTRATIVE" Then .Visible = xlSheetVisible .Application.Sheets("DATA").Visible = xlSheetVisible '.Application.Sheets("1").Visible = xlSheetVisible '.Application.Sheets("2").Visible = xlSheetVisible Me.Hide Application.Visible = True MYSH.Cells(DADA, 1).Value = Me.TextBox1.Text Sheets("SHEET2").Activate MsgBox "Úáì ÈÑßÉ Çááå ", vbOKOnly, "ÇáÊÑÍÍÈ" ElseIf ComboBox2.Value = "USER" Then .Visible = xlSheetVeryHidden .Application.Sheets("DATA").Visible = xlSheetVeryHidden '.Application.Sheets("1").Visible = xlSheetVeryHidden '.Application.Sheets("2").Visible = xlSheetVeryHidden Me.Hide Application.Visible = True MYSH.Cells(DADA, 1).Value = Me.TextBox1.Text Sheets("SHEET2").Activate MsgBox "Úáì ÈÑßÉ Çááå ", vbOKOnly, "ÇáÊÑÍÍÈ" End If End If End If End With End If 1 End Sub معلش اخي وجد لون اخضر كثير اتبع التغيير في الاسطر التاليه '.Application.Sheets("1").Visible = xlSheetVisible '.Application.Sheets("2").Visible = xlSheetVisible وايضا هذا '.Application.Sheets("1").Visible = xlSheetVeryHidden '.Application.Sheets("2").Visible = xlSheetVeryHidden رابط هذا التعليق شارك More sharing options...
mody_mhashem قام بنشر نوفمبر 3, 2011 مشاركة قام بنشر نوفمبر 3, 2011 (معدل) السلام عليكم ورحمة الله و بركاتة اخى العزيز احمد حمور-ابوعبدالله هل تقصد ان الكود سيصبح هكذا Private Sub CommandButton1_Click() Dim ahmad As String, hamoor As Worksheet, DADA As Integer, MYSH As Worksheet On Error GoTo 1 If ComboBox1.Value = "" Or TextBox2.Text = "" Then MsgBox " ÍÇæá ÇáÏÎæá ÈÔßá ÕÍÍÍ ", 16, "ÊÍÐÍÑ" ComboBox1.Value = "" TextBox1.Text = "" TextBox2.Text = "" ComboBox2.Value = "" Else Set MYSH = Sheets("DATA") DADA = MYSH.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row ahmad = TextBox3.Value Set hamoor = Sheets("CONTROL") With hamoor Application.Range(ahmad).Activate If TextBox2.Text <> .Range(ahmad).Offset(0, 1).Value Then MsgBox "ÇáÑÞã ÇáÓÑÍ ÛÍÑ ÕÍÍÍ", 16, "ÑÓÇáÉ ÊäÈÍå" TextBox2.Text = "" TextBox2.SetFocus Else If TextBox1.Text = .Range(ahmad).Value And TextBox2.Text = .Range(ahmad).Offset(0, 1).Value Then If ComboBox2.Value = "ADMINSTRATIVE" Then .Visible = xlSheetVisible .Application.Sheets("DATA").Visible = xlSheetVisible '.Application.Sheets("CONTROL").Visible = xlSheetVisible '.Application.Sheets("0").Visible = xlSheetVisible '.Application.Sheets("1").Visible = xlSheetVisible '.Application.Sheets("2").Visible = xlSheetVisible '.Application.Sheets("3").Visible = xlSheetVisible '.Application.Sheets("4").Visible = xlSheetVisible '.Application.Sheets("5").Visible = xlSheetVisible '.Application.Sheets("6").Visible = xlSheetVisible '.Application.Sheets("7").Visible = xlSheetVisible '.Application.Sheets("8").Visible = xlSheetVisible '.Application.Sheets("9").Visible = xlSheetVisible '.Application.Sheets("10").Visible = xlSheetVisible Me.Hide Application.Visible = True MYSH.Cells(DADA, 1).Value = Me.TextBox1.Text Sheets("0").Activate MsgBox "Úáì ÈÑßÉ Çááå", vbOKOnly, "ÇáÊÑÍÍÈ" ElseIf ComboBox2.Value = "USER" Then .Visible = xlSheetVeryHidden .Application.Sheets("DATA").Visible = xlSheetVeryHidden '.Application.Sheets("CONTROL").Visible = xlSheetVeryHidden '.Application.Sheets("0").Visible = xlSheetVisible '.Application.Sheets("1").Visible = xlSheetVeryHidden '.Application.Sheets("2").Visible = xlSheetVeryHidden '.Application.Sheets("3").Visible = xlSheetVeryHidden '.Application.Sheets("4").Visible = xlSheetVeryHidden '.Application.Sheets("5").Visible = xlSheetVeryHidden '.Application.Sheets("6").Visible = xlSheetVeryHidden '.Application.Sheets("7").Visible = xlSheetVeryHidden '.Application.Sheets("8").Visible = xlSheetVeryHidden '.Application.Sheets("9").Visible = xlSheetVeryHidden '.Application.Sheets("10").Visible = xlSheetVeryHidden Me.Hide Application.Visible = True MYSH.Cells(DADA, 1).Value = Me.TextBox1.Text Sheets("0").Activate MsgBox "Úáì ÈÑßÉ Çááå ", vbOKOnly, "ÇáÊÑÍÍÈ" End If End If End If End With End If 1 End Sub حيث سيتمكن المستخدم العادى من روئية الورقة رقم صفر فقط و الادمن سيرى جميع الاوراق فى هذة الحالة سأكون شاكر توضيحك بس لى طلب عملت انا شاشتان واحدة للمستخدم العادى و الاخرى للادمن عايز اخلى لما يفتح البرنامج ويدخل المستخدم لية كأدمن تظهر الشاشة بتاعتة و منها يمكن رؤئية الشاشة التانية او الشاشات الاخرى و يمكنة روئية الشيت عن طريق زرار و لما يفتح البرنامج كمستخدم عادى يظهر شاشة اليوزر بس بدون اظهار الشاشة التانية او اى شاشات اخرى او ملف الاكسل او البرنامج .......... ارجوا ان اكون قد اوضحت فكرتى لكم لك رسالة بالمراسلات ارجوا الاجابة عليها و لكم جزيل الشكر تم تعديل نوفمبر 3, 2011 بواسطه mody_mhashem رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر نوفمبر 8, 2011 مشاركة قام بنشر نوفمبر 8, 2011 أستاذي موضوع رائئع وشرح دقيق وبسيط رابط هذا التعليق شارك More sharing options...
mostafa albatrawy قام بنشر نوفمبر 9, 2011 مشاركة قام بنشر نوفمبر 9, 2011 استاذ احمد تقبل تحياتى على مجهودك الرائع وجزاك الله كل خير عنا وكل عام وانتم بخير ارجوا منك المساعدة فى طلبى وسؤالى الموجود على المنتدى وهو بعنوان كيق يتم الربط بين مجموعة من ال sheets فى ورقة عمل واحدة وذلك لان السؤال هام جدا بالنسبة لى ارجو المساعدة وشكرا رابط هذا التعليق شارك More sharing options...
احمد حمور-ابوعبدالله قام بنشر نوفمبر 11, 2011 الكاتب مشاركة قام بنشر نوفمبر 11, 2011 اخي طارق بارك الله فيك وشكرا على شعورك الطيب اخي مصطفى جدد ارسال رابط الموضوع الذي تريده باختيار عباره للرفع حتى يشاهد الكثير للمساعد ولا باس ان ترسل الرابط هنا حتى اتتبع موضوعك اخي مودي ماقمت به من تعديل دقيق وصحيح ولكن يجب عليك السماح بتنفيذ الكود وذلك بازالة اشاره ' اما عن طلبك الاخر فانا بصدد عمل شاشه متوسعه جدا وبها صلاحيات متنوعه وبطريقه عصريه ولكني ساحتاج الى بعض الوقت رابط هذا التعليق شارك More sharing options...
mostafa albatrawy قام بنشر نوفمبر 12, 2011 مشاركة قام بنشر نوفمبر 12, 2011 اخى احمد تم تنشيط الرسالة وارجو منكم المساعدة رابط هذا التعليق شارك More sharing options...
مجيد02 قام بنشر فبراير 4, 2012 مشاركة قام بنشر فبراير 4, 2012 انا اول مرة اكتب في هذا المنتدى وانا في حاجة لتعلم منكم اكثر كما انا في الى برمجة في الإكسال اخي خبير هل تساعدني رابط هذا التعليق شارك More sharing options...
سعيد حمدى قام بنشر مايو 30, 2012 مشاركة قام بنشر مايو 30, 2012 الاخ العزيز ابو عبدالله تحيه منى اليك على مجهودكم الوافر والرائع فجزاك الله خيرا عنا فلى سؤال هل يمكن اضافه صلاحيه الطباعه على البرنامج ولكم منى جزيل الشكر رابط هذا التعليق شارك More sharing options...
أحمد السيد قام بنشر يناير 3, 2013 مشاركة قام بنشر يناير 3, 2013 اكثر من مبدع ما شاء الله ربنا يبارك فيك يا رب رابط هذا التعليق شارك More sharing options...
MSG قام بنشر أكتوبر 26, 2013 مشاركة قام بنشر أكتوبر 26, 2013 بارك الله فيك و جعل هذا العمل الرائع في ميزان حسناتك و أثابك به الخير في الدنيا و الآخرة رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر مايو 16, 2014 مشاركة قام بنشر مايو 16, 2014 شكرا جزيلا وبارك الله فيك تعلمت منك الكثير استاذنا الفاضل رابط هذا التعليق شارك More sharing options...
غزوان قام بنشر مايو 17, 2014 مشاركة قام بنشر مايو 17, 2014 شكرا جزيلا وبارك الله فيك رابط هذا التعليق شارك More sharing options...
سعد الفقير قام بنشر سبتمبر 18, 2014 مشاركة قام بنشر سبتمبر 18, 2014 اخي احمد عند اضافة مستخدم جديد لا يمكن الدخول الى ورقة العمل. رابط هذا التعليق شارك More sharing options...
هانى حرحش قام بنشر يناير 9, 2015 مشاركة قام بنشر يناير 9, 2015 عمل جيد جاري التحميل والتجربة رابط هذا التعليق شارك More sharing options...
وليد زقزوق قام بنشر يناير 10, 2015 مشاركة قام بنشر يناير 10, 2015 رائع رابط هذا التعليق شارك More sharing options...
حليم ناصر قام بنشر يناير 11, 2015 مشاركة قام بنشر يناير 11, 2015 جزاك الله خيرا و بارك الله فيك رابط هذا التعليق شارك More sharing options...
ابو عبدالله ماجد عبدالله ابوبادي قام بنشر فبراير 17, 2015 مشاركة قام بنشر فبراير 17, 2015 File not found للاسف الشديد هذا ما ظهر عند الدخول إلى الرابيد شير رابط هذا التعليق شارك More sharing options...
تعليموه قام بنشر يونيو 20, 2015 مشاركة قام بنشر يونيو 20, 2015 بارك الله فيك وجزاك الله خيرا رابط هذا التعليق شارك More sharing options...
antar choaib قام بنشر مارس 19, 2016 مشاركة قام بنشر مارس 19, 2016 بارك الله فيك ماشاء الله اكثر من رائع رابط هذا التعليق شارك More sharing options...
esawy قام بنشر ديسمبر 24, 2017 مشاركة قام بنشر ديسمبر 24, 2017 (معدل) الشكر الوفير ... للرجل القدير ... ثقل ميزان حسناتك ... وشملك برعايته البصير تم تعديل ديسمبر 24, 2017 بواسطه esawy رابط هذا التعليق شارك More sharing options...
الردود الموصى بها