إبراهيم محمد

بارك الله فيك وجزاك الله خير على كلماتك الطيبه

بسم الله الرحمن الرحيم الاخ الفاضل ابو حنين جزيل الشكر والتقدير لاكتشافك هذة الثغرة فهي فعلا نقطه هامه لذلك قم باستبدال كود اظهار الفورم بالكود التالى Sub Show_F2() If Sheets("My Account").Range("iv1").Value = "الدعم الفني" Then UserForm2.Show Else MsgBox " ليس لديك الصلاحيه " End If End Sub

الاخ الفاضل / محمود الشريف الف شكر على كلامك الطيب وبارك الله فيك

الاخ الكريم / جلال الجمال جزاك الله خيرا على كلاامك الطيب

الاخت الفاضله / ام عبد الله جزاك الله خيرا على كلماتك الطيبه

بسم الله الرحمن الرحيم الاخ الفاضل / ابو حنين تفضل المرفق حيث تم اضافه صفحات ملفك الى برنامج صلاحيات المستخدمين اصدار 3 وهذا هو رابط الشرح له http://www.officena.net/ib/index.php?showtopic=53890 للدخول على البرنامج الدعم الفنى 1111 مستخدم 1 2222 مع فائق الاحترام والتقدير ترقيه2-1.rar

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

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

