수식이 든 셀만 수정 못하게 막는 법

Sub ProtectFormulaCells()

'

' 수식이 들어 있는 셀만 수정하지 못하게 잠금처리함

'

Dim ws As Worksheet

Set ws = ActiveSheet ' 현재 활성화된 워크시트를 가져옴

' 보호할 셀 범위 선택

Dim rng As Range

Set rng = ws.Cells.SpecialCells(xlCellTypeFormulas)

' 셀 보호 설정

rng.Locked = True

ws.Protect ' 워크시트 보호

End Sub