아래코드로수정후실행해보았습니다.오류메세지는 이전과같이뜨네요 기본시트에서 데이타삭제가되지않네요 잠금셀해제하지않고는 방법이 없나요. Sub 저장1() ActiveSheet.Protect Application.Calculation = xlCalculationManual Dim C As Range Rows("1:36").Copy Sheets("Sheet2").Cells(65536, 1).End(xlUp)(2) For Each C In Range("a4,e4,ac4,ag4,p5:u5,y5:ab5,a8:ah23,a27:h30,i26:ah30,n32:r34,w32:aa33,af32:ah33,w34:ah34") If C.HasFormula = False Then C.Value = "" End If Next C Application.Calculation = xlCalculationAutomatic ActiveSheet.unpotect End Sub
@령이파일을 보진 못했지만... 특정범위에 수식이 들어있지 않은 셀을 모두 지우고자 하는 코드로 보입니다. 암튼... 어느 시트가 보호되어 있는지 정보도 없고 또 통합문서가 보호되었는지도 모르겠고... 일단 1행부터 36행까지 sheet2에 복사를 했는데 그때 activesheet는 sheet2가 아니고 데이터가 있던 시트가 될겁니다. 그래서 해당코드 이전에 unprotect해서 그런건 아닌가 하는 생각이 드는군요... 파일을 첨부해서 여쭤보면 좀더 구체적인 답변으로 도움을 주실분이 계실겁니다.
첫댓글 안녕하세요? [령이]님...
시트를 보호해제하고 문제가되는 코드를 수행하고 다시 시트를 보호하세요...
activesheet.protect "시트보호암호"
실행하고자 하는 코드
activesheet.unpotect "시트보호암호"
그럼 잘 해결되시길... ^^*
아래코드로수정후실행해보았습니다.오류메세지는 이전과같이뜨네요
기본시트에서 데이타삭제가되지않네요
잠금셀해제하지않고는 방법이 없나요.
Sub 저장1()
ActiveSheet.Protect
Application.Calculation = xlCalculationManual
Dim C As Range
Rows("1:36").Copy Sheets("Sheet2").Cells(65536, 1).End(xlUp)(2)
For Each C In Range("a4,e4,ac4,ag4,p5:u5,y5:ab5,a8:ah23,a27:h30,i26:ah30,n32:r34,w32:aa33,af32:ah33,w34:ah34")
If C.HasFormula = False Then
C.Value = ""
End If
Next C
Application.Calculation = xlCalculationAutomatic
ActiveSheet.unpotect
End Sub
@령이 파일을 보진 못했지만...
특정범위에 수식이 들어있지 않은 셀을 모두 지우고자 하는 코드로 보입니다.
암튼...
어느 시트가 보호되어 있는지 정보도 없고 또 통합문서가 보호되었는지도 모르겠고...
일단 1행부터 36행까지 sheet2에 복사를 했는데 그때 activesheet는 sheet2가 아니고 데이터가 있던 시트가 될겁니다.
그래서 해당코드 이전에 unprotect해서 그런건 아닌가 하는 생각이 드는군요...
파일을 첨부해서 여쭤보면 좀더 구체적인 답변으로 도움을 주실분이 계실겁니다.
답변감사합니다.
파일첨부로 질문드리겠습니다.
확인좀부탁드립니다.