ma poate ajuta cineva cu aceasta problema. este vorba despre acest scenariu.

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

Multumesc pentru asta. A funcționat bine, cu excepția faptului că îmi schimbă setările de protecție a foii de fiecare dată când îl rulez. Am foaia protejată, dar setată pentru a permite utilizatorilor să formateze celule, coloane și rânduri; dar după rularea acestui cod, protecția este setată înapoi la valoarea implicită. Cum îmi pot păstra setările?
răspunsul la asta a fost; Trebuie să modificați codul .protect adăugând permit criteriile dorite. Fișe de lucru ("Sheet1").Protect,:=False, AllowInsertingColumns:=False, AllowInsertingRows:=Fals,:=Fals, AllowFiltering:=Fals, 
Așa că vă rog să mă ajutați cu codul corect, dacă este posibil, nu îl pot face să funcționeze cu AllowInsertingRows.Protect ("Welkom") și apoi?????? bit of a nob to this my worksheet (files) se numește, de exemplu, P&A sau BIOp

și pot să-l înțeleg corect în scenariul original?