انتقل إلى المحتوى الرئيسي

كيفية تعيين كلمات المرور لحماية أوراق العمل الفردية من قبل المستخدمين في Excel؟

في Excel ، يمكنك تعيين كلمات مرور مختلفة لأوراق مختلفة ، وهذا يعني أنه يمكن لمستخدم واحد إجراء تغييرات على ورقة عمل واحدة باستخدام كلمة مرور واحدة ، ويمكن لمستخدم آخر استخدام كلمة مرور مختلفة لإجراء تغييرات على ورقة عمل أخرى. ولكن ، في بعض الأحيان ، تريد فقط أن يتمكن كل مستخدم من عرض جدول البيانات الخاص به والوصول إليه. هل من الممكن حل هذا في Excel؟


لحماية كل ورقة عمل على حدة وتقييد وصول المستخدمين إلى أوراق العمل ، يرجى تطبيق كود فبا أدناه:

1. افتح مصنفًا جديدًا ، وأنشئ ورقة جديدة باسم "رئيسي" ، انظر لقطة الشاشة:

2. ثم اضغط ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انقر مرتين ThisWorkbook من اليسار مشروع- VBAProject لفتح وحدة تعليمات برمجية فارغة ، ثم انسخ والصق رمز VBA التالي في نافذة التعليمات البرمجية ، انظر لقطة الشاشة:

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

Option Explicit
Dim gUserName As String
Dim gUserPass As String
Private Sub Workbook_Open()
'Updateby ExtendOffice
Dim xWShs As Sheets
Dim xWSh As Worksheet
Dim xUserName As String
Dim xPass As String
Dim xBolH As Boolean
GTINPUT:
xUserName = InputBox("Enter the user name")
If TypeName(xUserName) = "String" Then
    If xUserName = "" Then
        Exit Sub
    End If
End If
xUserName = LCase(xUserName)
xPass = InputBox("User name:" & xUserName & Chr(13) & Chr(10) & "Enter the password:")
If TypeName(xPass) = "String" Then
    If xPass = "" Then
    MsgBox "The password is incorrect, please enter the user name and password again."
    GoTo GTINPUT
    End If
Else
    MsgBox "The password is incorrect, please enter the user name and password again."
    GoTo GTINPUT
End If
Set xWShs = Worksheets
xBolH = False
For Each xWSh In Worksheets
    If xWSh.Name = xUserName Then
    xBolH = True
    Exit For
    End If
Next
If xBolH Then
Set xWSh = xWShs(xUserName)
On Error GoTo GTINPUT2
xWSh.Unprotect (xPass)
xWSh.Visible = True
xWSh.Activate
Else
Set xWSh = xWShs.Add
xWSh.Name = xUserName
xWSh.Activate
End If
gUserName = xUserName
gUserPass = xPass
Exit Sub
GTINPUT2:
    MsgBox "The password is incorrect, please enter the user name and password again."
    GoTo GTINPUT
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim xWSh As Worksheet
On Error Resume Next
Set xWSh = Worksheets(gUserName)
xWSh.Protect Password:=gUserPass, DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
For Each xWSh In Worksheets
    If xWSh.Name <> "Main" Then
        xWSh.Visible = xlSheetVeryHidden
    End If
Next xWSh
ActiveWorkbook.Save
End Sub

3. ثم ضع المؤشر في نهاية ملف مصنف فرعي خاص_ فتح () النصي والصحافة F5 مفتاح لتشغيل هذا الرمز. الآن ، في مربع المطالبة المنبثق ، أدخل اسم المستخدم الذي تريد إنشاء ورقة لهذا المستخدم ، انظر لقطة الشاشة:

4. ثم انقر فوق OK ، في مربع المطالبة التالي ، أدخل كلمة مرور لحماية هذه الورقة ، انظر لقطة الشاشة:

5. استمر في النقر OK زر ، ويتم إنشاء ورقة جديدة تحمل اسم المستخدم مرة واحدة ، ويمكنك إنشاء البيانات لهذا المستخدم حسب حاجتك. انظر لقطة الشاشة:

6. كرر الخطوة السابقة 3 - الخطوة 5 لإنشاء أوراق أخرى تريد استخدامها واحدة تلو الأخرى.

7. بعد إنشاء الأوراق ، احفظ المصنف الحالي بالنقر فوق قم بتقديم > حفظ باسم.، في ال حفظ باسم مربع الحوار ، حدد اسم ملف ثم اختر مصنف Excel بماكرو (* .xlsm) تنسيق من حفظ كنوع القائمة المنسدلة ، انظر لقطة الشاشة:

8. ثم انقر فوق الزر "حفظ" لحفظ هذا الملف.

9. ثم أغلق المصنف وأعد فتحه ، ثم انقر فوق تمكين المحتوى في الجزء العلوي من شريط الصيغة لتنشيط الكود ، انظر لقطة الشاشة:

10. الآن ، سيظهر مربع موجه لتذكيرك بإدخال اسم المستخدم وكلمة المرور لفتح الورقة المحددة بواسطة مستخدم معين.

11. أخيرًا ، عند إرسال هذا المصنف إلى مستخدمين آخرين ، يجب عليك إرسال اسم المستخدم وكلمة المرور إلى المستخدم. سيفتحون الأوراق الخاصة بهم ويعدلونها فقط ، وليس لديهم تفويض لرؤية أوراق العمل الأخرى.


  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة وحفظ البيانات. تقسيم محتوى الخلايا ؛ اجمع الصفوف المكررة والمجموع / المتوسط... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • المفضلة وإدراج الصيغ بسرعةوالنطاقات والمخططات والصور ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • تجميع الجدول المحوري حسب رقم الأسبوع واليوم من الأسبوع والمزيد ... إظهار الخلايا غير المؤمنة والمغلقة بألوان مختلفة قم بتمييز الخلايا التي لها صيغة / اسم
علامة تبويب kte 201905
  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How would you then allow for an admin user to see all of those password protected sheets?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations