시트 복사 시 시트 이벤트 매크로를 제외하고 복사하는 방법

문서서식
작성자
무언
작성일
2021-11-04 21:33
조회
79
엑셀버전 : 엑셀2019

운영체제 : 윈도우10

Sheets.Copy 를 이용해서 다수의 시트를 새 통합문서에 복사하였습니다.

문제는 시트가 복사될 때 각 시트에 포함된 이벤트 매크로가 함께 복사가 되네요.

해당 매크로가 있는 모듈은 복사가 되지 않기에 이벤트 발생 시 컴파일 오류가 발생합니다.

매크로 기능은 필요 없기에 해당 이벤트 매크로는 시트 복사 시 삭제하고 싶은데 혹시 방법이 있을까요?

생성된 통합문서를 xlsx 로 저장하면서 매크로를 포함하지 않으면 삭제되긴 하는데, 저장하지 않은 상태에서 해당 매크로를 VBA 코드를 이용해 삭제하고 싶습니다.

조언 부탁드립니다.

전체 7

  • 2021-11-08 21:02

    다시 테스트해보니 Application.CopyObjectswithCells 옵션으로도 매크로는 여전히 지워지지 않는 것 같습니다.

    낮에 되었던 것은 해당 코드 뒤에  편법으로 작성했던 코드가 동작했던 것이었네요. ㅠ_ㅠ

    편법이지만 임시파일로 xlsx 저장 -> 파일을 열어 시트 복사 -> 임시파일 삭제 순으로 처리하였습니다.


    • 2021-11-10 04:36

      @무언 님 Objects를 지우는 것과, VBE에 있는 내용을 지우는 것은 아무런 관련이 없습니다. 참고하시기를.


  • 2021-11-05 01:23

    1. VBE Object를 이용해서 시트 복사 후 복사된 시트의 매크로를 자동으로 삭제하는 로직을 쓰면 어떨까 생각해 봅니다.
    2. 빈 시트를 만들고 복사할 시트의 모든 셀을 선택하여 붙여넣기 하는 방법


    • 2021-11-08 10:28

      @dra**** 님 조언 감사합니다.

      VBE Object를 이용할 경우, 보안설정을 손봐줘야 한다는 이야기가 있어서 시도해보지는 못하였습니다.

      2번 방법도 고민 중이었는데 Yukon님 답변으로 해결되었습니다.


  • 2021-11-05 04:06
    채택된 답변

    Copy Procedure에  Application.CopyObjectswithCells = False로 하시고 수행 후에 True로 돌리시면 됩니다.


    • 2021-11-08 10:26

      @Yukon 님 감사합니다. 말씀하신 방법으로 복사해서 해결하였습니다. 🙂


  • 2021-11-05 09:29

    헐!!. 궁금했던건데 감사합니다.~.


