البحث في الموقع

بسم الله و ما شاء الله اللَّهُمَّ انْفَعْنَا بِمَا عَلَّمْتَنَا , وَعَلِّمْنَا مَا يَنْفَعُنَا , وَزِدْنَا عِلْمًا إِلَى عِلْمِنَا اهداء لكل من شارك بعلمه اقل ما يقال لكم "عندما تنتهى كلمات الابداع و تبدأ من جديد و تنتهى عندكم" بارك الله لكم ( فكرة المدونة هى سهولة الوصول و البحث فى المنتدى للذهاب الى ملف _ المدونه الاصدار الاول من هنا مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_سلسله تجميعيه فورم شاشة دخول_صلاحيات_PASS WORD نظام حماية لملف الاكسل والدخول للصفحات_ _ أ / رحمه الله _ عماد الحسامى صفحة دخول ديناميكية للمستخدمين - باسلوب جديد وسهل_ _ أ / رحمه الله _ عماد الحسامى هديتي لكم .... برنامج دخول المستخدمين مع صلاحية دخول للصفحات_ _ أ / رحمه الله _ عماد الحسامى بالكود _ اظهار و اخفاء الشيت _ أ / رحمه الله _ عماد الحسامى كيفية تكبير ال userform بعد ظهوره والتحكم بمقاساته _ _ أ / رحمه الله _ عماد الحسامى عمل فورم شفاف وملأ الشاشة وبدون إطار..... _ _ أ / رحمه الله _ عماد الحسامى كود حماية خلايا من التعديل _ _ أ / رحمه الله _ عماد الحسامى كود اخفاء ازرار _ بكلمة سر _ أ / رحمه الله _ عماد الحسامى واجهه جاهزه_شاشة دخول بكلمة سر _ أ / رحمه الله _ عماد الحسامى كود بزر امر اظهار و اخفاء المعادلات _ أ / رحمه الله _ عماد الحسامى و مشاركات الاعضاء كود لاخفاء المعادلات _ أ / رحمه الله _ عماد الحسامى _مشاركات الاعضاء كلمة السر لدخول الصفحات _ أ / عماد الحسامى و مشاركات الاعضاء حمايه الصفوف ارتباطاَ بالتاريخ _ أ / عماد الحسامى عناوين متحركة _ أ / عبدالله باقشير موضوع مميز_اكواد متنوعه لاخفاء المعادلات دون حماية ورقه مشاركات الاعضاء حماية خلايا او نطاق من التعديل مشاركات الاعضاء برنامج صلاحيات المستخدمين الاصدار _3 أ / إبراهيم محمد برنامج صلاحيات المستخدمين - بشكل جديد_ أ / إبراهيم محمد برنامج ادارة صلاحيات المستخدمين - ضاحي وشوقي _ أ / ضاحى الغريب _ شوقى ربيع شاشة دخول برقم سري مع (( ProgressBar Control ))_ أ / ضاحى الغريب فكرة لـ (( ProgressBar Control ))_ أ / ضاحى الغريب قالب فورم ملكي مع تاريخ هجري وميلادي _ أ / ضاحى الغريب هدية العام الجديد لكل اخواني ومعلميني واعضاء منتدانا_ أ / ضاحى الغريب شرح تحويل ملف الاكسل الى exe ثم تغيير الايقونة ثم Setup (شوقي ربيع) _أ / شوقى ربيع حركة جديدة (تجليد الفورم) بابسط الطرق مع اداة Active Skin _أ / شوقى ربيع تشفير كل انواع الملفات _ أ / ياسر العربى فك حماية محرر الاكواد وحماية اوراق العمل _ أ / ياسر العربى فك حماية ملف الاكسيل من الخارج _ أ / ياسر العربى لعمل نهاية لصلاحية الملف وعدم فتحه الا بكلمة مرور _ أ / ياسر العربى أفضل حماية للاكسيل تفوق التحويل الى ملفات تنفيذية 100مرة _ أ / ياسر العربى اختبار مدى حماية الملف التنفيذي للفيجوال6 مع الاكسيل _ أ / ياسر العربى اعمل شاشة دخول برنامجك بنفسك وسيبك من التقليد _ أ / ياسر العربى شرح عمل صلاحيات للدخول على شيتات داخل ملف الاكسيل _ أ / ياسر العربى فك حماية محرر الاكواد Xlsm _ أ / ياسر العربى تشفير وفك تشفير البيانات Encrypt And Decrypt Function _ أ / ياسر خليل أبو البراء كسر حماية محرر الأكواد بدون برامج (قنبلة الموسم) _ أ / ياسر خليل أبو البراء حماية محرر الأكواد من فك الحماية حتى لو عرف الهاكر كلمة السر _ أ / ياسر خليل أبو البراء كسر حماية أوراق العمل (القنبلة الجديدة) _ أ / ياسر خليل أبو البراء كود تحديد نطاق العمل لشيت اكسيل _ أ / ياسر خليل أبو البراء واجهة برنامج ... بطريقة غير تقليدية ..._أ / عبد البارى البنا ملف به (شاشة دخول بسيطه) ومنها الى شاشة صلاحيات متطوره_ أ / احمد حمور-ابوعبدالله (ملف جاهز) شاشة دخول بوظائف عديده وبصلاحيات لكل مستخدم_ أ / احمد حمور-ابوعبدالله شاشة دخول متعددة الوظائف_ الاستاذ / احمد حمور-ابوعبدالله فورم ادخال بسيط بشكل متناسق وشاشة دخول _ أ / وائل احمد المصري حماية نطاق دون حماية الورقة مع إمكانيات أخرى كتعديل كلمة الحماية والنطاق _ أ / أبوعبد الله _ اكسلجى (موضوع مميز) منع فتح الملف إذا غيرت إسمه أو نقلته من موقعه لآخر ومنع حفظه بإسم جديد _ أ / أبوعبد الله _ اكسلجى (موضوع مميز ) فتح الملف بعد انتهاء تاريخ صلاحية الفتح بك� _ أ / أبوعبد الله _ اكسلجى كود_تفعيل خاصية حذف وإخفاء الأوراق _ أ / أبوعبد الله _ اكسلجى كود فك و حماية خلية بها بيانات _ أ / أبوعبد الله _ اكسلجى بالكود_فك و حماية لجميع اوراق العمل _ أ / أبوعبد الله _ اكسلجى كود لتمييز الخلايا المحمية بتلوينها وإلغاء التلوين بمفتاح واحد _ أ / أبوعبد الله _ اكسلجى بالكود_حماية و فك حماية ورقة عمل او عمود او نطاق_عن طريق Check Box _ أ / أبوعبد الله _ اكسلجى _ _ أ / هشام شلبى طريقه فتح الفورم على طريقع فتح الباب يا سمسم - الصقر _ أ / الصـقر مؤثرات حركيه لفتح الفورم مع الحمايه - طريق الشباك - الصقر _ أ / الصـقر تزيين الفورم عند الفتح والاغلاق بمؤثرات حركيه _ أ / الصـقر كيفية إستثناء بعض الخلايا من الحماية _ أ / محمد طاهر التحكم فى مستوي أمان الماكروهات _ أ / محمد طاهر برنامج فك الحماية passware-kit-enterprise _ مشاركة أ / محمد ابو صهيب فك حماية شيتات ملفات الإكسل_ أ / قنديل الصياد طريقة عمل شاشة افتتاحية باسم مستخدم ورقم سري !! خطوة خطوة_ أ / حمادة عمر قوائم بشكل جديد في الاكسيل .... تصلح للاستخدام في برنامجك .. بطريقة بسيطة _ أ / حمادة عمر عمل باسورد لشيت بداخل ملف الاكسيل _ أ / حمادة عمر كود وإضافة لفك حماية أوراق العمل في ملف إكسل Sheet Password Remover _ أ / على الشيخ حماية ملف اكسل من داخل الملف + صلاحيات لكل مستخدم + سجل لأسماء و مواعيد الدخول للملف_ أ / احمد زمان حمايه خلايا مع اخفاء المعادلات بدون حماية الورقه _ أ / احمد فضيله و مشاركات الاعضاء شرح برنامج فك باسورد_ أ / أبو محمد أشرف باسورد بتاريخ محدد_مشاركة_ بدأه أ / ابو اياد ( الاسيوطى ) فورم دخول باسم مستخدم وكلمة مرور وفورم خروج بثلاث خيارات _ بدأه أ / ابو محمد العباس مجرد فكرة ... فورم دخول و حفظ كلمات المرور في رجستري الوندوز _ أ / محمد يحياوى نموذج دخول بصلاحيات الاطلاع على أوراق العمل_ أ / عبدالله المجرب الفورم يملأ الشاشة _ أ / أبو حنين هل أنجزت برنامجا و تريد وضع بصمتك عليه ؟ تفضل فورم جاهز _ أ / أبو حنين ظهور مميز للفورم _ أ / أبو حنين شاشة دخول مع صلاحيات _ أ / khaled_1960 حماية / عدم حماية أوراق العمل بأى عدد من الملفات داخل مجلد _ أ / مختار حسين محمود تنشيط شاشة الحماية أو Activate the scrensaver _ أ / مختار حسين محمود إغلاق آلى لملف اكسل إذا ترك بدون استخدام _ أ / مختار حسين محمود تشغيل ماكرو بكلمة سر أو Enter Password to run a Macro _ أ / مختار حسين محمود حماية اوراق محددة الاسماء ولكل منها باسوورد مختلف _ أ / أبو تامر_عمر الحسينى تعديل كود حماية ورقة ليعمل مع عدة اوراق محددة الاسماء _ أ / أبو تامر_عمر الحسينى شرح استخدام البروجرز بار _ Progress indicator _ أ / أبو تامر_عمر الحسينى موضوع مميز_حماية ملفات عن طريق تشفير الملف _ أ / عمر الحسينى ****أبو تامر فورم (شريط تقدم تثبيت البيانات) جامع للمرونة والسهولة _ أ / أنس دروبي حماية الملف باخذ نسخة مما يحدد و ارجاعها مرة اخرى _ أ / عادل حنفي كود لاخفاء المعادلات _ أ / عادل حنفي فك حماية شيتات ملفات الإكسل بجمع إصداراتها وامتداداتها _ أ / محمد صالح ضع كلمة مرور لاوراق العمل إخفاء وحماية _ أ / Ahmed Emannan فورم اسم مستخدم وكلمة باسوورد _ أ / Ahmed Emannan إلغاء أى حماية لشيت إكسيل بخطوة واحدة م / ياسر فتحى البنا النموذج المتلاشي _ أ // زياد علي شريط متحرك لآخر عملية تتم _ أ / الزباري حماية الشيت بفورم دخول _ أ / الزباري فورم به شريط متحرك _ أ / محمد السيد الشاطر تعلم كيف تضيف خاصيه فقدان كلمة السر واسم المستخدم للبرنامج معا بالشرح خطوه خطوه _ أ / محمد القمجي فورم لطيف_ أ /konafa4000 'طريقة لاغلاق الفورم _ أ /konafa4000 جميع نماذج الحماية لملفات الأكسيل _ أ / محمود_الشريف كود جاهز_ تسجيل الوقت وأسم المستخدم عند فتح الملف _ أ / mehyo27 كود صغير جدا و لكن مفيد جدا_Cells.Locked_تأمين الخلية بعد الكتابة فيها ((تلقائيا)) _ ا / ابو اسامة العينبوسي اضهار واخفاء شيت بناء على قيمة خلية _ مشاركات الاعضاء حماية الملف بالكود _ مشاركات الاعضاء و لا تنسونا من صالح الدعاء و لامى بالمغفره و الرحمه

لدي برنامج صلاحيات المستخدمين وعند ادخال كلمة مرور خطا ثلاث مرات يتم تجميد البرنامج لهذا المستخدم 3 دقائق المطلوب زيادة الوقت الى 15 دقيقة حاولت بتعديل الرقم في سطر الكود الاحمر الثاني ولم اوفق ولم اعرف معنى الرقم0.002118056 Private Sub p1_Click() If Now() - [time] > 0.002118056 And [error_level] = 3 Then [error_level] = 0 End If If IsNull([n3]) Then DoCmd.OpenForm "user1", acNormal Else If [error_level] = 3 Then Ms$ = "تم تجميد الحساب 3 دقائق" Ti$ = "خطا تجميد الحساب" Re = MsgBox(Ms$, 0, Ti$) Else If IsNull([user_name]) Then Ms$ = "لا يوجد مستخدم بهذا الاسم" Ti$ = "خطا اسم المستخدم" Re = MsgBox(Ms$, 0, Ti$) Else If IsNull([n1]) Or IsNull([n2]) Then Ms$ = "اسم المستخد او كلمة السر خطا" Ti$ = "تحذير" Re = MsgBox(Ms$, 0, Ti$) Else If [user_name] = [n1] And [password] = [n2] Then DoCmd.OpenForm "user3", acNormal [error_level] = 0 DoCmd.Close acForm, "user2" Else [error_level] = [error_level] + 1 [time] = Now() Ms$ = "كلمة السر خطا للمرة" & [error_level] Ti$ = "تحذير" Re = MsgBox(Ms$, 0, Ti$) End If End If End If End If End If End Sub

بسم الله و ما شاء الله اهداء لمن قام بكل عمل و لا ينتظر مقابله اقل ما يقال لكم "عندما تنتهى كلمات الابداع عندكم و تبدأ من جديد و تنتهى عندكم" بارك الله لكم مدونة اعمال ايقونات الماس لمنتدى اوفيسنا _ شارك بتعديلاتك فكرة المدونة هى سهولة الوصول و البحث فى المنتدى و لاتغنى عن حلاوة البحث فى المنتدى 1_نظام حماية لملف الاكسل والدخول للصفحات_ الاستاذ / عماد الحسامى 2_صفحة دخول ديناميكية للمستخدمين - باسلوب جديد وسهل_ الاستاذ / عماد الحسامى 3_هديتي لكم .... برنامج دخول المستخدمين مع صلاحية دخول للصفحات_ الاستاذ / عماد الحسامى 4_ملف به (شاشة دخول بسيطه) ومنها الى شاشة صلاحيات متطوره_ الاستاذ / احمد حمور-ابوعبدالله 5_(ملف جاهز) شاشة دخول بوظائف عديده وبصلاحيات لكل مستخدم_ الاستاذ / احمد حمور-ابوعبدالله 6_شاشة دخول متعددة الوظائف_ الاستاذ / احمد حمور-ابوعبدالله 7_شاشة دخول برقم سري مع (( ProgressBar Control ))_ الاستاذ / ضاحى الغريب 8_فكرة لـ (( ProgressBar Control ))_ الاستاذ / ضاحى الغريب 9_هدية العام الجديد لكل اخواني ومعلميني واعضاء منتدانا_ الاستاذ / ضاحى الغريب 10_فك حماية شيتات ملفات الإكسل_ الاستاذ / قنديل الصياد 11_طريقة عمل شاشة افتتاحية باسم مستخدم ورقم سري !! خطوة خطوة_ الاستاذ / حمادة عمر 12_برنامج صلاحيات المستخدمين - بشكل جديد_ الاستاذ / إبراهيم محمد 13_حماية ملف اكسل من داخل الملف + صلاحيات لكل مستخدم + سجل لأسماء و مواعيد الدخول للملف_ الاستاذ / احمد زمان 14_شرح برنامج فك باسورد_ الاستاذ / أبو محمد أشرف 15_باسورد بتاريخ محدد_مشاركة_ بدأه الاستاذ / ابو اياد ( الاسيوطى )

بسم الله الرحمن الرحيم اليوم هنعرف ازاي نعمل صلاحيات للوصول لشيتات معينه داخل ملف الاكسيل ولكن اولا نقوم بمراجعه درس اعمل شاشة دخول برنامجك بنفسك وسيبك من التقليد http://www.officena.net/ib/topic/64832-اعمل-شاشة-دخول-برنامجك-بنفسك-وسيبك-من-التقليد/ بعد ما راجعنا الدرس السابق نبدأ من حيث انتهينا الأساسيات الشاشة الرئيسية الصفحات الأخرى وأخيرا صفحة معلومات الدخول والصلاحيات ودي أسماء الصفحات داخل الشيتات وبرمجيا نقوم بتصميم نفس الصفحات السابقة أظن سهلة العملية لحد دلوقتي حان دور الاكواد نبدأ بالاكواد السهلة في كل صفحة غير الرئيسية بها زر رجوع نضع الاكواد كالاتي صفحة ادخال البيانات في زر الرجوع Sub yasser1() index.Activate sheet1.Visible = xlSheetVeryHidden End Sub السطر الاول للرجوع للصفحة الرئيسية السطر الثاني لاخفاء صفحة ادخال البيانات وهي شيت1 وتكرر في الصفحات المتبقية صفحة الاستعلام Sub yasser2() index.Activate sheet2.Visible = xlSheetVeryHidden End Sub صفحة قاعدة البيانات Sub yasser3() index.Activate sheet3.Visible = xlSheetVeryHidden End Sub صفحة المستخدمون users Sub mohamed1() index.Select users.Visible = xlSheetVeryHidden End Sub وقبل ان نترك صفحة اليوزرز نضع هذه المعادلات =IF(J2="";"";VLOOKUP(J2;A2:E8;3;FALSE)) =IF(J2="";"";VLOOKUP(J2;A2:E8;4;FALSE)) =IF(J2="";"";VLOOKUP(J2;A2:E8;5;FALSE)) هذه الدوال تجلب بيانات المستخدم من جدول المستخدمين ومنها نقوم بالتحكم في صلاحياته الآن حان دور الصفحة الرئيسية نضع في اول زر وهو زر ادخال البيانات الكود التالي Sub aseel1() If users.Range("k2") = "yes" Then Application.ScreenUpdating = False sheet1.Visible = xlSheetVisible sheet1.Select Else MsgBox "انت لا تمتلك الصلاحية لدخول هذه الصفحة ", vbCritical, "elmalak_elhazen_yasser@yahoo.com" Application.ScreenUpdating = True End If End Sub زر الصفحة الثانية صفحة الاستعلام Sub aseel2() If users.Range("L2") = "yes" Then Application.ScreenUpdating = False sheet2.Visible = xlSheetVisible sheet2.Select Else MsgBox "انت لا تمتلك الصلاحية لدخول هذه الصفحة ", vbCritical, "elmalak_elhazen_yasser@yahoo.com" Application.ScreenUpdating = True End If End Sub زر الصفحة الثالثة صفحة قاعدة البيانات Sub aseel3() If users.Range("m2") = "yes" Then Application.ScreenUpdating = False sheet3.Visible = xlSheetVisible sheet3.Select Else MsgBox "انت لا تمتلك الصلاحية لدخول هذه الصفحة ", vbCritical, "elmalak_elhazen_yasser@yahoo.com" Application.ScreenUpdating = True End If End Sub زر الصفحة الرابعة صفحة صلاحيات اليوزرز وهنا سنغير الكود سنعطى لهذه الصفحة كلمة مرور خاصة غير باقي الصفحات Sub mohamed() Dim x x = InputBox("يرجى ادخال كلمة المرور.", "Password Required") If x = "123" Then users.Visible = xlSheetVisible users.Select Else MsgBox "كلمة المرور خطأ يرجى اعداة المحاولة" End If End Sub اكواد الصفحات تعتمد علي اول سطر يقوم بمقارنة الخلية الخاصة بالصفحة اذا كانت بها كلمة yes فيسمح بالدخول اما غير ذلك لا يمكن الدخول والجزء الثان من الكود يقوم باظهار الصفحة عند تحقق الشرط والذهاب اليها ينقصنا سطر صغير لاتمام الموضوع نسخ اسم المستخدم عند الدخول الى الخلية المحددة ليتم جلب بيانته عن طريق اسمه وتتم كالاتي يتم وضع الكود في حدث زر الدخول users.Range("j2") = ComboBox1.Value وبكدا يكون انتهى الدرس تقبلوا تحياتي ياسر العربي لو مكسلين تطبقوا احط ليكم مرفق وخلاص وادي مرفق الشرح PDF صلاحيات.rar

السادة الزملاء المحترمين مرفق برنامج يتابع حركة المعاملات لكل مركبة تواجهني هذه المشاكل تتمثل في التالي :- 1- النموذج الخاص بادخال كلمة السر من المفترض ان يتم اغلاقة بعد الدخول للنموذج الرئيسي 2- عند التحديث في الجزء الخاص بيانات المستخدم لا يظهر من قام بالتحديث او من قام بالادخال وبالمثل في النموذج الفرعي فمن المفترض بان من قام بالتحديث في النموذج الرئيسي نفسه من قام بالتحديث في النموذج الفرع ولا ارغب ان يظهر للمستخدم من قام بالتحديث في النموج الفرعي ولكن علي الاقل ان يحتفظ بذلك في الجدول ارجوا المساعدة والتعديل علي البرنامج المرفق لتعم الفائدة Mandoub - Copy.rar