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

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

السلام عليك ورحمة الله وبركاته ارفقت ملف به شاشة دخول باسم ورمز دخول اود تغييرها فقط الى رمز للدخول فقط اي ليبل واحد للدخول وعند فتح الفورم يكون المؤشر على الليبل اي ابدا مباشرة بكتابة الرمز للدخول جزاكم الله خيرا ولكم تحياتي شاشة دخول.rar

بسم الله الرحمن الرحيم وجدت كثيرا من الاعضاء تطلب هذا الموضوع كثيرا وعندما وضعت مثال لشاشة دخول بكلمة مرورظهر ليا مشرف كدا كالعادة وقالي البوقين دول كنت أفضل يكون في موضوع مستقل لأن المشاركات الفرعية تندثر مع الوقت لما تلاقي نفسك عملت ملف مميز زي كدا .. افتح موضوع جديد واشرح بالتفصيل (مش ترمي الملف وتجري ..) وبعد كدا في المشاركة الفرعية تضع رابط للموضوع ليستفيد أكبر عدد من الأعضاء إذ أن المتابعين للمشاركات قلة .. ولكن هناك كثر في انتظار الموضوعات الجديدة للتعلم والاستفادة .. متنساش كلامي يا سكر زيادة وانا حبيت اوجه له رسالة من هنا واقول له انا بحب الشاي سكر خفيف المهم حبيبي الغالي فعلا صدق في كلامه فا نخش في الموضوع وبلاش رغي بقي اولا نفتح بقي ملف اكسيل جديد ونخش محرر الاكواد ونعمل يوزر فورم جديد ونقوم بوضع عدد واحد ليبل عشان نتكب فيها كلمة المرور او رمز الحماية او أي حاجه في أي حاجه اثنين تكست بوكس الاول لكتابة المستخدم داخلها كلمة المرور اللي هيكتبها عند الدخول الثاني مش مهم لينا كل لزمته انه كل ما المستخدم يحط رقم غلط يزود فيه رقم لحد لما يوصل للرقم المحدد لاغلاق البرنامج وتظهر رسالة تقوله GAME OVER بمعني انه استنفذ كل المحاولات وجاري اغلاق البرنامج وواحد كومند زرار يعني عشان ندوس عليه للدخول ز ما احنا شايفين وطبعا متنسوش تحطه خلفيه حلوة كدا للفورم دا اهم حاجه عندي اه كله الا الجماليات وموضوع الجماليات دا نعمله موضوع قريب ان شاء الله بس تكون عندكو لسعه فوتوشوب بس وطبعا نخلي الخلفية علي وضع الاسترتش اه يعني الصورة تبقي لازقه في الفورم كيبر تكبر معاه يصغر تصغر معاه تمام كلنا عارفين الاسترتش كويس زي ما احنا شايفين نيجي بقي للاكواد اول كود نحطه في الجينرال بقي اول حاجه Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "User32" (ByVal hWnd As Long) As Long Const GWL_STYLE = -16 Const WS_CAPTION = &HC00000 Const WS_SYSMENU = &H80000 والكود التاني في حدث تهيئة اليوزر فورم Private Sub UserForm_Initialize() Dim lngWindow As Long, lFrmHdl As Long lFrmHdl = FindWindow(vbNullString, Me.Caption) lngWindow = GetWindowLong(lFrmHdl, GWL_STYLE) lngWindow = lngWindow And (Not WS_CAPTION) Call SetWindowLong(lFrmHdl, GWL_STYLE, lngWindow) Call DrawMenuBar(lFrmHdl) End Sub toolwindowودول لزوم الفشخرة والمنظره وعشان نقصقص البتاعه دي ويضفي جمالا للفورمة هي الخيارات بتاعتها متاحه في الفيجوال بيسك عادي زي كدا ننفض للحته دي نخش علي الكود اثالث ودا هيبقي في تنشيط اليوزر فورم Private Sub UserForm_Activate() Application.WindowState = xlMaximized With Me .Height = Application.Height .Width = Application.Width .Left = Application.Left .Top = Application.Top End With End Sub ايه الكلام دا دا ياسيدي بنقوله كبر لنا البرنامج ملئ الشاشة Maximized لما تفتح اليوزر فورم زي الشاطر خلي مقاسات اليوزر فورم زي مقاسات البرنامج واحنا مكبرين شاشة البرنامج يبقي كدا اليوزر فورم هيبقى كبير زي البرنامج تمام كدا الكود الرابع Private Sub CommandButton1_Click() If TextBox1.Text = "123" Then Me.Hide Else am = am + 1 MsgBox " لقد استخدمت " & am & " محاولة من اصل 5 محاولات, vbCritical, "elmalak_elhazen_yasser@yahoo.com" If am = 5 Then MsgBox "لقد استنفذت جميع المحاولات" ActiveWorkbook.Save ActiveWorkbook.Close End If End If End Sub اكيد دماغكو لفت معايا معلش انا شرحي علي قده استحملوني دا كود بيقول اذا كانت التكست بوكس واحد بتساوي 123 اذن ياعم اخفيني من وشك ويظهر معاك ملف الاكسيل عادي طيب اذا ما حصلشي بقي نعمل ايه تعالا بقي am دي اسم التكست بوكس اتنين بس انا غيرته الى am ندوس علي التكست بوكس اتنين ونغيره من هنا ومننساش نخفى التكست بوكس دا من هنا واحد فكيك بقي يقول ليه am اقوله ياناصح دول اول حرف من اسيل واول حرف من محمد ولادي تمام يامعلم محدش يشتم ولا يضرب المهم بقي ان am بتساوي نفسها + 1 تمام اه قبل ما انسى نخلي قيمة am دي بصفر نكتب جواها صفر عشان لما يعد يعد من بعد الصفر يعني كل ما المعلم يدوس غلط يزود رقم واحد وتطلع رسالة تقوله وصلت لكام محاولة ولما يوصل للمحاولة الخامسة يقوله بالسلامة ياحبي انا هقفل وانام وتمام كدا زي الفل والكلام خدنا والدرس خلص شفتوا انتو مش مصحصحين ازاي نسينا نحط كود فتح الفورم في حدث فتح الملف Private Sub Workbook_Open() UserForm1.Show End Sub وبعدين انا مش هحط امثلة زي واحد صاحبي وحبيبي بيقول انكم لازم تتعبوا شوية وتعملوها بنفسكوا بدل ما تخدو كوبي وبست وخلاص للحديث بقية باذن الله لاستكمال اضافات تانيه اتمنى من الله ان ينفعكم هذا الشرح تقبلو تحياتي ياسر العربي قلت اضيف صورة الكود لكمعشان ميبقاش ليكو حجه

