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