مساعدة في ادخال اسم المستخدم و كلمة المرور

[يونس م]

السلام عليكم

في ملف اكسل اريد عند فتح الملف تظهر الورقة التي تطلب  ادخال اسم المستخدم و كلمة المرور

وبالضغط على دخول يتم الانتقال الى اوراق العمل

وشكرا

[حمادة عمر]

السلام عليكم

الاخ الكريم /   يونس م

 

برجاء الاطلاع علي الرابط التالي عله يفيد باذن الله

 

http://www.officena.net/ib/index.php?showtopic=45232

 

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

[يونس م]

وهو كذلك جاري مشاهدة الموضوع

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

[يونس م]

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

بالاضافة الى اني لا اريد الفورم الخاص بالفيجوال

انا اريد الفورم من خلايا الاكسل فقط

ويبقى الاكواد الرجاء كتابتها هنا او في ملف

واجركم على الله

يوجد ملف مرفق به ما اريد

ملفي المرفق.rar

تم تعديل فبراير 2, 2013 بواسطه يونس م

[يونس م]

هل من مساعدة ؟

[يونس م]

هل من مساعدة ؟

[إبراهيم محمد]

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

يرجى الاطلاع على هذا الرابط

http://www.officena.net/ib/index.php?showtopic=45248

[يونس م]

شكرا على المساعدة

انا اريد عند فتح الاكسل تظهر الواجهة التي تطلب الرقم السري وكلمة المرور

[إبراهيم محمد]

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

ملفي المرفق-1.rar

 

 

[يونس م]

احسنت اخي الفاضل

يبقى ان انسق كلمة المرور واسم المستخدم

يعني لون الخط والحجم اذا امكن

[إبراهيم محمد]

ان شاء الله مساء اليوم ساعمل عليه عند عودتي من العمل باذن الله

[يونس م]

شكرا لك

في انتظار ذلك

وفي انتظار مساعدة الاصدقاء

[إبراهيم محمد]

تفضل اخي هذا  المرفق 

واى شىء نحن مع فى الخدمه 

ملفي المرفق-2.rar

 

[حمادة عمر]

السلام عليكم

الاخ الكريم /   himass

 

مجهود كبير ومشاركات فعالة

وردودك جميلة

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

[يونس م]

himass واش يحكي الواحد

هذا ابداع بمعنى الكلمة

هذا ما كنت اريد بالتحديد

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

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

حتى نستفيد ولعلمكم انا من احد مستخدمي الاكسل كثيرا

واتمنى ان اكون واحد منكم

[إبراهيم محمد]

الاخ العزيز / يونس م  

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

 

الاخ الفاضل / حمادة عمر 

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

 

 وبالنسبه لشرح الكود  

هذا الكود يتم تنفيذة عند فتح الملف
Sub opnen1()
Dim us1 As Variant        ' متغير لحفظ اسم المستخدم
Dim pas1 As Integer      ' متغير لحفظ كلمه السر
Dim i As Integer  متغير للتعبير عن رقم صفحات المستند
us1 = "احمد" متغير لتخزين اسم المستخدم
pas1 = "1234" متغير لتخزين كلمه السر
Application.ScreenUpdating = False  كود لمنع اهتزاز الشاشه اثناء تنفيذ المراحل القادمه
هذا الكود للتحقق من ان كلمه السر واسم المستخدم مطابقه لما هو مخزن فى المتغيرات السابقه
If ورقة1.TextBox1 = us1 And ورقة1.TextBox2 = pas1 Then
هذا الكود لفك حمايه المستند
ActiveWorkbook.Unprotect
هذا الكود لفك حمايه الورقه
ActiveSheet.Unprotect
هذا الكود لاظهار الصفحات المخفيه
For i = 2 To Sheets.Count
Sheets(i).Visible = xlSheetVisible
Next i
تحديد صحه رقم 1 لتكون الفعاله
Sheet1.Activate
لمسح البيانات من التيكست بوكس
ورقة1.TextBox1 = ""
ورقة1.TextBox2 = ""
لاخفاء الورقه الاولى 
ورقة1.Visible = xlSheetVeryHidden
وفى حاله عدم تحقق الشرط من صحه بيانات اسم المستخدم وكلمه المرور
Else
تظهر هذة الرساله

 

MsgBox "كلمه السر  او اسم المستخدم غير صحيح  حاول مرة اخرى "
ورقة1.TextBox1 = ""
ورقة1.TextBox2 = ""
'ورقة1.TextBox1.Select
End If
لاعادة تفعيل تحديث الشاشه
Application.ScreenUpdating = True
End Sub

وهذا الكود يتم تنفيذة قبل اغلاق المستند
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Application.DisplayAlerts = False لايقاف الرسائل التحذيريه
ورقة1.Visible = xlSheetVisible  لاظهار الصفحه الاولى  التى بها البيانات
Sheets("ورقة1").Activate لجعلها صفحه مفعله لتكون هى صفحه البدايه
Dim i As Integer  كود تكرارى لاخفاء جميع الصفحات الاخرى فى المستند
For i = 2 To Sheets.Count
Sheets(i).Visible = xlSheetVeryHidden
Next i
ActiveWorkbook.Protect تفعيل الحمايه على المستند
ActiveSheet.Protect تفعيل الحمايه على الصفحه الفعاله
Application.ScreenUpdating = True
End Sub