Salt la conținutul principal

Cum se permite verificarea ortografică într-o foaie de lucru protejată în Excel?

În mod implicit, funcția de ortografie va fi dezactivată după protejarea foii de lucru, după cum se arată în imaginea de mai jos. Cum se permite verificarea ortografică într-o foaie de lucru protejată în Excel? Acest articol vă poate ajuta.

Permiteți verificarea ortografică într-o foaie de lucru protejată cu cod VBA


Permiteți verificarea ortografică într-o foaie de lucru protejată cu cod VBA

Rulați codul VBA de mai jos pentru a activa funcția de verificare ortografică într-o foaie de lucru protejată.

1. apasă pe Alt + F11 tastele simultan pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module. Apoi copiați și lipiți codul VBA de mai jos în fereastra Module. Vedeți captura de ecran:

Cod VBA: permite verificarea ortografică într-o foaie de lucru protejată

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

notițe: În cod, numărul „123” este parola foii de lucru protejate pe care ați creat-o pentru aceasta. Vă rugăm să îl modificați după cum aveți nevoie.

3. Selectați celula de care aveți nevoie pentru a activa verificarea ortografică în foaia de lucru protejată, apoi rulați codul VBA apăsând tasta F5.

Apoi, caseta de dialog Ortografie apare în foaia de lucru protejată, așa cum se arată mai jos.


Articole pe aceeași temă:

Cele mai bune instrumente de productivitate de birou

🤖 Kutools AI Aide: Revoluționați analiza datelor pe baza: Execuție inteligentă   |  Generați codul  |  Creați formule personalizate  |  Analizați datele și generați diagrame  |  Invocați funcțiile Kutools...
Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

Descriere


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
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