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

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

قام بنشر

السللام عليكم ورحمة الله وبركاته 
ارجو المساعده من السادة الزملاء 
عندي ملف اكيل يحتوى على اسم كل موظف و المهام الموكلة اليه و اريد عمل كود يقوم بطلب اسم المستخدم والرقم السري لكل مستخدم عند فتح الملف  ويظهر له الصفوف الخاصة به فقط  و لكن في نفس ورقة العمل لا اريد عمل ورقة لكل موضف Task Priority Tracker0.xlsx
وشكرا للجميع 

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

. افتح محرر 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 Sub
    Private Sub Workbook_Open()
        Call بدء_النظام
    End Sub
     

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

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

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

Important Information