[Excel] VB6 Excel 시트보호 된 셀에 에러발생시 처리

Excel에서 시트보호가 되어 있는경우 값을 바꾸거나 할경우 에러가 발생합니다. 

이경우는 수정하기 전에 Uprotect를 해주시고 수정후 Protect를 해주시면 됩니다. 

너무 많이 사용할 경우 암호를 바꾸어야 할때 많이 바뀌어야 하므로 함수로 만들어서 사용하시면

편리합니다. 

 

Worksheets(sheetname).Unprotect 암호

Worksheets(sheetname).Protect 암호

 

 

Sub macro1()

sheet_unprotect "Sheet1"

' Cell  수정

sheet_protect  "Sheet1"

End Sub

 

Function sheet_unprotect(sheetname As String)

 

    Worksheets(sheetname).Unprotect "1234"

    

End Function

 

 

Function sheet_protect(sheetname As String)

 

    Worksheets(sheetname).Protect "1234"

 

End Function