0
فك
الأصوات
هل بإمكان أحد أن يساعدني في هذه المشكلة. حول هذا البرنامج النصي.
شكرا على هذا. لقد نجحت بشكل جيد ، إلا أنها تغير إعدادات حماية الورقة الخاصة بي في كل مرة أقوم بتشغيلها. لقد تمت حماية الورقة الخاصة بي ، ولكن تم تعيينها للسماح للمستخدمين بتنسيق الخلايا والأعمدة والصفوف ؛ ولكن بعد تشغيل هذا الرمز ، يتم إعادة الحماية إلى الوضع الافتراضي. كيف يمكنني الاحتفاظ بإعداداتي؟
كان الجواب على ذلك ؛ يجب عليك تعديل كود الحماية عن طريق إضافة السماح بالمعايير التي تريدها. أوراق العمل ("Sheet1"). حماية ،: = False، AllowInsertingColumns: = False، AllowInsertingRows: = False،: = False، AllowFiltering: = False،
لذا يُرجى مساعدتي في كتابة الكود الصحيح إن أمكن ، لا يمكن جعله يعمل مع AllowInsertingRows.Protect ("Welkom") ثم ؟؟؟؟؟؟ يتم استدعاء جزء صغير من ورقة العمل هذه (علامات التبويب) على سبيل المثال P & A أو BIOp
ويمكنني الحصول عليها بشكل صحيح في النص الأصلي؟
SubProtectSheetCheckSpellCheck()'Update by Extendoffice 2018/11/2DimxRg AsRangeOnErrorResumeNextApplication.ScreenUpdating = False WithActiveSheet .Unprotect ("123") SetxRg = .UsedRange xRg.CheckSpelling .Protect ("123") EndWithApplication.ScreenUpdating = TrueEndSubشكرا على هذا. لقد نجحت بشكل جيد ، إلا أنها تغير إعدادات حماية الورقة الخاصة بي في كل مرة أقوم بتشغيلها. لقد تمت حماية الورقة الخاصة بي ، ولكن تم تعيينها للسماح للمستخدمين بتنسيق الخلايا والأعمدة والصفوف ؛ ولكن بعد تشغيل هذا الرمز ، يتم إعادة الحماية إلى الوضع الافتراضي. كيف يمكنني الاحتفاظ بإعداداتي؟
كان الجواب على ذلك ؛ يجب عليك تعديل كود الحماية عن طريق إضافة السماح بالمعايير التي تريدها. أوراق العمل ("Sheet1"). حماية ،: = False، AllowInsertingColumns: = False، AllowInsertingRows: = False،: = False، AllowFiltering: = False،
لذا يُرجى مساعدتي في كتابة الكود الصحيح إن أمكن ، لا يمكن جعله يعمل مع AllowInsertingRows.Protect ("Welkom") ثم ؟؟؟؟؟؟ يتم استدعاء جزء صغير من ورقة العمل هذه (علامات التبويب) على سبيل المثال P & A أو BIOp
ويمكنني الحصول عليها بشكل صحيح في النص الأصلي؟
مرحبًا Mic @ sha ،
للسماح للمستخدمين بتنسيق الخلايا والأعمدة والصفوف ، يرجى استخدام الرمز أدناه:
أماندا
للسماح للمستخدمين بتنسيق الخلايا والأعمدة والصفوف ، يرجى استخدام الرمز أدناه:
Sub ProtectSheetCheckSpellCheck()
'Update by Extendoffice 2021/12/20
Dim xRg As Range
On Error Resume Next
Application.ScreenUpdating = False
With ActiveSheet
.Unprotect ("123")
Set xRg = .UsedRange
xRg.CheckSpelling
'Password, Allow Formatting Cells, Allow Formatting Columns, Allow Formatting Rows
.Protect Password:="123", AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True
End With
Application.ScreenUpdating = True
End Subأماندا
- الصفحة:
- 1
لا توجد ردود لهذا المنصب حتى الآن.