Պաշտպանեք բազմաթիվ թերթիկներ՝ Ընտրված կողպված բջիջները չստուգված վիճակում

Greetings,

Ես կցանկանայի պաշտպանել և չպաշտպանել մի քանի աշխատաթերթեր և անջատել «Ընտրել կողպված բջիջներ» տարբերակը, որպեսզի պաշտպանված բջիջները չընտրվեն:

Ես գտել եմ մի քանի VBA կոդ, որը կարող է կողպել մի քանի աշխատաթերթեր միանգամից և մի փոքր կոդ Locked Cells բիթերի համար, բայց ես գաղափար չունեմ, թե ինչպես կարելի է միավորել երկուսը:

Ես ունեմ այն ​​բջիջները, որոնք ցանկանում եմ բացել ժապավենի վրա գտնվող «Հավասարեցում» բաժնում «Պաշտպանություն» ներդիրի միջոցով: 

FYI-ի համար. Սա տարբեր աշխատանքային գրքույկ է, քան իմ նախկին թեման:

Նմուշ կոդ, որը ես գտա բոլոր աշխատաթերթերը պաշտպանելու համար. Sub ProtectAllWorksheetsWithInputbox()
«Քայլ 1. Հայտարարեք ձեր փոփոխականները
Dim ws As Worksheet
Dim Pwd As String
«Քայլ 2. մուտքագրեք ձեր գաղտնաբառը՝ բոլոր աշխատաթերթերը պաշտպանելու համար
Pwd = InputBox («Մուտքագրեք ձեր գաղտնաբառը բոլոր աշխատաթերթերը պաշտպանելու համար», «Գաղտնաբառի մուտքագրում»)
«Քայլ 3. Սկսեք շրջանցել բոլոր աշխատաթերթերը
Յուրաքանչյուր ws-ի համար ActiveWorkbook.Worksheets-ում
«Քայլ 4. Պաշտպանեք և անցեք հաջորդ աշխատաթերթին
ws.Protect Password:=Pwd
Հաջորդ ws
Վերջ Sub

Կոդ, որը ես գտա՝ անջատելու համար «Ընտրել կողպված բջիջներ» տարբերակը.

1. ActiveSheet- ով
   
2. .Պաշտպանեք
   
3. .EnableSelection = xlUnlockedCells
   
4. Վերջ
   

Thanks,

Վիպիր