السلام عليكم ورحمه الله وبركاته مرفق طيه برنامج صلاحيات المستخدمين الإصدار 3 حيث تم زيادة بعض الخصائص به تتيح حريه اكبر في التعامل مع الملف وقبل اى شيء فلولا أساتذة هذا المنتدى العظيم ما كان لهذا البرنامج ان يظهر او يتطور فمنهم وجدت الدعم ومنهم تعلمت ولا زلت طالبا مبتدئا انهل من علمهم الغزير وفقهم الله وبارك في جهدهم وجعله علم صالح ينتفع به --- اللهم امين اسماء الدخول على البرناج الدعم الفنى - كلمه السر 1111 مستخدم 1 - كلمه السر 2222 شرح بسيط للبرنامج وامكانياته وما هو الجديد عليه تعتمد فكرة البرنامج على اضافه عدة مستويات للصلاحيات على الملف فهو كقالب تقوم بادراج الصفحات التي ترغب بادراتها فيه ويتعرف عليها تلقائيا بمجرد إعادة فتح الملف المستخدم باسم الدعم الفني هو الادمن لهذا الملف وقد تم ربط كافه الصلاحيات بالباسورد الخاصه به مستوى الصلاحيه على الصفحه 4 مستويات مشاهدة فقط ---- للاطلاع فقط دون التعديل مخفى ---- لاخفاء الصفحه عن هذا المستخدم مدخل بيانات - لتحديد أعمدة معينه يتم التعديل عليها وباقى المستند غير متاح وذلك من خلال وضع حرف T في اول خليه اعلى العمود كما يابصفحه 2 وجرب الدخول بالمستخدم 1 ستحلاظ ان صفحه واحد للمشاهدة فقط وصفحه 2 تم تحديد صفه مدخل بيانات ويتم التعديل فقط فى الاعمدة التى تعلوها حرف T ويمكنك اخفاء هذا الضف عن اعين المستخدم ويعمل بشكل طبيعي مشاهدة وتعديل -- هي صلاحيات كامله على الصفحه يمكنك تحديد اى من هذه الصلاحيات لكل صفحه منفصله عن الأخرى لكل مستخدم بصورة منفصله وذلك من خلال الاتى في شاشه الدخول ضع الدعم الفني واكتب كلمه السر وهى 1111 ولا تضغط دخول اى ستجد ان ازار تم تفعليها - اضغط على زر تعديل صلاحيات واختار المستخدم من الكومبوبكس وستجد صلاحياته تظهر اسفل منها افتح كل قائمه وحدد الصلاحيه التي ترغبها لكل مستخدم مع مراعاة ان تكون كلها مشاهدة وتعديل للمستخدم الدعم الفنى يظهر اسفل الفورم اربعه اختيارات وهى الجميع مخفى - الجميع مشاهدة وتعديل - الجميع مشاهدة فقط - الجميع مدخل بيانات ( هذه الاختيارات فقط لتساعدك في ملىء صلاحيات الصفحات حيث تختار ما يغلب على الصلاحيه للمستخدم وتقوم بتعديل الاستثناء فقط مع ملاحظه انه لا يتم التفعيل الا بعد الضغط على زر الحفظ وفى حاله الضغط على زر اضافه مستخدم جديد فانه يجب أولا تسجيل الاسم وكلمه السر الافتراضيه والضغط على زر اضافه مستخدم سيفتح فورم إعطاء الصلاحيات ومن ثم تحدد كما بالخطوة السابقه ملحوظه - كلمات السر يجب ان تكون ارقام فقط - حيث وضع هذا الشرط لعدم تعقيد كلمه السر والدخول في حساسيه الحروف واللغه -- وهكذا يظهر زر اخر فيه تعديل بيانات المستخدمين وحيث يمكنك تعديل اسم مستخدم او حذفه من البرنامج كما يمكنك اظهار أسماء المستخدمين وكلمات السر من خلال وضع علامه صح وسيظهر شاشه لادخال كلمه السر وهنا ضع كلمه سر الدعم افنى سيظهر كومبوبكس فيه أسماء المستخدمين وكلمات السر بجانب كل منهم كل هذه الأشياء يتم التعامل معها قبل الدخول على البرنامج من الشاشه الافتتاحيه وبعد الدخول الى البرنامج توجد بعض الخصائص امكانيه تعديل كلمه السر للمستخدم التنقل بين الصفحات من خلال زر التنقل يقوم البرنامج بعمل حفظ تلقائي عند الخروج حتى لو لم تقوم بالحفظ ما هو الجديد في هذا الإصدار زر صلاحيات اضافيه وفيه الخصائص التاليه امكانيه احضار صفحات من خارج الملف وارفاقها امكانيه نسخ الصفحات المضافه وحفظها في ملفات منفصله لكل منها حذف الصفحات من الملف ترتيب الصفحات تصاعديا وتنازليا فك حمايه المستند وتفعيل الحمايه اظهار واخفاء اشرطه الأدوات للاكسيل المثال المرفق : مستخدم 1 بكلمه سر 2222 صلاحياته هي صفحه رقم 1 مشاهده فقط صفحه رقم 2 - مدخل بيانات -- يمكن الكتابه فقط في الاعمدة التي في اعلاها حرف T صفحه رقم 3 مشاهدة وتعديل باقى الصفحات من 4 الى 7 مخفيه عن مستخدم 1 والكل يظهر مع مستخدم الدعم الفني يجب مراعاة ان صفحه MYDATE يجب ان تكون مخفيه عن جميع المستخدمين نظرا لانه يتم تخزين أسماء المستخدمين وكلمات السر والصلاحيات على الصفحات في هذه الصفحه تلاحظ ان يتم تحديد صفحه MYACCOUNT بصفه مخفى ولكنها تظهر مع المستخدم العادى وذلك فقط اذا حددتها مشاهدة وتعديل فانك ستعطى لهذا المستخدم صلاحيه اضافه مستخدم جديد فقط دون باقى صلاحيات الدعم الفني التي تكون في الفورم الرئيسي برنامج صلاحيات المستخدمين اصدار 3.rar

ما شاء الله عليك يا استاذنا ومعلمنا الكبير الاستاذ الفاضل / عبد الله باقشير تحيه من القلب على هذا العمل الرائع والذى يدل على عبقريه وعلم غزير زادك الله منه وفى الحقيقه انا حملت الفورم واستفدت وتعلمت من هذة الاكواد الكثير وتعجز الكلمات عن شكرك واسمح لى استاذى ومعلمي بانى قد اضفت فى كود فتح النموذج بعض التعديل والذى اثق انه لا يرتقي الى مستوى ومهارة هذا النموذج العظيم فقط هو لحل مشكله تعدد ازرار فتح النموذج حسب كل صفحه فان الفكرة هى عمل كومبوبكس فى اى صفحه او نموذج وقمت هنا بوضعها فى صفحه مثال1 ويتم تحميل اسماء الصفحات بها وعند فتح النموذج فانه يقراء اسم الصفحه الموجودة فى الكومبوبكس ويتجه لتحميل بياناتها كما هو معتاد وانا لم اتطرق الى اكواد الفورم ولكن فقط فى كود فتح الفورم ارجو ان لا اكون تجاوزت فاننى مقارنه بعلمك لا زال امامي الكثير والكثير بارك الله فيك ودائما ننتظر منك المزيد ونتعلم منك الكثير Sub kh_Show_UFormChang1() On Error GoTo 1 Dim sh As String sh = Sheets("مثال1").ComboBox1.Value Select Case sh Case Is = "مثال1" With UFormChang .kh_SetAddrss sh, "C10:R10" .kh_SetPicture "PH", "T10" .Show End With Case Else With UFormChang .kh_SetAddrss sh, "C4:P4", "B4" .kh_SetPicture "MyPhoto", "R4" .Show End With End Select 1: If Err Then MsgBox "تاكد من صحة ادخال المتغيرات الاساسية في : " & vbCr & vbCr & "kh_SetAddrss", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "استخدام خاطىء" On Error GoTo 0 End Sub فورم ادخال و تعديل مرن مع الصور.rar

اخي العزيز ان كود الفيجوال بيزيك موجود فى ملف اكسيل ولكن يمكن وضع حمايه خاصه عليه بكلمه سر ولكي تصل اليه ما عليك الا بعد ان تفتح الملف وتدخل كلمه السر التى ذكرتها فى مشاركتك الاولى سوى الضغط على ALT + F11 وعندها ستفتح صفحه الكود وستجد البيانات محجوبه نظرا لوجود كلمه سر اخرى خاصه بها وهى لم تذكرها وغير الكلمه السابقه فهل تعرفها ام لا ارجو ان اكون قد اجبت على سؤوالك وام انك تسأل عن شىء اخر

الاخ العزيز / زاكي بوشلاغم لقد قمت بتحميل الملف ولكن توجد كلمه سر على الفيجوال بيزيك ولكي تدخل عليها بعد ادخالك كلمه السر التى ذكرتها اضغط على ALT + F11 فيدخلك لمكان الكود وستجد انه مطلوب كلمه سر لها فبرجاء ذكرها حتى يمكن التعديل على الكود اما بالنسبه لفك حمايه المستند نفسه فيمكنك مراجعه هذا الرابط وستجد فيه باذن الله ما تريد http://www.officena.net/ib/index.php?showtopic=29972 اما بالنسبه لكيفيه حفاظه على عدم تعديل اسماء الصفحات واسترجاع نفس الاسماء اذا تغيرت فان ذلك يتم من خلال الكود ارجو ان اكون اوضحت الفكرة واى استفسار نتواصل باذن الله

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

الاخ الفاضل zmzm لقد دخلت هذا المنتدى ولم اكن اعرف الا قليل القليل من برمجه الاكسيل وعلى ايدى استاذة هذا المنتدى العريق تعلمت الكثير ولا زالت لم احصل سوى قطرة من بحر علمهم الذى من الله به عليهم يمكنك الاطلاع على هذا الرابط لاحد استاذة هذا المنتدى يشرح فيه دورة عن vba http://www.officena.net/ib/index.php?showtopic=39323

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

السلام عليكم ورحمه الله وبركاته اعتذ عن التاخير فى وضع مثال لتعدد المستخدمين والاستفادة من الحصول على اسم مستخدم الجهاز مرفق مثال يوضح تحديد اسماء بعض مستخدمي الاجهزة وتحديد ما يظهر لكل واحد منهم وفى حاله لم يكن من اى من هؤلاء فانه لا يفتح قمت بتعطيل الكود عند فتح الملف لكي يسهل على اى شخص فتحه ووضع اسم مستخدم جهازة فى الكود وتجربته كما يوجد كود عند الاغلاق يعيد وضع الملف الى وضعه الاصلى وذلك لكي لا تتعارض الصلاحيات فى تنقل الملف بين المستخدمين على اجهزتهم تطبيق 5.rar Private Sub Workbook_Open() Dim US As String US = Environ("username") Select Case US Case Is = "IBRAHIM" 'PUT HERE NAME OF THE USER FOR COMPUTER Sheets("Sheet2").Visible = xlSheetVeryHidden Sheets("sheet5").Visible = xlSheetVeryHidden Sheets("sheet6").Protect ActiveWorkbook.Protect Case Is = "GAMAL" 'PUT HERE NAME OF THE USER FOR COMPUTER Sheets("sheet1").Visible = xlSheetVeryHidden Sheets("sheet3").Visible = xlSheetVeryHidden Sheets("sheet4").Protect ActiveWorkbook.Protect Case Is = "AHMED" 'PUT HERE NAME OF THE USER FOR COMPUTER Sheets("sheet1").Visible = xlSheetVeryHidden Sheets("sheet2").Visible = xlSheetVeryHidden Sheets("sheet3").Visible = xlSheetVeryHidden Sheets("sheet4").Visible = xlSheetVeryHidden Sheets("sheet5").Visible = xlSheetVeryHidden ActiveWorkbook.Protect Case Else MsgBox " هذة النسخه غير مرخصه يرجى مراجعه مسؤول النظام " With Application .DisplayAlerts = False .Quit End With End Select End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim i As Integer ActiveWorkbook.Unprotect For i = 1 To Sheets.Count Sheets(i).Visible = xlSheetVisible Sheets(i).Unprotect Next i ThisWorkbook.Save end sub

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

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

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

السلام عليكم ورحمه الله وبركاته الاستاذ الفاضل / دغيدي اليك نسختين من البرنامج احدهما باسم GAMAL والثانيه فارغه من اول تشغيل سيتم ادراج اسم الجهاز فى او خليه من الصفحه الاولى بعدها لا يفتح الا بتطابق هذا الاسم مع اسم الجهاز التطبيق3 - GAMAL.rar التطبيق3.rar

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

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

الاستاذ الجليل / ابو حنين بارك الله فيك وفى حماسك الجميل فى طرح مثال فورا على الكود وبالفعل هو كود طيب واسمح لى فقد وضعت فكرة اخرى فى موديول بنفس الملف تدور فكرته حول تحديد اسم المستخدم وبناء عليه يظهر صفحات معينه ويخفى اخرى ويكون هذا الحدث عند فتح الملف ولكنى وضعته فى موديول منفصل لسهوله تجربته حيث انك تضع اسم مستخدم الجهاز فى الكود ويقوم بمقارنه هذا الاسم مع اسم المستخدم للجهاز المسجل فى ويندوز وبالتالى فانه يقوم باخفاء صفحات صفحات معينه واذا لم يكن هذا المستخدم فانه يظهر كافه الصفحات وطبعا هذة فكرة مبسطه فقط للتوضح ولكن يمكن استثمارها بصورة افضل دون ان تحتاج لتنظيم صلاحيات منفصله فلو فرضنا مثلا وجود 5 مستخدمين لملف اكسيل معين فيمكنك وضع الملف على الخمس اجهزة وكل منهم سيشاهد صفحات مختلفه بمجرد فتح الملف واذا تم نقل الملف الى اى جهاز اخر بخلاف المستخدمين المحددين فيه فيمكن جعل الملف لا يفتح او يفتح للقراءة فقط او يقوم باخفاء جميع الصفحات او ما ترغب به من اشياء التطبيق2.rar

الاخ الفاضل / احمد فضيله اشكر لك مرورك الكريم وكلماتك الطيبه جزاك الله خيرا

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