신제품

Excel에서 beveiligd werkblad의 괭이 맞춤법 제어?

  뛰어나다
마이크@샤
  마이크@샤
  토요일, 02 10 월 2021
  1 답글
  7.3K 방문
0
투표
취소
누군가가 이 문제를 도와줄 수 있습니까? 이 스크립트에 대한 것입니다. 
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


감사합니다. 실행할 때마다 시트 보호 설정이 변경된다는 점을 제외하고는 잘 작동했습니다. 시트를 보호했지만 사용자가 셀, 열 및 행의 서식을 지정할 수 있도록 설정했습니다. 그러나 이 코드를 실행한 후에는 보호가 기본값으로 다시 설정됩니다. 내 설정을 유지하려면 어떻게 해야 합니까?
그것에 대한 대답은; 원하는 허용 기준을 추가하여 .protect 코드를 수정해야 합니다. 워크시트("Sheet1").Protect,:=거짓, AllowInsertingColumns:=거짓, AllowInsertingRows:=거짓,:=거짓, AllowFiltering:=거짓, 
따라서 가능한 경우 올바른 코드로 나를 도와주세요. AllowInsertingRows.Protect("Welkom")와 함께 작동하도록 할 수 없습니다. 그런 다음?????? 예를 들어 P&A 또는 BIOp과 같이 이 워크시트(탭)의 일부가 호출됩니다.

원본 스크립트에서 바로 얻을 수 있습니까?

 
0
오래된 것을 처음으로  
아만다 리
아만다 리
2 년 전
·
#2313
0
투표
취소
안녕하세요 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


아만다
  • 페이지 :
  • 1
이 게시물에 대한 답변이 없습니다.