كيف يمكن حماية جميع ملفات المصنفات في مجلدٍ ما دفعةً واحدة في 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، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل