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?