Excel 통합 문서의 셀 잠금 해제 문제

Question

다음 코드는 "ThisWorkBook"모듈에 있지만 특정 셀을 잠금 해제하는 데 문제가 있습니다. 아래 범위의 셀을 편집 할 수 없습니다.

Sheets("Sheet1").Protect Password:="Password01", UserInterFaceOnly:=True, AllowSorting:=True, AllowFiltering:=True 
Worksheets("Sheet1").Range("C6:C5000").Locked = False 
Worksheets("Sheet1").Range("E6:E5000").Locked = False 
Worksheets("Sheet1").Range("G6:G5000").Locked = False 
Worksheets("Sheet1").Range("I6:I5000").Locked = False 
Worksheets("Sheet1").Range("K6:K5000").Locked = False 
Worksheets("Sheet1").Range("M6:M5000").Locked = False 
Worksheets("Sheet1").Range("O6:O5000").Locked = False 

Answer 1

시트가 보호되어 있지 않으면 잠긴 셀의 속성 (잠금 플래그 포함) 만 변경할 수 있습니다. 코드가 먼저 시트를 보호 한 다음 셀을 변경하려고합니다.

이 시도 :

Sheets("Sheet1").Unprotect Password:="Password01" ' unprotect, so you can make changes 
Worksheets("Sheet1").Range("C6:C5000").Locked = False 
Worksheets("Sheet1").Range("E6:E5000").Locked = False 
Worksheets("Sheet1").Range("G6:G5000").Locked = False 
Worksheets("Sheet1").Range("I6:I5000").Locked = False 
Worksheets("Sheet1").Range("K6:K5000").Locked = False 
Worksheets("Sheet1").Range("M6:M5000").Locked = False 
Worksheets("Sheet1").Range("O6:O5000").Locked = False 
' protect after changes have been made 
Sheets("Sheet1").Protect Password:="Password01", UserInterFaceOnly:=True, AllowSorting:=True, AllowFiltering:=True