تعيين كلمة سر مختلفة لكل ورقة داخل ملف الاكسل

[falconegypt]

السلام عليكم ورحمة الله وبركاته 

 

استفسار عن طريقة عمل كلمة سر  مختلفة لكل ورقة في ملف الاكسل 

 

على ان يتم طلب كلمة السر عند الدخول الي ورقة العمل 

 

هل يوجد طريقة او لابد من استخدام VBA

 

تقبلو تحياتي 

[علي الشيخ]

السلام عليكم

أعتقد لابد من استخدام VBA لهذا الغرض والأكواد والطرق متنوعة يمكن على سبيل المثال استخدام الكود التالي

وهو عند الدخول إلى الصفحة يقوم بإخفاء كل الأعمدة (كامل محتوى الشيت) لحين إدخال الباسورد لو صحيح يقوم بإظهار الخلايا لو خطأ يبقي المحتوي مخفى

وتقدر تضعه في كل صفحة أنت تريد حمايتها مع تغيير الباسورد من 123 إلى أي باسورد تفضله

Private Sub Worksheet_Activate()

    Dim strReply As String
    Dim lReply As Long
     
    Cells.Select
    Selection.EntireColumn.Hidden = True
    strReply = InputBox("Enter Password", "Sheet Protection")
    If strReply = "123" Then
    Sheets("sheet2").Activate
    Cells.Select
    Selection.EntireColumn.Hidden = False
    Range("A1").Select
    Else:
    MsgBox "Wrong password"
    Exit Sub
    
    End If

End Sub

 

[falconegypt]

مشكوووووووووووور  اخي علي الشيخ 

وجزاك الله كل خبر