تثبيت نوع الحماية لاى ملف

[ياسر فاروق]

الساده الافاضل

السلام عليكم ورحمة الله وبركاته

حسب الصورة الموضحة

هل يوجد طريقة إلغاء العلامة من أول اختيار select locked cells للشيتات فى الملف بالكامل مره واحدة

وشكرا على المساعده

[ياسر فاروق]

السادة الأفاضل

السلام عليكم ورحمة الله وبركاته

بالنسبة لطلب كود  بخصوص موضوع إزالة علامة الصح مره واحده من كل الشيتات

الحمد الله تحصلت على هذا الكود من الموقع  - خاص قفل وفتح الشيتات عن طريق كلمة سر - وعدلت عليه على قدر ما تعلمته - يوجد مشكلة عند قفل الملف لا يحفظ الملف اتوماتيك لابد من الضغط على الحفظ قبل القفل

وإذ كان هناك تعديلات عليه برجاء التفضل بالافاده

Sub DrawingObjects()
Application.ScreenUpdating = False
'A variable is defined as a working paper
Dim a As Worksheet
'Test each worksheet within the worksheets in the workbook Is it protected or not
For Each a In Worksheets
a.EnableSelection = xlUnlockedCells
Next a
End Sub

 

 

 

 

[Ali Mohamed Ali]

وعليكم السلام -فقط للحفظ التلقائى ... عليك بوضع هذا الكود فى حدث ThisWorkBook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Saved = False Then
    ActiveWorkbook.Save
End If
End Sub

Protect.xlsb