잠긴 셀 선택을 선택 취소하여 여러 시트 보호

인사말,

여러 워크시트를 보호 및 보호 해제하고 보호된 셀을 선택할 수 없도록 잠긴 셀 선택 옵션을 비활성화하고 싶습니다.

여러 워크시트를 한 번에 잠글 수 있는 VBA 코드와 잠긴 셀 비트에 대한 약간의 코드를 찾았지만 둘을 병합하는 방법에 대한 단서가 없습니다.

리본의 정렬 섹션에 있는 보호 탭을 통해 잠금을 해제하려는 셀이 있습니다. 

참고로 이 워크북은 이전 주제와는 다릅니다.

모든 워크시트를 보호하기 위해 찾은 샘플 코드:Sub ProtectAllWorksheetsWithInputbox()
'1단계: 변수 선언
워크시트로 Dim ws
문자열로 희미한 Pwd
'2단계: 모든 워크시트를 보호하려면 비밀번호를 입력하세요.
Pwd = InputBox("모든 워크시트를 보호하려면 비밀번호를 입력하세요.", "비밀번호 입력")
'3단계: 모든 워크시트 반복 시작
ActiveWorkbook.Worksheets의 각 ws에 대해
'4단계: 보호하고 다음 워크시트로 반복
ws.비밀번호 보호:=Pwd
다음 ws
최종 하위

잠긴 셀 선택 옵션을 비활성화하는 코드를 찾았습니다.

1. 액티브 시트 포함
   
2. .보호하다
   
3. .EnableSelection = xlUnlockedCells
   
4. 끝
   

감사합니다,

비에피르