احمد حمور-ابوعبدالله قام بنشر أكتوبر 31, 2011 الكاتب قام بنشر أكتوبر 31, 2011 اخي وحبيبي ابو عبدالله ( الجزيره) بارك الله فيك على هذه الكلمات الجميله ============================================ اخي الكريم وائل هل اطلعت على المشاركه رقم 2 او رقم 9 ؟؟؟؟؟؟؟؟؟؟؟؟ ستجد الملف بالمشاركه 2 بدون الشرح اما بالمشاركه رقم 9 ستجدها مع الشرح ================================================= اخي مودي الموضوع بسيط جدا ولكن يجب عليك الدخول الى صفحة الاكواد واضافة الصفحات الجديده التي لديك ومن ثم التعامل مها يعني بالبلدي مينفعش تعملها من غير كده لاني مفصل الملف على ثلاث صفحات وهي محدده باسماءها فلا اعلم مامدى درايتك بالاكواد هل تستطيع عملها ام لا فان كان نعم فهذا خير وبركه وان كان لا يمكنك ارسال الملف والتعديل عليه من قبلنا
احمد حمور-ابوعبدالله قام بنشر نوفمبر 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
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
mostafa albatrawy قام بنشر نوفمبر 9, 2011 قام بنشر نوفمبر 9, 2011 استاذ احمد تقبل تحياتى على مجهودك الرائع وجزاك الله كل خير عنا وكل عام وانتم بخير ارجوا منك المساعدة فى طلبى وسؤالى الموجود على المنتدى وهو بعنوان كيق يتم الربط بين مجموعة من ال sheets فى ورقة عمل واحدة وذلك لان السؤال هام جدا بالنسبة لى ارجو المساعدة وشكرا
احمد حمور-ابوعبدالله قام بنشر نوفمبر 11, 2011 الكاتب قام بنشر نوفمبر 11, 2011 اخي طارق بارك الله فيك وشكرا على شعورك الطيب اخي مصطفى جدد ارسال رابط الموضوع الذي تريده باختيار عباره للرفع حتى يشاهد الكثير للمساعد ولا باس ان ترسل الرابط هنا حتى اتتبع موضوعك اخي مودي ماقمت به من تعديل دقيق وصحيح ولكن يجب عليك السماح بتنفيذ الكود وذلك بازالة اشاره ' اما عن طلبك الاخر فانا بصدد عمل شاشه متوسعه جدا وبها صلاحيات متنوعه وبطريقه عصريه ولكني ساحتاج الى بعض الوقت
mostafa albatrawy قام بنشر نوفمبر 12, 2011 قام بنشر نوفمبر 12, 2011 اخى احمد تم تنشيط الرسالة وارجو منكم المساعدة
مجيد02 قام بنشر فبراير 4, 2012 قام بنشر فبراير 4, 2012 انا اول مرة اكتب في هذا المنتدى وانا في حاجة لتعلم منكم اكثر كما انا في الى برمجة في الإكسال اخي خبير هل تساعدني
سعيد حمدى قام بنشر مايو 30, 2012 قام بنشر مايو 30, 2012 الاخ العزيز ابو عبدالله تحيه منى اليك على مجهودكم الوافر والرائع فجزاك الله خيرا عنا فلى سؤال هل يمكن اضافه صلاحيه الطباعه على البرنامج ولكم منى جزيل الشكر
أحمد السيد قام بنشر يناير 3, 2013 قام بنشر يناير 3, 2013 اكثر من مبدع ما شاء الله ربنا يبارك فيك يا رب
MSG قام بنشر أكتوبر 26, 2013 قام بنشر أكتوبر 26, 2013 بارك الله فيك و جعل هذا العمل الرائع في ميزان حسناتك و أثابك به الخير في الدنيا و الآخرة
علي المصري قام بنشر مايو 16, 2014 قام بنشر مايو 16, 2014 شكرا جزيلا وبارك الله فيك تعلمت منك الكثير استاذنا الفاضل
سعد الفقير قام بنشر سبتمبر 18, 2014 قام بنشر سبتمبر 18, 2014 اخي احمد عند اضافة مستخدم جديد لا يمكن الدخول الى ورقة العمل.
ابو عبدالله ماجد عبدالله ابوبادي قام بنشر فبراير 17, 2015 قام بنشر فبراير 17, 2015 File not found للاسف الشديد هذا ما ظهر عند الدخول إلى الرابيد شير
esawy قام بنشر ديسمبر 24, 2017 قام بنشر ديسمبر 24, 2017 (معدل) الشكر الوفير ... للرجل القدير ... ثقل ميزان حسناتك ... وشملك برعايته البصير تم تعديل ديسمبر 24, 2017 بواسطه esawy
الردود الموصى بها