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

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

الاخوه الاعزاء

الرجاء وضع الكود التالي في زر امر CLOSE التابع لUSERFORM4

Application.EnableCancelKey = xlDisabled

Application.Quit

[الحسامي]

السلام عليكم

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

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

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

تقبل مروري

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

السلام عليكم

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

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

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

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

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

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

[ريان أحمد]

والله مهما قلت ومهما قلت لا أوافيك حقك في الشكر والتقدير

أستاذي فعلا ملف غاية في الدقة والتصميم الجميل تشكر وجزاك الله كل خير

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

اخي الكريم

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

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

تم تعديل نوفمبر 24, 2011 بواسطه احمد حمور-ابوعبدالله

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

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

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

الرجاء حذف الكود السابق في زر امر 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

تم تعديل نوفمبر 25, 2011 بواسطه احمد حمور-ابوعبدالله

[معتصم محمد]

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

عمل متقن كالعادة

بارك الله فيك، وجعله في ميزان حساناتك

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

اخي معتصم

بارك الله فيك

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

[السيد عبد الفتاح]

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

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

تحيه طيبه

مرفق نفس الملف وقد قمت باضافة بعض التعديلات عليه مثل اضافة ايقونه " 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

تم تعديل نوفمبر 28, 2011 بواسطه احمد حمور-ابوعبدالله

[السيد عبد الفتاح]

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

تحيه طيبة

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

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

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

اخي العزيز

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

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

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

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

[السيد عبد الفتاح]

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

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

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

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

اخي العزيز

انا الذي لم افهم ما الذي تريدني ان ارشدك اليه

بصراحه مش فاهم طلبك ابدا

ارجوا المعذره

[ekramy]

11111111111111111111111111111111111111111111111111111111111111111111111111

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

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

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

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

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

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

[مرسي]

هل من الممكن أن أطبق شاشة الدخول السابقة علي ملفي هذا ويكون اسم المستخدم هو الله وكلمة السر هي الله

خاف ربك

كيف اسم المستخدم هو الله .... اللهم ارحمنا

[ahmed saif]

مشكورررررررررررررررر

[ابوجمانة2009]

اذا اردت ان اشكر لك تميزك فلن استطيع الا ان اقول جزاك الله خيرا

[احمد فضيله]

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

اخي الحبيب الاستاذ الكبير / احمد حمور

عمل اكثر من رائع

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

سلمت يداك

[احمد فضيله]

جميل جدا

بارك الله فيك

[hussein chechen]

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

[أنس دروبي]

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

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

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

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

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

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

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

تم تعديل أبريل 8, 2012 بواسطه Creation World

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

السلام عليكم

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

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

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

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

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

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

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