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

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

قام بنشر

الاخوة الكرام

أعضاء هذا المنتدي الكبير و الغني بالمعلومات

مرفق ملف شاشة دخول مع كلمة سر و صلاحيات للمستخدمين

امكانية تحديد الصفحة التي يعمل عليها كل مستخدم مع عدم مشاهدة باقي الصفحات

اخفاء الصفحات و اظهارها

 

اسم الدخول

ahmed

كلمة المرور

1234

أسم المرور للمسؤول

khaled

كلمة المرور

1111

ارجوا أن ينال قبولكم

 

 

Login.rar

  • Like 2
قام بنشر

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

قام بنشر

اخي العزيز المشاغب 301

يحب عليك الدخول كمسؤول و ثم اضافة الاوراق المطلوبة و بعدها يتم اضافة أسم الاوراق في المكان المخصص لها

في العامود Q

ثم اذهب للشخص المطلوب و ضع له صلاحية للصفحة الجديدة و اعمل حفظ

ادخل مرة اخري بالشخص المطلوب و سوف تظخر لك الصفحة أن شاء الله

لفتح صفحة المعلومات

Alt F11

اختر الصفحة Login

اعمل لها اظهار

بعد ذلك لا تنسي ان تغلقها مرة اخري

اتمني التوفيق لك

  • Like 2
قام بنشر (معدل)

اخي العزيز المشاغب 301

يحب عليك الدخول كمسؤول و ثم اضافة الاوراق المطلوبة و بعدها يتم اضافة أسم الاوراق في المكان المخصص لها

في العامود Q

ثم اذهب للشخص المطلوب و ضع له صلاحية للصفحة الجديدة و اعمل حفظ

ادخل مرة اخري بالشخص المطلوب و سوف تظخر لك الصفحة أن شاء الله

لفتح صفحة المعلومات

Alt F11

اختر الصفحة Login

اعمل لها اظهار

بعد ذلك لا تنسي ان تغلقها مرة اخري

اتمني التوفيق لك

 

شكرا لك اخي تمت بنجاح ولكن استفسار اخر وهو ان الملف الذي لدي يحتوي على اكثر من 6 ورقات واريد ان اعطي صلاحية لمستخدم معين بدخول ومشاهدة 6 ورقات وانت في الملف الاصلي المرفوع من قبلك لا نقدر ان نعطي صلاحية الا ل 3 ورقات جسب الور المرفقة ادناه

 

 

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

post-112691-0-49976400-1427369597_thumb.

تم تعديل بواسطه المشاغب301
  • Like 1
قام بنشر

اخي العزيز المشاغب 301

اشكرك جداً على اهتمامك و تعليقك

بكل أسف لم اشاهد طلبك سوب منذ لحظات و سوف أثوم بتنفيذ ما ترغب و وضع شرح له

و لكن أعذرني الان لن اتمكن من ذلكبسبب عدم توافر الكهرباء عندي

نحن في غزة تقطع الكهرباء 12 ساعة متواصلة و تأتي من 3-4 ساعات فقط

و بطارية الجهاز ربع عمر 

فور وصول الكهرباء سوف اعمل علي طلبك

اخيرا اتمني لك التوفيق

أخوك خالد مسعود

  • Like 1
قام بنشر

اخي العزيز المشاغب 301

من أجل أضافة صفحات للصلاحيات يتوجب عليك عمل التالي

اضافة عدد من الاعمدة بعدد الصفحات المطلوبة وذلك بالوقوف بالفأرة عند أخر عامود 

لصفحات الصلاحية و من المفترض انة العامود (K) ضع المؤشر على العامود (L) و بالزر الايمن اضف

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

بعد ذلك ادخل الي محرر الاكواد (ALT+F11)

