هل بإمكان أحد أن يساعدني في هذه المشكلة. حول هذا البرنامج النصي.

Sub

ProtectSheetCheckSpellCheck()

'Update by Extendoffice 2018/11/2

Dim

xRg 

As

Range

On

Error

Resume

Next

Application.ScreenUpdating = 

False

With

ActiveSheet

.Unprotect (

"123"

)

Set

xRg = .UsedRange

xRg.CheckSpelling

.Protect (

"123"

)

End

With

Application.ScreenUpdating = 

True

End

Sub

شكرا على هذا. لقد نجحت بشكل جيد ، إلا أنها تغير إعدادات حماية الورقة الخاصة بي في كل مرة أقوم بتشغيلها. لقد تمت حماية الورقة الخاصة بي ، ولكن تم تعيينها للسماح للمستخدمين بتنسيق الخلايا والأعمدة والصفوف ؛ ولكن بعد تشغيل هذا الرمز ، يتم إعادة الحماية إلى الوضع الافتراضي. كيف يمكنني الاحتفاظ بإعداداتي؟
كان الجواب على ذلك ؛ يجب عليك تعديل كود الحماية عن طريق إضافة السماح بالمعايير التي تريدها. أوراق العمل ("Sheet1"). حماية ،: = False، AllowInsertingColumns: = False، AllowInsertingRows: = False،: = False، AllowFiltering: = False، 
لذا يُرجى مساعدتي في كتابة الكود الصحيح إن أمكن ، لا يمكن جعله يعمل مع AllowInsertingRows.Protect ("Welkom") ثم ؟؟؟؟؟؟ يتم استدعاء جزء صغير من ورقة العمل هذه (علامات التبويب) على سبيل المثال P & A أو BIOp

ويمكنني الحصول عليها بشكل صحيح في النص الأصلي؟