(ملف جاهز) شاشة دخول بوظائف عديده وبصلاحيات لكل مستخدم

احمد حمور-ابوعبدالله · أكتوبر 31, 2011

اخي وحبيبي ابو عبدالله ( الجزيره)

بارك الله فيك على هذه الكلمات الجميله

============================================

اخي الكريم وائل

هل اطلعت على المشاركه رقم 2 او رقم 9 ؟؟؟؟؟؟؟؟؟؟؟؟

ستجد الملف بالمشاركه 2 بدون الشرح اما بالمشاركه رقم 9 ستجدها مع الشرح

=================================================

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

يعني بالبلدي مينفعش تعملها من غير كده لاني مفصل الملف على ثلاث صفحات وهي محدده باسماءها

فلا اعلم مامدى درايتك بالاكواد هل تستطيع عملها ام لا

فان كان نعم فهذا خير وبركه

وان كان لا يمكنك ارسال الملف والتعديل عليه من قبلنا

احمد حمور-ابوعبدالله · نوفمبر 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

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

اخى العزيز احمد حمور-ابوعبدالله

هل تقصد ان الكود سيصبح هكذا


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

**ريان أحمد** · نوفمبر 8, 2011

أستاذي موضوع رائئع وشرح دقيق وبسيط

mostafa albatrawy · نوفمبر 9, 2011

استاذ احمد تقبل تحياتى على مجهودك الرائع وجزاك الله كل خير عنا وكل عام وانتم بخير

ارجوا منك المساعدة فى طلبى وسؤالى الموجود على المنتدى وهو بعنوان

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

احمد حمور-ابوعبدالله · نوفمبر 11, 2011

اخي طارق

بارك الله فيك وشكرا على شعورك الطيب

اخي مصطفى جدد ارسال رابط الموضوع الذي تريده باختيار عباره للرفع حتى يشاهد الكثير للمساعد

ولا باس ان ترسل الرابط هنا حتى اتتبع موضوعك

اخي مودي ماقمت به من تعديل دقيق وصحيح ولكن يجب عليك السماح بتنفيذ الكود وذلك بازالة اشاره '

اما عن طلبك الاخر فانا بصدد عمل شاشه متوسعه جدا وبها صلاحيات متنوعه وبطريقه عصريه

ولكني ساحتاج الى بعض الوقت

mostafa albatrawy · نوفمبر 12, 2011

اخى احمد تم تنشيط الرسالة وارجو منكم المساعدة

مجيد02 · فبراير 4, 2012

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

سعيد حمدى · مايو 30, 2012

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

فلى سؤال هل يمكن اضافه صلاحيه الطباعه على البرنامج ولكم منى جزيل الشكر

أحمد السيد · يناير 3, 2013

اكثر من مبدع

ما شاء الله

ربنا يبارك فيك يا رب

MSG · أكتوبر 26, 2013

بارك الله فيك و جعل هذا العمل الرائع في ميزان حسناتك و أثابك به الخير في الدنيا و الآخرة

**علي المصري** · مايو 16, 2014

شكرا جزيلا وبارك الله فيك

تعلمت منك الكثير استاذنا الفاضل

غزوان · مايو 17, 2014

شكرا جزيلا وبارك الله فيك

سعد الفقير · سبتمبر 18, 2014

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

هانى حرحش · يناير 9, 2015

عمل جيد جاري التحميل والتجربة

وليد زقزوق · يناير 10, 2015

رائع

حليم ناصر · يناير 11, 2015

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

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

فبراير 17, 2015

File not found

للاسف الشديد هذا ما ظهر عند الدخول إلى الرابيد شير

تعليموه · يونيو 20, 2015

بارك الله فيك وجزاك الله خيرا

antar choaib · مارس 19, 2016

بارك الله فيك

ماشاء الله اكثر من رائع

esawy · ديسمبر 24, 2017

الشكر الوفير ... للرجل القدير ... ثقل ميزان حسناتك ... وشملك برعايته البصير

تم تعديل ديسمبر 24, 2017 بواسطه esawy

تسجيل الدخول

(ملف جاهز) شاشة دخول بوظائف عديده وبصلاحيات لكل مستخدم

الردود الموصى بها

احمد حمور-ابوعبدالله

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

Popular Posts

احمد حمور-ابوعبدالله

احمد حمور-ابوعبدالله

احمد فضيله

احمد حمور-ابوعبدالله

mody_mhashem

ريان أحمد

mostafa albatrawy

احمد حمور-ابوعبدالله

mostafa albatrawy

مجيد02

سعيد حمدى

أحمد السيد

MSG

علي المصري

غزوان

سعد الفقير

هانى حرحش

وليد زقزوق

حليم ناصر

ابو عبدالله ماجد عبدالله ابوبادي

تعليموه

antar choaib

esawy

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

احمد حمور-ابوعبدالله

احمد حمور-ابوعبدالله

احمد فضيله

تصفح الموقع

تصفح جديد الموقع

Support

Important Information