전체 4,633
번호 카테고리 제목 작성자 작성일 추천 조회
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (8)
오빠두엑셀 | 2021.10.28 | 추천 12 | 조회 664
트로피 오빠두엑셀 2021.10.28 12 664
24099 함수/공식
New 입력한 값에 따라 IMAGE 자동입력 함수 문제 관련
유지연 | 00:11 | 추천 0 | 조회 5
유지연 00:11 0 5
24098 VBA
New 워드 Format(숫자, "#,###") (1)
argus | 2021.11.28 | 추천 0 | 조회 10
argus 2021.11.28 0 10
24097 VBA
New 각각 형식이 다른 여러 시트에서 원하는 값들만 가져와서 한 시트에 보기 쉽게 합치고 싶습니다. 첨부파일 (1)
축전 | 2021.11.28 | 추천 0 | 조회 14
축전 2021.11.28 0 14
24096 VBA
New 엑셀 재고관리툴 만들기 VBA영상 시청중 오류 발생관련 문의입니다. 첨부파일
가을전어 | 2021.11.28 | 추천 0 | 조회 8
가을전어 2021.11.28 0 8
24093 기능/도구
New 작업표시줄 클릭으로 클립보드에 복사 문제 관련
어루 | 2021.11.28 | 추천 0 | 조회 10
어루 2021.11.28 0 10
24091 VBA
New 도와주세요! 뭐가 문제인지 못찾겠습니다.
y**** | 2021.11.28 | 추천 0 | 조회 14
y**** 2021.11.28 0 14
24089 VBA
New 엑셀 vlookup vba 문의드립니다. (1)
ㅈㄱㄹ | 2021.11.28 | 추천 0 | 조회 16
ㅈㄱㄹ 2021.11.28 0 16
24088 함수/공식
New 개인별 회비 납부 현황에 따라 월별 납부액 결정 관련 함수 또는 VBA (미납, 매월 16일 이후 납부할 경우 월회비 10% 가산) 첨부파일
007 | 2021.11.28 | 추천 0 | 조회 25
007 2021.11.28 0 25
24081 함수/공식
New 영문주소를 한글주소로 변경 희망합니다. (1)
루s cos 개인대행 | 2021.11.28 | 추천 0 | 조회 21
루s cos 개인대행 2021.11.28 0 21
24072 VBA
New 수식이 있는 데이터에서 매크로를 사용하여 다른시트에 결과값만 붙여넣고 싶습니다. 첨부파일 (6) 답변완료
호랑이파워 | 2021.11.28 | 추천 0 | 조회 43
호랑이파워 2021.11.28 0 43
24068 파워쿼리/피벗
New 파워쿼리 간단한 '값 바꾸기' 에 대해서 질문드립니다. 첨부파일 (3)
월마리아 | 2021.11.28 | 추천 0 | 조회 28
월마리아 2021.11.28 0 28
24065 피벗테이블
New 열과 행 바꾸는 쉬운 방법있나요? 첨부파일 (5) 답변완료
jyj6**** | 2021.11.27 | 추천 0 | 조회 41
jyj6**** 2021.11.27 0 41
24060 VBA
New 메모리가 부족하다고 뜹니다. 첨부파일
선물 | 2021.11.27 | 추천 0 | 조회 25
선물 2021.11.27 0 25
24059 VBA
New 첨부파일을 서버 업로드 (1)
권원재 | 2021.11.27 | 추천 0 | 조회 24
권원재 2021.11.27 0 24
24053 파워쿼리/피벗
New 엑셀 배열 순서를 바꾸고 싶습니다. 첨부파일
jyj6**** | 2021.11.27 | 추천 1 | 조회 29
jyj6**** 2021.11.27 1 29
VBA
New Re:엑셀 배열 순서를 바꾸고 싶습니다.
Yukon | 2021.11.27 | 추천 1 | 조회 36
Yukon 2021.11.27 1 36
피벗테이블
New Re:Re:엑셀 배열 순서를 바꾸고 싶습니다. (1)
jyj6**** | 2021.11.27 | 추천 0 | 조회 22
jyj6**** 2021.11.27 0 22
24048 VBA
New 재고관리 툴 만들기 질문이요 첨부파일 (3)
선물 | 2021.11.26 | 추천 0 | 조회 35
선물 2021.11.26 0 35
24046 함수/공식
New 날짜별로 근태 정리를 하려면 어떻게 해야할까요 첨부파일 (2)
ㅁㅁㅁㅁㅁ | 2021.11.26 | 추천 0 | 조회 49
ㅁㅁㅁㅁㅁ 2021.11.26 0 49
24042 VBA
New 한 코드를 가진 사람의 계약일자 최소값 최대값 구하기 첨부파일 (2)
seorin | 2021.11.26 | 추천 0 | 조회 31
seorin 2021.11.26 0 31
24039 함수/공식
New 다중 조건 및 가장 낮은 일시에 매칭되는 값 불러오기 첨부파일 (6)
감사하모니카 | 2021.11.26 | 추천 0 | 조회 33
감사하모니카 2021.11.26 0 33
24038 VBA
New ZAN IMAGE PRINTER 프로그램에서 JPG 파일명을 내 마음대로 (3)
goodman | 2021.11.26 | 추천 0 | 조회 22
goodman 2021.11.26 0 22
24033 문서서식
New 조건부 서식 특정열 단어포함시 해당 행의 서식 변경 방법 첨부파일 (2) 답변완료
아빠의꿈 | 2021.11.26 | 추천 0 | 조회 31
아빠의꿈 2021.11.26 0 31
24032 함수/공식
New 함수 초보 질문있습니다. (2) 답변완료
윤태종 | 2021.11.26 | 추천 0 | 조회 31
윤태종 2021.11.26 0 31
24029 VBA
New 엑셀로그인 프로그램 사용자 개인별 시트만 보이게 하는 방법 첨부파일 (1)
엑셀이 | 2021.11.26 | 추천 0 | 조회 37
엑셀이 2021.11.26 0 37
24014 VBA
New Private Sub Worksheet_Change(ByVal Target As Range) 조건문의 (1)
yg | 2021.11.26 | 추천 1 | 조회 35
yg 2021.11.26 1 35
24011 VBA
vba 고급필터후 인쇄 자동화 첨부파일 (1)
naver_6180ef1e63220 | 2021.11.26 | 추천 0 | 조회 39
naver_6180ef1e63220 2021.11.26 0 39
24010 문서서식
양이 많은 '병합하고 가운데 맞춤 '버튼을 눌러서 할일을 쉽게 하는방법 첨부파일 (3)
아빠의꿈 | 2021.11.26 | 추천 0 | 조회 46
아빠의꿈 2021.11.26 0 46
24009 함수/공식
오빠두 강의 중 마지막셀 이동에 관하여 질문드립니다. (MATCH함수) (2)
월마리아 | 2021.11.25 | 추천 0 | 조회 38
월마리아 2021.11.25 0 38
24006 함수/공식
조건부 서식 함수 첨부파일 (1)
AFOPWEOI1213 | 2021.11.25 | 추천 -1 | 조회 44
AFOPWEOI1213 2021.11.25 -1 44
24005 파워쿼리/피벗
파워쿼리에서 다중조건 평균구하기 (1)
황선규 | 2021.11.25 | 추천 0 | 조회 28
황선규 2021.11.25 0 28
24002 기능/도구
엑셀 요 기능 이름이 뭐죠?ㅜㅜ (2) 답변완료
냥냥 | 2021.11.25 | 추천 0 | 조회 44
냥냥 2021.11.25 0 44