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

[DBA.Oracle]

بروجكت اكسل لأكثر من مستخدم

ولكن كل مستخدم له صلاحية معينة

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

المشكلة ليست هنا

المشكلة فى التحكم بالاكونتات الموجودة

التعديل - الحذف - الاضافة

الاضافة ليس بها مشكلة

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

اما خاصية التعديل

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

مثلا مستخدم معه صلاحية دخول للموظفين والعملاء

اردت ان احذف منه العملاء واضيف له المصروفات

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

الكود اصبح اكبر من استيعابي بصراحة

فبرجاء من اساتذة وخبراء المنتدي المساعدة فى هذا التعديل ومرفق ملف به مثال بالمطلوب

وسؤال اخير

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

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

Accounts.rar

[DBA.Oracle]

هو بالنسبة لتفعيل خاصية الحماية عند دخول مستخدم معين وتسري الحماية علي كل الصفحات بكلمة مرور حتي لا يستطيع تعديل البيانات حتبقى بناء علي خلية Active_user بتحتوي علي اسم اليوزر الحالي

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

dim wks as worksheet

for each wks in thisworkbook

wks.protect

password = "123"

wks.unprotect = password

بس ناقص الكود السليم لانى لم اتمكن من عمله

ولا هناك فكرة افضل ؟

تم تعديل أبريل 26, 2010 بواسطه DBA.Oracle

[يوسف عطا]

الموضوع المذكور مهم جداً

نرجو من الخبراء الإهتمام به

ويا حبذا لو تفضل أحد الخبراء مشكوراً بشرح طريقة عمل الكود سطر سطر

لكى نتمكن من تعديل قاعدة المستخدمين وصلاحياتهم

الف شكر

[DBA.Oracle]

UP