Alaa elhadary قام بنشر April 7 قام بنشر April 7 السللام عليكم ورحمة الله وبركاته ارجو المساعده من السادة الزملاء عندي ملف اكيل يحتوى على اسم كل موظف و المهام الموكلة اليه و اريد عمل كود يقوم بطلب اسم المستخدم والرقم السري لكل مستخدم عند فتح الملف ويظهر له الصفوف الخاصة به فقط و لكن في نفس ورقة العمل لا اريد عمل ورقة لكل موضف Task Priority Tracker0.xlsx وشكرا للجميع
mennad sofiane قام بنشر April 16 قام بنشر April 16 . افتح محرر VBA: اضغط Alt + F11 من القائمة: Insert → Module Sub بدء_النظام() Dim nomUtilisateur As String Dim motDePasse As String Dim cellule As Range Dim derLigne As Long Dim ligne As Long Dim feuille As Worksheet Dim trouve As Boolean Set feuille = ThisWorkbook.Sheets("Feuil1") ' غيّر اسم الورقة إذا لزم nomUtilisateur = InputBox("أدخل اسم المستخدم:") If nomUtilisateur = "" Then Exit Sub motDePasse = InputBox("أدخل الرقم السري:") If motDePasse = "" Then Exit Sub ' تحقق من صحة المستخدم (مثال بسيط: الاسم = الرقم السري) If nomUtilisateur <> motDePasse Then MsgBox "اسم المستخدم أو كلمة السر غير صحيحة!", vbCritical Exit Sub End If ' إظهار كل الصفوف أولاً feuille.Rows.Hidden = False ' افتراض أن الأسماء في العمود A derLigne = feuille.Cells(feuille.Rows.Count, "A").End(xlUp).Row trouve = False For ligne = 2 To derLigne ' نفترض أن الصف 1 فيه العناوين If Trim(feuille.Cells(ligne, 1).Value) <> nomUtilisateur Then feuille.Rows(ligne).Hidden = True Else trouve = True End If Next ligne If Not trouve Then MsgBox "لا توجد مهام مخصصة لهذا المستخدم.", vbExclamation Else MsgBox "مرحبًا " & nomUtilisateur & "، تم عرض المهام الخاصة بك.", vbInformation End If End SubPrivate Sub Workbook_Open() Call بدء_النظام End Sub
الردود الموصى بها
انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد
يجب ان تكون عضوا لدينا لتتمكن من التعليق
انشئ حساب جديد
سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .
سجل حساب جديدتسجيل دخول
هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.
سجل دخولك الان