اذهب الي المحتوي
أوفيسنا

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


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

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

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

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

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

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

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

اخي مودي

يعني لاحظ الاكواد التي باللون الاخضر وهي مثال لاضافة صفحتين جديدتين باسم 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

رابط هذا التعليق
شارك

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

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

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


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

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

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

ارجوا ان اكون قد اوضحت فكرتى لكم

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

و لكم جزيل الشكر

تم تعديل بواسطه mody_mhashem
رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

اخي طارق

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

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

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

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

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

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

رابط هذا التعليق
شارك

  • 2 months later...
  • 3 months later...
  • 7 months later...
  • 9 months later...
  • 6 months later...
  • 4 months later...
  • 3 months later...
  • 1 month later...
  • 4 months later...
  • 8 months later...
  • 1 year later...
زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information