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

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

قام بنشر

[size=4]أستاذى الفاضل

بارك الله فيك وعليك

ولكن لدى تساؤل

كيف يمكن ربط هذا الملف بملفات الاكسل الأخرى التى أريد حمايتها

عذرا فأنا مبتدىء فى ذلك الأمر وهو ضرورى جدا لدى

قام بنشر

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

اخي حاتم

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

اخي سيف

شكرا لك

هي الفكرة تعتمد على وجود اللأكواد داخل الملف

حيث تشتمل على مراحل

1 اخفاء كل اوراق الملف عند اغلاق الملف

2 مطابقة كلمة المرور مع الإسم و الرقم

3 اظهار الأوراق الخاصة باسم المستخدم المحدد

  • 1 month later...
قام بنشر (معدل)

السلام عليكم

جزاك الله كل خير على هذا العمل الجميل

ولكن اخي الكريم اين الملف المرفق الذي يحوي على شرح الاكواد

وشكرا لك

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

السلام عليكم

اخي أحمد زمان

الرجاء اعادة ارفاق الملف الذي يحتوي شرح الاكواد

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

قام بنشر

استاذنا الفاضل احمد يعقوب تحية طيبة لك ولجميع الاعضاء

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

أتمنى أن لا نكون قد أثقلنا عليك بطلبنا

قام بنشر

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

الإخوة الأفاضل Nicola و امان

نزلت الملف

ومحتاج انا ارجع اتذكر خطواته و اعمله شرح

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

و انشاء الله اعمله في القريب العاجل

قام بنشر

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

الإخوة الأفاضل Nicola و امان

نزلت الملف

ومحتاج انا ارجع اتذكر خطواته و اعمله شرح

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

و انشاء الله اعمله في القريب العاجل

وعليكم السلام ورحمة الله استاذنا الفاضل

شكر الله لك تجاوبك ومعذور على كل حال استاذنا الفاضل

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

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

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

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

= = = =

بناء على المشاركات التي مرت سابقا

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

مع الشكر له

تم اضافة الفورم هنا وتعديل الملف بناء على ذلك

للدخول

1 - عبدالله 1 - 1

2 - عبدالله 2 - 2

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

فورم_باسوورد_صلاحيات_المستخدمين.zip

قام بنشر

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

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

قام بنشر

جارى تجربة الأكواد للإستفادة منها فى ملف الكنترول المدرسى

الرجاء المساعدة فى إدراج أكواد صلاحيات المستخدمين من الملف الخاص بسيادتكم للملف بتاع الكنترول الموجود هنا بالمرفق

بحيث يكون هناك 3 صلاحيات

1. إدخال البيانات وإستخدام الشيتات التالية: الرئيسية و فصل دراسى أول و فصل دراسى ثانى السجل إنجاز 1 وإنجاز 2 وعملى 1 وعملى 2 وتحريرى 1 وتحريرى 2 ( صلاحية مستوى 1 منخفضة )

2. إستخدام الشيتات التالية شهادات 1 وشهادات 2 ونتيجة 1 ونتيجة 2 بالإضافة للشيتات بالمستوى السابق( صلاحية مستوى 2 متوسطة )

3. إستخدام كل شيتات الملف (صلاحية مستوى 3 لها كل الصلاحيات )

هذا الملف المطلوب توزيع الصلاحيات على شيتاته

برنامج الكنترول - Copy.rar

الف شكر مقدماً

قام بنشر

السلام عليكم

 [size="3"][font="Times New Roman"]Private Sub UserForm_Activate()[/font][/size]


[size="3"][font="Times New Roman"]	ActiveWorkbook.Unprotect[/font][/size]


[size="3"][font="Times New Roman"]Sheets(1).Visible = True[/font][/size]


[size="3"][font="Times New Roman"]Sheets(1).Activate[/font][/size]


[size="3"][font="Times New Roman"]Rows("1:33").Hidden = False[/font][/size]


[size="3"][font="Times New Roman"]For sht = 2 To Sheets.Count[/font][/size]


[size="3"][font="Times New Roman"]If Sheets(sht).Visible = True Then[/font][/size]


[size="3"][font="Times New Roman"]	Sheets(sht).Unprotect[/font][/size]


[size="3"][font="Times New Roman"]'Sheets(sht).Columns("A:BB").Hidden = True[/font][/size]


[size="3"][font="Times New Roman"]Sheets(sht).Visible = xlVeryHidden[/font][/size]


[size="3"][font="Times New Roman"]End If[/font][/size]


[size="3"][font="Times New Roman"]Next sht[/font][/size]


[size="3"][font="Times New Roman"]	ActiveWorkbook.Protect[/font][/size]


[size="3"][font="Times New Roman"]	ActiveWorkbook.Save[/font][/size]


[font="Times New Roman"][size="3"] [/size][/font]


End Sub

مزيد من الشرح على الرابط

شرح الأخ عماد - اضغط هنا

شرح كوداخفاءاوراق العمل.rar

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information