이 기사에서는 수식이 포함 된 셀을 보호하기 위해 워크 시트의 변경 이벤트를 사용합니다.

원시 데이터는 월별 및 연도 별 분기를 포함하는 직원 판매 데이터로 구성됩니다.

ArrowRawData

월별 및 연도 별 총 매출을 확인하려고합니다.

ArrowRawData2

합계 함수를 사용하여 월별 및 연간 총 매출을 계산했습니다. 워크 시트의 변경 이벤트는 수식이 포함 된 셀을 보호하는 데 사용됩니다. 수식이 포함 된 셀을 편집하려고하면 셀 값을 변경할 수 없다는 팝업 메시지가 표시됩니다.

코드 설명

rng.HasFormula HasFormula 메서드는 셀에 수식이 포함 된 경우 True를 반환합니다.

그렇지 않으면 False를 반환합니다.

ActiveSheet.Protect 위 코드는 셀을 보호하는 데 사용됩니다.

참고 : 셀은 잠겨있는 경우에만 보호됩니다. 따라서 세포를 보호하기 전에 잠 가야합니다. ActiveSheet.Unprotect 위의 코드는 셀 보호를 해제하는 데 사용됩니다.

아래 코드를 따르세요

'Add below code in worksheet module

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim rng As Range

For Each rng In Target.Cells

If rng.HasFormula Then

ActiveSheet.Protect

Else

ActiveSheet.Unprotect

End If

Next rng

End Sub

이 블로그가 마음에 들면 Facebook 및 Facebook에서 친구들과 공유하십시오.

여러분의 의견을 듣고 싶습니다. 작업을 개선하고 더 나은 서비스를 제공 할 수있는 방법을 알려주십시오. [email protected]로 문의 해주세요