Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս թույլ տալ ուղղագրության ստուգում Excel- ում պաշտպանված աշխատանքային թերթում:

Լռելյայն, Ուղղագրության գործառույթը անջատված կլինի աշխատանքային թերթը պաշտպանելուց հետո, ինչպես ցույց է տրված նկարում: Ինչպե՞ս թույլ տալ ուղղագրության ստուգում Excel- ում պաշտպանված աշխատանքային թերթում: Այս հոդվածը կարող է օգնել ձեզ:

Թույլատրել ուղղագրության ստուգումը պաշտպանված աշխատանքային թերթում ՝ VBA կոդով


Թույլատրել ուղղագրության ստուգումը պաշտպանված աշխատանքային թերթում ՝ VBA կոդով

Խնդրում ենք գործարկել ստորև նշված VBA կոդը `պաշտպանված աշխատաթերթում ուղղագրության ստուգման գործառույթը միացնելու համար:

1. Սեղմեք ալտ + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք և տեղադրեք ներքևի VBA կոդը Մոդուլի պատուհանում: Տեսեք,

VBA կոդ. Ուղղագրության թույլտվություն թույլատրեք պաշտպանված աշխատանքային թերթում

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

ՆշումԿոդում «123» համարը դրա համար ձեր կողմից ստեղծված պաշտպանված աշխատանքային թերթի գաղտնաբառն է: Խնդրում եմ փոխեք այն, ինչ ձեզ հարկավոր է:

3. Ընտրեք այն բջիջը, որն անհրաժեշտ է պաշտպանված աշխատաթերթում ուղղագրության ստուգումը միացնելու համար, այնուհետև գործարկեք VBA կոդը ՝ սեղմելով F5 ստեղնը:

Դրանից հետո Ուղղագրության երկխոսության տուփը հայտնվում է պաշտպանված աշխատաթերթում, ինչպես ցույց է տրված ստորև նշված նկարը:


Առնչվող հոդվածներ:

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (12)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
HI thank you for this information it works well, but it gives away the password to anyone that uses it? is there a way to hide it?
This comment was minimized by the moderator on the site
Hi Bobbie Gower,
You can follow the following tutorial to hide the corresponding VBA Module to prevent others from viewing the password.
How to Protect and Hide Excel Macros
This comment was minimized by the moderator on the site
Hello!
スペルチェックができるようになりましたが、選択した範囲以外も引っかかってしまいます。選択した部分のみチェックしたい場合には、どうすればいいですか?
すみません、随分前にアップされたようですが、もしまだアクセスされているようでしたら、ご返信いただければ幸いです。
よろしくお願いいたします。
This comment was minimized by the moderator on the site
Hi korori,
I don't quite understand what you mean. The code works on the selected cells. If you want to check the spellings in a range, just select the range and run the code. Then the Spelling dialog box will pop up.
This comment was minimized by the moderator on the site
I'm trying to get a protected worksheet intended to be a form to have those fields that are entered by the form user to get spell check. This seems like you have to run VBA just to check one cell?
This comment was minimized by the moderator on the site
Hi,
The code has been updated with the problem solved, please have a try. Thank you for your comment.
This comment was minimized by the moderator on the site
Thanks for this. It has worked well, except that it changes my sheet protection settings every time I run it. I have my sheet protected, but set to allow users to format cells, columns, and rows; but after running this code, the protection is set back to the default. How can I retain my settings?
This comment was minimized by the moderator on the site
You have to modify the .protect code by adding allow the criteria you want.
Worksheets("Sheet1").Protect,<span style="letter-spacing: 0.2px; color: inherit; font-family: inherit; font-style: inherit; font-variant-ligatures: inherit; font-variant-caps: inherit; font-weight: inherit;">:=False, AllowInsertingColumns:=False, AllowInsertingRows:=False,</span><span style="letter-spacing: 0.2px; color: inherit; font-family: inherit; font-style: inherit; font-variant-ligatures: inherit; font-variant-caps: inherit; font-weight: inherit;">:=False, AllowFiltering:=False, </span>
This comment was minimized by the moderator on the site
So please help my with the correct code if possible, cant get it to work with AllowInsertingRows
.Protect ("Welkom") and then?????? bit of a nob tot this
my worksheet (tabs) is called for example P&A or BIOP
This comment was minimized by the moderator on the site
Hi, thanks for these steps, but please help!! I'm not getting the spell check window when pressing F5, instead I get a GoTo window listing all the names of the defined data ranges in my workbook. Thanks JulieD
This comment was minimized by the moderator on the site
Hi JulieD,
It's my mistake of the description in step 3. After selecting the cell, you need to go back to the Microsoft Visual Basic for Applications window and then press the F5 key to run the code. Sorry for the mistake and thanks for your comment.
This comment was minimized by the moderator on the site
So please help my with the correct code if possible, cant get it to work with AllowInsertingRows
.Protect ("Welkom") and then?????? bit of a nob tot this
my worksheet (tabs) is called for example P&A or BIOP
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations