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

كيف تحمي كل المصنفات في مجلد دفعة واحدة في إكسيل؟

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

قم بحماية المصنفات الموجودة في مجلد مرة واحدة باستخدام VBA

قم بحماية أوراق متعددة في وقت واحد باستخدام Kutools for Excel فكرة جيدة 3

السهم الأزرق الحق فقاعة قم بحماية المصنفات الموجودة في مجلد مرة واحدة باستخدام VBA

لحماية المصنفات في مجلد معين ، يمكنك تطبيق رمز ماكرو لحلها.

1. قم بتمكين مصنف جديد ، ثم اضغط على ALT + F11 مفاتيح لفتح مايكروسوفت فيجوال بيسك للتطبيقنافذة NS ، وانقر إدراج > مجمع نموذجيهـ ، والصق الكود أدناه في ملف وحدة النصي.

فبا: حماية المصنفات في مجلد.

Sub ProtectAll()
    Dim xWorkBooks As Workbook
    Dim xExitFile As String
    Dim xPassWord As Variant
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    On Error Resume Next
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then
        Exit Sub
    Else
        xStrPath = xStrPath + "\"
    End If
    xPassWord = Application.InputBox("Enter password", "Kutools for Excel", , , , , , 2)
    If (xPassWord = False) Or (xPassWord = "") Then
        MsgBox "Password cannot be blank!", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xFile = "*.xls"
    xExitFile = Dir(xStrPath & xFile)
    On Error Resume Next
    Application.ScreenUpdating = False
    Do While xExitFile <> ""
        Set xWorkBooks = Workbooks.Open(xStrPath & xExitFile)
        Application.DisplayAlerts = False
        xWorkBooks.SaveAs Filename:=xWorkBooks.FullName, Password:=xPassWord
        Application.DisplayAlerts = True
        Workbooks(xExitFile).Close False
        Set xWorkBooks = Nothing
        xExitFile = Dir
    Loop
    Application.ScreenUpdating = True
    MsgBox "Successfully protect!", vbInformation, "Kutools for Excel"
End Sub

 

حماية جميع المصنفات مجلد 1

2. صحافة F5 مفتاح و حدد مجلدًا تنبثق نافذة لك لتحديد مجلد لحماية جميع أوراق العمل الخاصة به.
حماية جميع المصنفات مجلد 2

3. انقر OK وينبثق مربع حوار لإدخال كلمة المرور لحماية المصنفات.
حماية جميع المصنفات مجلد 3

4. انقر OK، ينبثق مربع حوار لتذكيرك بأن جميع المصنفات الموجودة في المجلد المحدد تمت حمايتها بنجاح بكلمة مرور واحدة.
حماية جميع المصنفات مجلد 4

عندما تفتح المصنفات التي تحميها بالرمز أعلاه ، ينبثق مربع حوار لإدخال كلمة المرور. انظر لقطة الشاشة:
حماية جميع المصنفات مجلد 5

معلومه- سرية: يعمل هذا الرمز مع إصدار Excel 2007 أو إصدار أعلى ، إذا كنت تريد تطبيقه لحماية الإصدار الأقل ، فيمكنك التغيير xFile = "* .xls" إلى xFile = "* .xlsx" في التعليمات البرمجية.


السهم الأزرق الحق فقاعة قم بحماية أوراق متعددة في وقت واحد باستخدام Kutools for Excel

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

كوتولس ل إكسيل, مع أكثر من 120 وظائف Excel سهلة الاستخدام ، وتعزز كفاءة عملك وتوفر وقت عملك.

بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:

1. قم بتمكين المصنف الذي تريد حماية أوراقه ، وانقر فوق مشروع > حماية ورقة العمل. انظر لقطة الشاشة:
حماية جميع المصنفات مجلد 6

2. في ال حماية ورقة العمل مربع الحوار ، يمكنك التحقق من الأوراق التي تريد حمايتها كما تريد من القائمة. انظر لقطة الشاشة:
حماية جميع المصنفات مجلد 7

3. انقر Ok، وينبثق مربع حوار آخر لإدخال كلمة المرور وإعادة كتابتها ، انظر لقطة الشاشة:
حماية جميع المصنفات مجلد 8

4. انقر Ok، وينبثق مربع حوار لتذكيرك بحماية أوراق العمل بنجاح.
حماية جميع المصنفات مجلد 9

لإلغاء حماية هذه الأوراق ، ما عليك سوى النقر فوق مشروع > إلغاء حماية ورقة العمل لإدخال كلمة المرور لإلغاء الحماية.
حماية جميع المصنفات مجلد 10

تنزيل doc 1

أفضل أدوات إنتاجية المكتب

الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

علامة تبويب kte 201905


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I did all the steps and there was dialogue box saying it's successful but when I open the files, they are opening up without any password.
This comment was minimized by the moderator on the site
am using a mac, and when i click on the F5 key it does not work for me, please how can I resolve it?
This comment was minimized by the moderator on the site
Hi, you can try option - F8 keys. But I only tested this VBA in Microsoft system, I do not know if it work in Mac.
This comment was minimized by the moderator on the site
Brilliant. Saves me nearly an hour every month. Thank you.
This comment was minimized by the moderator on the site
can you do the same code but for unprotecting? with option to browse for the folder
This comment was minimized by the moderator on the site
I'm getting a syntax error for the following: <span style="background-color...
This comment was minimized by the moderator on the site
Did you fix this ? How?
This comment was minimized by the moderator on the site
only remove them
This comment was minimized by the moderator on the site
workbook protect ...great program.... very helpful
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations