كيف تحمي كل المصنفات في مجلد دفعة واحدة في إكسيل؟
في Excel ، يمكنك حماية مصنف لمنع المستخدمين الآخرين من تحريره ، ولكن هل سبق لك أن قمت بالتصوير لحماية مصنفات متعددة في وقت واحد؟ أقدم هنا بعض الحيل حول حماية جميع المصنفات في مجلد وأوراق متعددة في مصنف في Excel.
قم بحماية المصنفات الموجودة في مجلد مرة واحدة باستخدام VBA
قم بحماية أوراق متعددة في وقت واحد باستخدام Kutools for Excel
قم بحماية المصنفات الموجودة في مجلد مرة واحدة باستخدام 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
2. صحافة F5 مفتاح و حدد مجلدًا تنبثق نافذة لك لتحديد مجلد لحماية جميع أوراق العمل الخاصة به.
3. انقر OK وينبثق مربع حوار لإدخال كلمة المرور لحماية المصنفات.
4. انقر OK، ينبثق مربع حوار لتذكيرك بأن جميع المصنفات الموجودة في المجلد المحدد تمت حمايتها بنجاح بكلمة مرور واحدة.
عندما تفتح المصنفات التي تحميها بالرمز أعلاه ، ينبثق مربع حوار لإدخال كلمة المرور. انظر لقطة الشاشة:
معلومه- سرية: يعمل هذا الرمز مع إصدار Excel 2007 أو إصدار أعلى ، إذا كنت تريد تطبيقه لحماية الإصدار الأقل ، فيمكنك التغيير xFile = "* .xls" إلى xFile = "* .xlsx" في التعليمات البرمجية.
قم بحماية أوراق متعددة في وقت واحد باستخدام Kutools for Excel
في الواقع ، سيكون من المعتاد حماية أوراق متعددة في كتاب عمل في عملنا اليومي. ولكن في Excel ، تحتاج إلى حماية الأوراق واحدة تلو الأخرى من خلال وظيفتها المضمنة. ومع ذلك ، هناك أداة قوية - كوتولس ل إكسيل، في حماية ورقة العمل يمكن أن تساعدك الأداة المساعدة على حماية جميع الأوراق أو الأوراق المختارة من المصنف مرة واحدة.
كوتولس ل إكسيل, مع أكثر من 120 وظائف Excel سهلة الاستخدام ، وتعزز كفاءة عملك وتوفر وقت عملك. | ||
بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:
1. قم بتمكين المصنف الذي تريد حماية أوراقه ، وانقر فوق مشروع > حماية ورقة العمل. انظر لقطة الشاشة:
2. في ال حماية ورقة العمل مربع الحوار ، يمكنك التحقق من الأوراق التي تريد حمايتها كما تريد من القائمة. انظر لقطة الشاشة:
3. انقر Ok، وينبثق مربع حوار آخر لإدخال كلمة المرور وإعادة كتابتها ، انظر لقطة الشاشة:
4. انقر Ok، وينبثق مربع حوار لتذكيرك بحماية أوراق العمل بنجاح.
لإلغاء حماية هذه الأوراق ، ما عليك سوى النقر فوق مشروع > إلغاء حماية ورقة العمل لإدخال كلمة المرور لإلغاء الحماية.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!