اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ملف به (شاشة دخول بسيطه) ومنها الى شاشة صلاحيات متطوره


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

السلام عليكم

الاستاذ القدير احمد حمور

عمل رائع ومتقن كما عودتنا

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

تقبل مروري

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

السلام عليكم

الاستاذ القدير احمد حمور

عمل رائع ومتقن كما عودتنا

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

اخي الحبيب الحسامي

انت استاذنا وما نفعله هنا ماهو الا قليل مما تملك

الله ينور دربك ويرزقك

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

اخي الكريم

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

وبارك الله فيك على ردك الجميل

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

الاخوه الكرام

الاضافة التاليه مهمه, كونها تخص ظهور الرسائل التحذيريه بشكل دقيق وصحيح

الرجاء حذف الكود السابق في زر امر save الموجود في userform3

واستبداله بالكود التالي


Private Sub CommandButton2_Click()

  Dim ahmad As String, HAMOOR As Worksheet

	On Error GoTo 1

	   ahmad = TextBox1.Value

		  Set HAMOOR = Sheets("CONTROL")

			 With HAMOOR

			   If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or _

					 TextBox4.Text = "" Or ComboBox1.Value = "" Then

						MsgBox "You have to fill all data", 16, "Attetion"

						   ComboBox1.SetFocus


'======================================================================

	 ElseIf TextBox2.Text <> .Range(ahmad).Offset(0, 1).Value Then

	   MsgBox " The old password does not match", 16, "Attention"

		 TextBox2.Text = ""

		   TextBox2.SetFocus


'======================================================================

	ElseIf TextBox3.Text <> TextBox4.Text Then

	   MsgBox " The new password does not correct", 16, "Attention"

		  TextBox3.Text = ""

			TextBox4.Text = ""

'======================================================================

	 Else

		   Application.Range(ahmad).Activate

			  .Range(ahmad).Offset(0, 1).Value = TextBox3.Text

				 MsgBox "Editing password done succesfully", vbOKOnly, "editing msg"

				  TextBox1.Text = ""

					TextBox2.Text = ""

					  TextBox3.Text = ""

						TextBox4.Text = ""

						  ComboBox1.Value = ""

							ComboBox1.SetFocus

  '======================================================================

  End If

	 End With

1 End Sub

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

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

أستاذنا الحبيب / ابو عبد الله

تحيه طيبه

مرفق نفس الملف وقد قمت باضافة بعض التعديلات عليه مثل اضافة ايقونه " Change Password" الى صفحة الصلاحيات وقد لاحظت انه فور اغلاق الفورم يتم ازالة الاختيار المقابل لها او انها لم تفعل . ارجو المساعدة وفي حالة اضافة اقونات خاصة بصفحات اخرى الى الفورم الخاص بصلاحيات المستخدمين فأي الاكواد اقوم بالتعديل عليها

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

Cheque program.rar

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

اخي السيد عبدالفتاح

لا اوافقك الرأي بحكر تغيير الرقم السري للمستخدمين

لانه حق لكل مستخدم ولا يجب ان يكون بصلاحيات

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

داخل USERFORM2

وفي حدث LISTBOX


Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

اضف نفس البيانات التاليه

If .Range(ahmad).Offset(0, 13).Value = "Y" Then

				  UserForm1.CheckBox10.Value = True

				  ElseIf .Range(ahmad).Offset(0, 13).Value = "N" Then

				  UserForm1.CheckBox10.Value = False

			  End If

		   '===================================================================

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

الموضوع بسيط جدا

وتستطيع اضافة كمية الصفحات التي تريدها

وبنفس التعديلات التي اجريتها انت وانا

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

اخي السيد عبدالفتاح

تفضل المرفق

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

اعتذر عن الكود الموجود في المشاركه رقم 26

واستبدله بالكود التالي


Application.Quit

Application.DisplayAlerts = False

Cheque program edit2.rar

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

أخانا العزيز / أبو عبد الله

تحيه طيبة

ماذا لو أحببت أن أقوم بعمل ملف Login جديد للممستخدمين في ملف اكسيل جديد فكيف يتم ذلك او على الاقل ارجو افادتى بالاكواد الخاصة بذلك وكيفية تنفيذ ذلك بالتفصيل ... لو سمحت مع الشرح

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

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

اخي العزيز

ملفي في الاصل جديد ولا يوجد به داتا فهو يفي بالغرض انشاء الله

اما عن موضوع الاكواد فهي نفسها الموجوده بالملف وتستطيع ان تضيف بكل بساطه

ولكن المطلوب منك قراءة الاكواد بشكل جيد وستجد ان الموضوع بسيط وتستطيع ان تلعب بها كما تشاء

بخصوص الشرح اعذرني لانني لا استطيع حاليا

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

أستاذي الحبيب / أبو عبد الله

لقد سعدت جدا لاهتمامك وشكرا جزيلا وسوف أقوم بقراءة الاكواد كما تفضلت ولكني كنت اود ان ترشدني الى الكود المختص بذلك واين اجده

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

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

ايها العضو الجديد

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

نظرا لعدم فهمي بما تقصده في تعليقك على الموضوع

فاسمح لي ان افترض حسن النيه واقول لك

حياك الله واهلا وسهلا بك

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

  • 2 months later...
  • 3 weeks later...
  • 4 weeks later...

موضوع اكثر من رائع اريد كود يقوم بفتح الفورم دون ان يفتح برنامج الاكسل في مجال حدا يعمله على فورم بسيط حتى يتم تطبيقه على برنامج ويستفيذ منه الاخوة اريد كود فقط الذي يفتح الفورم دون ان يفتح الاكسل كاملاً

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

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

أخي وأستاذي أبو عبد الله

ماهو كود إظهار تاريخ دخول المستخدمين الموجود في صفحة (Data) لإنني صراحة لم أعرفه

فلو سمحت لي أن تظهره لي

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

والسلام عليكم

أخوكم أنس دروبي

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

السلام عليكم

اشكر الجميع على المشاعر الطيبه الجميله

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

الاخ انس الدروبي

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

انا بصراحه لم افهم ان كان هذا ما تقصده

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

فهو موجود في تكست بوكس

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information