ضروري !! قفل شيت معين في فايل اكسل بكلمة مرور؟؟

[samoxz]

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

هل يوجد طريقة لقفل كل صفحة (sheet ) في ملف اكسل بكلمة مرور مختلفة 

بحيث اضع في كل شيت بيانات تخص شخص معين لا يستطيع الدخول اليها احد غيره و لا الوصول للداخل الا بكلمة المرور التي يمتلكها؟؟

[عبدالله بشير عبدالله]

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

 

نعم يمكن ذلك بواسطة كود 

عند الضغظ على الزر سيظهر صندوق يطلب فيه ادخال كلمة مرور ااصفحة 1 مثلا وهكذا 

الكود

Sub ProtectSheetsWithDifferentPasswords()
    Dim ws As Worksheet
    Dim password As String
    
    For Each ws In ThisWorkbook.Worksheets
        password = InputBox("أدخل كلمة المرور للورقة: " & ws.Name)
        If password <> "" Then
            ws.Protect password:=password
        End If
    Next ws
    
    MsgBox "تم قفل جميع الأوراق بكلمات مرور مختلفة."
End Sub

مثال

كلمة مرور مختلفة.xlsb

[hegazee]

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

 حسب ما فهمت تريد أن تكون أوراق العمل مخفية و لا تظهر إلا بكلمة سر و لعلك تجد في هذا الملف المطلوب. حيث يمكن اخفاء جميع أوراق العمل و استدعاء الورقة المطلوبة من خلال يوزرفورم و بكلمة سر تحددها أنت

 

إظهار أوراق العمل بكلمة سر.xlsm

تم تعديل سبتمبر 22 بواسطه hegazee