Birisi bana bu sorunla yardımcı olabilir. bu komut dosyasıyla ilgili.

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

Bunun için teşekkürler. Her çalıştırdığımda sayfa koruma ayarlarımı değiştirmesi dışında iyi çalıştı. Sayfamı koruyorum, ancak kullanıcıların hücreleri, sütunları ve satırları biçimlendirmesine izin verecek şekilde ayarladım; ancak bu kodu çalıştırdıktan sonra koruma varsayılana döner. Ayarlarımı nasıl koruyabilirim?
bunun cevabı şuydu; .protect kodunu istediğiniz kriterlere izin vererek değiştirmelisiniz. Çalışma Sayfaları("Sayfa1").Koru,:=Yanlış, AllowInsertingColumns:=Yanlış, AllowInsertingRows:=Yanlış,:=Yanlış, AllowFiltering:=Yanlış, 
Bu yüzden lütfen mümkünse doğru kodla bana yardım edin, AllowInsertingRows.Protect ("Welkom") ile çalışmasını sağlayamıyorum ve sonra ?????? Bu çalışma sayfam (sekmeler) için bir numara, örneğin P&A veya BIOp olarak adlandırılır.

ve orijinal komut dosyasında doğru alabilir miyim?