الثلاثاء، 30 نوفمبر 2021
  3 الردود
  5 ألف زيارة
0
الأصوات
فك
تحيات،

أرغب في حماية أوراق عمل متعددة وإلغاء حمايتها وتعطيل خيار تحديد الخلايا المقفلة بحيث لا يمكن تحديد الخلايا المحمية.

لقد عثرت على بعض أكواد VBA التي يمكنها قفل أوراق عمل متعددة في وقت واحد وقليلًا من التعليمات البرمجية لبت الخلايا المقفلة ولكن ليس لدي أدنى فكرة عن كيفية دمج الاثنين.

لدي الخلايا التي أريد فتحها من خلال علامة التبويب "الحماية" في قسم "المحاذاة" على "الشريط". 

لمعلوماتك: هذا مصنف مختلف عن موضوعي السابق.

نموذج التعليمات البرمجية الذي وجدته لحماية جميع أوراق العمل:Sub ProtectAllWorksheetsWithInputbox()
'الخطوة 1: أعلن عن المتغيرات الخاصة بك
خافت على شكل ورقة عمل
خافت الأشخاص ذوي الإعاقة كسلسلة
'الخطوة 2: أدخل كلمة المرور الخاصة بك لحماية جميع أوراق العمل
Pwd = InputBox("أدخل كلمة المرور الخاصة بك لحماية كافة أوراق العمل"، "إدخال كلمة المرور")
'الخطوة 3: ابدأ في تكرار جميع أوراق العمل
لكل WS في ActiveWorkbook.Worksheets
'الخطوة 4: الحماية والتكرار إلى ورقة العمل التالية
ws.Protect كلمة المرور:=Pwd
التالي ws
نهاية الفرعية

الكود الذي وجدته لتعطيل خيار تحديد الخلايا المقفلة:




  1. مع ActiveSheet
  2. .يحمي
  3. .EnableSelection = xlUnlockedCells
  4. انتهت ب



شكر،

فيبير
منذ سنوات 2
·
#2360
0
الأصوات
فك
مرحبًا فيبير،

لقد تمكنا من دمج الرمزين، يرجى المحاولة.

 Sub ProtectAllWorksheetsWithInputbox()
     'الخطوة 1: أعلن عن المتغيرات الخاصة بك
     خافت على شكل ورقة عمل
     خافت الأشخاص ذوي الإعاقة كسلسلة
     'الخطوة 2: أدخل كلمة المرور الخاصة بك لحماية جميع أوراق العمل
     Pwd = InputBox("أدخل كلمة المرور الخاصة بك لحماية كافة أوراق العمل"، "إدخال كلمة المرور")
     'الخطوة 3: ابدأ في تكرار جميع أوراق العمل
     لكل WS في ActiveWorkbook.Worksheets
         'الخطوة 4.1: الحماية والتكرار إلى ورقة العمل التالية
         ws.Protect كلمة المرور:=Pwd
         'الخطوة 4.2: قم بتعطيل تحديد الخلايا المقفلة
         ws.EnableSelection = xlUnlockedCells
     التالي ws
 نهاية الفرعية


أتمنى أن يكون هذا مناسبا لك :)

أماندا
منذ سنوات 2
·
#2361
0
الأصوات
فك
شكرا مرة أخرى،

وهذا يعمل ويبسط ما أعمل عليه.

فيبير
منذ سنوات 2
·
#2362
0
الأصوات
فك
الخير :)

أماندا
  • الصفحة:
  • 1
لا توجد ردود لهذا المنصب حتى الآن.