can someone help me with this problem. its about this script. <pre class="line-numbers"><code class="language-markup">Sub</code></pre> <pre class="line-numbers"><code class="language-markup">ProtectSheetCheckSpellCheck()</code></pre><pre class="line-numbers"><code class="language-markup">'Update by Extendoffice 2018/11/2</code></pre><pre class="line-numbers"><code class="language-markup">Dim</code></pre> <pre class="line-numbers"><code class="language-markup">xRg </code></pre><pre class="line-numbers"><code class="language-markup">As</code></pre> <pre class="line-numbers"><code class="language-markup">Range</code></pre><pre class="line-numbers"><code class="language-markup">On</code></pre> <pre class="line-numbers"><code class="language-markup">Error</code></pre> <pre class="line-numbers"><code class="language-markup">Resume</code></pre> <pre class="line-numbers"><code class="language-markup">Next</code></pre><pre class="line-numbers"><code class="language-markup">Application.ScreenUpdating = </code></pre><pre class="line-numbers"><code class="language-markup">False</code></pre><pre class="line-numbers"><code class="language-markup"> </code></pre><pre class="line-numbers"><code class="language-markup">With</code></pre> <pre class="line-numbers"><code class="language-markup">ActiveSheet</code></pre><pre class="line-numbers"><code class="language-markup"> </code></pre><pre class="line-numbers"><code class="language-markup">.Unprotect (</code></pre><pre class="line-numbers"><code class="language-markup">"123"</code></pre><pre class="line-numbers"><code class="language-markup">)</code></pre><pre class="line-numbers"><code class="language-markup"> </code></pre><pre class="line-numbers"><code class="language-markup">Set</code></pre> <pre class="line-numbers"><code class="language-markup">xRg = .UsedRange</code></pre><pre class="line-numbers"><code class="language-markup"> </code></pre><pre class="line-numbers"><code class="language-markup">xRg.CheckSpelling</code></pre><pre class="line-numbers"><code class="language-markup"> </code></pre><pre class="line-numbers"><code class="language-markup">.Protect (</code></pre><pre class="line-numbers"><code class="language-markup">"123"</code></pre><pre class="line-numbers"><code class="language-markup">)</code></pre><pre class="line-numbers"><code class="language-markup"> </code></pre><pre class="line-numbers"><code class="language-markup">End</code></pre> <pre class="line-numbers"><code class="language-markup">With</code></pre><pre class="line-numbers"><code class="language-markup">Application.ScreenUpdating = </code></pre><pre class="line-numbers"><code class="language-markup">True</code></pre><pre class="line-numbers"><code class="language-markup">End</code></pre> <pre class="line-numbers"><code class="language-markup">Sub</code></pre> 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? answer to that was; You have to modify the .protect code by adding allow the criteria you want. Worksheets("Sheet1").Protect,:=False, AllowInsertingColumns:=False, AllowInsertingRows:=False,:=False, AllowFiltering:=False, 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 thismy worksheet (tabs) is called for example P&A or BIOp and i can get it right in the original script?

Շնորհակալություն սրա համար: Այն լավ է աշխատել, բացառությամբ, որ այն փոխում է իմ թերթիկի պաշտպանության կարգավորումները ամեն անգամ, երբ այն գործարկում եմ: Ես պաշտպանված եմ իմ թերթիկը, բայց սահմանվել է այնպես, որ օգտագործողներին թույլ տամ ձևաչափել բջիջները, սյունակները և տողերը; բայց այս կոդը գործարկելուց հետո պաշտպանությունը վերադարձվում է լռելյայնին: Ինչպե՞ս կարող եմ պահպանել իմ կարգավորումները:
դրա պատասխանն էր. Դուք պետք է փոփոխեք .protect կոդը՝ ավելացնելով Ձեր ուզած թույլ չափանիշները: Աշխատանքային թերթիկներ («Թերթ 1»): Պաշտպանել,:=False, AllowInsertingColumns:=False, AllowInsertingRows:=False,:=Սխալ, AllowFiltering:=Սխալ,
Այսպիսով, խնդրում եմ, եթե հնարավոր է, օգնեք ինձ ճիշտ կոդով, չեմ կարող ստիպել, որ այն աշխատի AllowInsertingRows.Protect-ի հետ («Welkom») և հետո?????? Այս իմ աշխատաթերթը (ներդիրները) կոչվում է, օրինակ, P&A կամ BIOp

և ես կարո՞ղ եմ այն ճիշտ ստանալ օրիգինալ սցենարով:

Ամանդա Լին

2 տարի առաջ

#2313

Քվեարկել

արձակել

Բարև Mic@sha,

Ձեր օգտատերերին բջիջների, սյունակների և տողերի ձևաչափը թույլ տալու համար օգտագործեք ստորև նշված կոդը.

Sub ProtectSheetCheckSpellCheck()

'Update by Extendoffice 2021/12/20

Dim xRg As Range

On Error Resume Next

Application.ScreenUpdating = False

With ActiveSheet

.Unprotect ("123")

Set xRg = .UsedRange

xRg.CheckSpelling

'Password, Allow Formatting Cells, Allow Formatting Columns, Allow Formatting Rows

.Protect Password:="123", AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True

End With

Application.ScreenUpdating = True

End Sub

Amanda

էջ:
1

Այս գրառման համար դեռևս պատասխաններ չեն տրվել:

Խնդրում ենք մուտք գործել՝ պատասխան փակցնելու համար

Դուք պետք է մուտք գործեք, որպեսզի կարողանաք պատասխան փակցնել: Մուտք գործեք՝ օգտագործելով աջ կողմում գտնվող ձևը կամ գրանցեք հաշիվ, եթե նոր եք այստեղ: Գրանցվել այստեղ »