بسم الله و ما شاء الله اللَّهُمَّ انْفَعْنَا بِمَا عَلَّمْتَنَا , وَعَلِّمْنَا مَا يَنْفَعُنَا , وَزِدْنَا عِلْمًا إِلَى عِلْمِنَا اهداء لكل من شارك بعلمه اقل ما يقال لكم "عندما تنتهى كلمات الابداع و تبدأ من جديد و تنتهى عندكم" بارك الله لكم ( فكرة المدونة هى سهولة الوصول و البحث فى المنتدى للذهاب الى ملف _ المدونه الاصدار الاول من هنا مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_سلسله تجميعيه فورم شاشة دخول_صلاحيات_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_تأمين الخلية بعد الكتابة فيها ((تلقائيا)) _ ا / ابو اسامة العينبوسي اضهار واخفاء شيت بناء على قيمة خلية _ مشاركات الاعضاء حماية الملف بالكود _ مشاركات الاعضاء و لا تنسونا من صالح الدعاء و لامى بالمغفره و الرحمه

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تم ارفاق كود الحل من الفاضل ا / رحمه الله_ الحسامي و لا تنسونا من صالح الدعاء تحياتى واجهة برنامج...hosami (1).rar

حتى لا ننسى هذه المشاركات شاشة دخول_صلاحيات_PASS WORD و لا تنسونا من صالح الدعاء

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

السلام عليكم ارفق شاشة دخول للاستاذ سعيد بيرم جزاه الله خيرا الشاشة فيها مشكله انه عندما تكون الواجهة الرئيسية مفتوحة لاتسمح بفتح اي ورقة اكسل وحتى لو كانت هناك ورقة مفتوحة مسبقا تخفيها ولا تظهر الى ان اخرج من الشاشة الرئيسية الى اوراق العمل الاخرى ارجو ايجاد حل للمشكلة جزاكم الله خيرا شاشة دخول شيت كنترول برقم سرى - سعيد بيرم.rar

بسم الله الرحمن الرحيم اليوم هنعرف ازاي نعمل صلاحيات للوصول لشيتات معينه داخل ملف الاكسيل ولكن اولا نقوم بمراجعه درس اعمل شاشة دخول برنامجك بنفسك وسيبك من التقليد 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

السلام عليكم ورحمة وبركاته بناء علي طلب اخ فاضل في موضوع ProgressBar Control اضافة شاشة دخول فضلت ان تكون في موضوع منفصل لتعميم الفائدة وسهولة البحث الرقم السري للدخول 111 تقبلوا تحياتي ProgressBarControl-V2.rar

بسم الله الرحمن الرحيم وبه نستعين السلام عليكم ورحمته الله وبركاته استكمالا لموضوع التنقل السريع بين صفحات العمل من خلال فوروم يشرفنى ان أقدم لحضراتكم هذة الاضافة الا وهى شاشة دخول شيت كنترول برقم سرى على ذات المرفق بالرابط التالى http://www.officena.net/ib/index.php?showtopic=53505&hl= كلمة المرور salma الرقم السرى 5050 ارجو من الله تعالى ان يكون فيه النفع لجميع الساده الزملاء والبقية تأتى بحول الله تعالى تقبلوا وافر تقديرى وجزاكم الله خيرا