كلمة المرور للكود (////yara)

اذهب الي frmLogin

افتح الاكواد عن طريق الضغط مرتين في أي مكان من Form

اذهب الي الجزء الذس يبدأ بـ

Private Sub cmdCheck_Click()

ثم أذهب للجزء التالي

If user <> "" And Not IsNumeric(user) And Code <> "" And IsNumeric(Code) Then
For Each AName In Sheet2.Range("T8:T108")
'If AName = Code Then 'Use this for passcode text
يتوجب عليك تغيير (T8) الي العامود الجديد الخاص بكلمة المرور للمسؤول علي سبيل المثال لو اضفنا عدد 3 اعمدة سوف تكون علي النحو التالي
(W8:W108)
هذا الجزء خاص بترعيف كلمة السر للمسؤول 
نأتي للخطوة الثانية
اذهب الى الاسفل في محرر الاكواد حتي تصل الي ما يلي
'unhide worksheet for user
If PName.Offset(0, 3) <> "" Then
Set ws3 = Worksheets(PName.Offset(0, 3).Value)
ws3.Visible = True
End If
وهذا الجزء مخصص لتعريف الصفحة المطلوب الصلاحية لها
اعمل نسخ لهذا الجزء و اضافتة بعد كلمة End if
كرر النسخ لعدد الاعمدة
ثم ابداء بتغيير الرقم الموجود في المثال التالي هو للصلاحية رقم 3 ضعها 4 لتكون للصلاحية رقم 4
يجب تغير كل رقم 3 برقم 4 (أي أربع أرقام) (ws3) تحول الي ((ws4)
وهكذا لعدد الصلاحيات المطلوبة
أخر خطوة
اذهب للسطر التالي في محرر الاكواد و سوف تجدة في الاول
(Dim ws As Worksheet, ws2 As Worksheet, ws3 As Worksheet)
هذا لتعريف ان (ws) هي عبارة عن صفحة
اضف (,ws4 As Worksheet) و هكذا لكل صلاحية ايضا
مرفق لك ملف معدل 
أردو أن اكون قد قدمت شئ متواضع لك و ان أكون قد أوفيت لك طلبك
 
=====
 
 
=======
 
  • Like 1
قام بنشر

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

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

هل يمكن طريقة اخرى مثلا :

1- الفكرة الاولى ان يكون هناك مسؤول ومستخدم بحيث المستخدم لايستطيع التعديل او الحذف يستطيع يدخل البيانات فقط

2- الفكرة الثانية ان يكون اسماء الشيتات في عمود واحد وعند اضافة شيت جديد تتم الاضافة الي هذا العمود اسم الشيت الجديد

    وعند اضافة مستخدم من الفورم تفح لك لست بوكس بها جميع الشيتات وبجانبها مربع للتشيك او دائره الاوبشن ويختار المسؤول للمستخدم الجديد الصفحات التي يريد ان يستخدمها بالتأشير

    كأنني شفت قبل عشر سنوات مثل ذلك وفي هذا المنتدى لو احد فاكر او عنده البرنامج يضيفه مشكور.

 

اخيك ابو الحسن والحسين

  • Like 2
قام بنشر

أخي الفاضل أبو الحسن و الحسين   حفظة الله

أخي الفاضل المشاغب 301         حفظة الله

اشكركم و أثمن لكم ردكم و اقتراحكم و هنا لابد أن أقدم أعتذاري عن تأخري في الرد عليكم

و لكن ما يبرر ذلك هو وضع الكهرباء عندنا هنا في قطاع غزة

حيث أن الكهرباء جائت 5 ساعات خلال اليومين الماضين 

مرفق لكم ملف جديد مع ميزات جيدة 

يمكن اضافة أي عدد من الصفحات دون الحاجة الي أي تعديل في الاكواد

اضافة الصلاحيات لعدد 7 صلاحيات عن طريق فورم "يمكن لكم اضافة عدد أخر بالدخول الي الفورم و اضافة العدد المطلوب لكم"

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

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

ملاحظة أول خانة في الفورم يتم وضع أول حرف من اسم المستخدم لترتيب الاسماء حسب الابجدية

أرجو أن ينال اعجابكم و يفي بما تم طلبة

في الختام

أرجو منكم الدعاء لوالدي و الي أخي د.جمال رحمة الله عليهما

 

المرفقات:

+++

FINAL DATA_20.rar

++++

  • Like 1
قام بنشر

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

اخي خالد مشكور وجزاك الله خير

 

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

 

اخيك /

خالد

ابو الحسن والحسين

  • Like 1
قام بنشر (معدل)

الاخوة / أعضاء منتدي أوفسينا              حفظهم الله

مع تحياتي لكم 

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

و اعطاء اي ملاحظات لديكم 

مع الشكر

تم تعديل بواسطه khaled_1960
قام بنشر

السادة / أعضاء منتدي أوفسينا                 حفظهم الله

نتيجة لقيامي بعمل بعض التعديلات على الملف بناء على طلب بعض الاخوة في المنتدي

و قد قمت بعمل هذه التعديلات و بعد مراجعتي للملف ظهرت بعض المشاكل 

بناء علية قمت بتعديلها كاملا وقد عملت على اضافة بعض الميزات التى يمكن لكم الاستفادة منها

في اعمالكم 

اضافة شاشة دخول جديدة بها ميزات جميلة مثل شريط متحرك تتحكم في سرعة الحركة أو توقيفها و العودة لها مرة اخري

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

أرجو أن أكون قد وفقت 

المرفقات:-

-------- :fff: 

 

FINAL DATA_khaled.rar

 

-------- :fff: 

  • Like 1
  • Thanks 1
  • 1 year later...
قام بنشر

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

 

جميل جداً ... الله يعطيك العافيه ويرحم والديك .

 

لاحظت أن أثناء الدخول يوجد وقت لدخول المستخدم ولكن لا يوجد وقت لخروجه .. هل من الممكن إضافة وقت خروجه وماهو الكود ..؟؟

 

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

قام بنشر

أنتظر الرد ... وهي اضافة وقت خروج المستخدم اثناء الضغط على الاخفاء او الخروج (يظهر وقت خروج المستخد بجانب وقت الدخول )..

 

ارجو من صاحب الموضوع المساعده او خبراء المنتدى..

  • 2 years later...
قام بنشر

أخي  الحبيب مهندس خالد جميل ورائع هذا العمل 

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

الى ان هناك رسالة تأتي لي وتقول ان كود LoginForm

  مخفي ولا يعمل

بسبب الانتقال من

Bit 32  الى

Bit 64 

قام بنشر

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

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

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

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

Important Information