통합시트보호와 VBA 명령어 설정 오류 해결 방법

VBA
작성자
june 자연
작성일
2024-07-03 15:54
조회
293
엑셀버전 : M365

운영체제 : 윈도우10

질문 요약 : 통합시트 보호 설정하고, 파일의 저장 및 다른 이름으로 저장 막는 방법 문의

회사에서 사용하고 있는 엑셀에

아래 코드를 이용하여 VBA 기능으로 '저장' 과 '다른이름으로 저장'을 막아두었습니다. (전임자가 작성해둔 코드입니다.)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim xName As String
xName = "CancelBeforeSave"

If Not Evaluate("=ISREF('" & xName & "'!A1)") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = xName & ""
Sheets(xName & "").Move after:=Worksheets(Worksheets.Count)
Sheets(xName & "").Visible = False
Exit Sub
End If
Cancel = True
End Sub

최근 보안사항 업데이트를 위해 '통합시트 보호' 설정을 추가하게 되었는데

에러가 발생하였습니다.

통합시트보호 설정을 하게 되면 상단 VBA 코드에 문제가 있다는 알림 메세지와 함께 아래 코드에 노란 음영이 표시됩니다.

Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = xName & ""

필요한 설정은 아래와 같습니다.

  1. 통합시트 보호
  2. 파일의 저장 및 다른이름으로 저장 막기

상기 두가지 설정을 위해 VBA를 수정하거나 좀 더 간단한 방법이 있는지 문의드립니다.

신고
스크랩
공유
전체 5

  • 2024-07-03 19:25

    사용하는 양식을 제가 소속된 부서가 배포를 해서 다른 부서가 사용을 하는데 연구실험결과 입력을 하는데 엑셀을 사용하고 있습니다. 때문에 실험결과의 데이터 완전성을 위한 조치의 일부분입니다.

    배포 양식의 남용 방지를 위해 저장을 방지하고 있으며

    시트를 통으로 복사해서 다른 파일을 열어 사용하는 것을 막고자 통합시트 보호를 설정하게 되었습니다


    • 2024-07-04 09:42

      @june 자연 님 파일을 그냥 복사해서 사용할 경우에도 문제가 없는 방법인가요?


      • 2024-07-04 11:15

        @원조백수 님 파일 자체를 배포해서 사용하는거라서 파일 자체를 복사하는 건 가능해야할 거 같습니다


      • 2024-07-04 13:07

        @원조백수파일을 복사해서 배부하는거라 복사는 가능해야할 거 같습니다


  • 2024-07-03 16:23

    @june 자연 님 이렇게 하는 이유를 여쭤 봐도 될까요?


전체 16,931
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[📚진짜쓰는 실무엑셀] 2024년 엑셀 공부, 이 책 한권으로 마스터하세요! (290)
오빠두엑셀 | 2022.02.03 | 추천 554 | 조회 844238
오빠두엑셀 2022.02.03 554 844238
공지사항 문서서식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (197)
오빠두엑셀 | 2021.10.28 | 추천 304 | 조회 31511
오빠두엑셀 2021.10.28 304 31511
74604 문서서식
New 간트차트 조건부서식 이용 문의 엑셀파일첨부파일 (1)
배고픈짐승 | 2024.10.30 | 추천 0 | 조회 10
배고픈짐승 2024.10.30 - 10
74599 함수/공식
New 이런 경우에는 무슨 함수를 써야할까요..? (2)
iwnqn | 2024.10.30 | 추천 0 | 조회 26
iwnqn 2024.10.30 - 26
74598 문서서식
New 엑셀 유효성 검사 뛰어 쓰기 문제 엑셀파일 (2)
퉁퉁이 | 2024.10.30 | 추천 0 | 조회 24
퉁퉁이 2024.10.30 - 24
74592 함수/공식
New 여러 값들 중에서 원하는 값을 찾고 싶어요 도와주세요! 첨부파일 (6) 답변완료
저도해볼게요 | 2024.10.30 | 추천 0 | 조회 47
저도해볼게요 2024.10.30 - 47
74589 구글시트
New 한셀에 줄바꿈으로 있는 여러데이터를 한셀에 한데이터 들어가게끔 일괄로 하고 싶습니다 첨부파일 (4) 답변완료
스톤스톤 | 2024.10.30 | 추천 0 | 조회 38
스톤스톤 2024.10.30 - 38
74585 VBA
New UserForm 크기질문 첨부파일 (4) 답변완료
땡이 | 2024.10.30 | 추천 0 | 조회 53
땡이 2024.10.30 - 53
74583 함수/공식
New XLOOKUP 함수의 다중조건을 잘 모르겠습니다 첨부파일 (4)
qlcc**** | 2024.10.30 | 추천 0 | 조회 53
qlcc**** 2024.10.30 - 53
74582 함수/공식
New filter 함수에 대해 문의드립니다 (5)
김은상 | 2024.10.30 | 추천 0 | 조회 54
김은상 2024.10.30 - 54
74581 구글시트
New 구글폼 견적서 자동화 관련, 폼에서 입력된 이미지 파일을 견적서에 넣는 방법 좀 알려주시면 감사하겠습니다.
| 2024.10.30 | 추천 0 | 조회 40
2024.10.30 - 40
74572 차트/그래프
New 꺽은선 그래프의 레이블이 원복이 됩니다. 첨부파일 (3)
구리구리이 | 2024.10.30 | 추천 0 | 조회 47
구리구리이 2024.10.30 - 47
74570 함수/공식
New 배수 금액으로 순번 정하기 알려 주세요...ㅠ 엑셀파일첨부파일 (3)
서기 | 2024.10.30 | 추천 0 | 조회 41
서기 2024.10.30 - 41
74566 함수/공식
New 두개의 열에 입력된 데이터를 순서 바꿔서 입력으로 중복일 때 골라내는 법 엑셀파일첨부파일 (1)
문과적남자 | 2024.10.30 | 추천 0 | 조회 44
문과적남자 2024.10.30 - 44
74564 함수/공식
New 각 열별로 합 구하는 방법 첨부파일 (1)
라핼 | 2024.10.30 | 추천 0 | 조회 53
라핼 2024.10.30 - 53
74563 함수/공식
New 필터 적용시 중복값 제외 카운트 되는 법 좀 알려주세요 ㅠㅠ 첨부파일 (1)
정재욱 | 2024.10.30 | 추천 0 | 조회 60
정재욱 2024.10.30 - 60
74558 함수/공식
New 문자와 숫자가 섞여있는 열의 합계와 평균을 구하는 방법을 알려주세요!! 첨부파일 (9)
침착해 | 2024.10.30 | 추천 0 | 조회 63
침착해 2024.10.30 - 63
74556 함수/공식
New 세트상품 마진율 구하기 (2)
ek02 | 2024.10.30 | 추천 0 | 조회 53
ek02 2024.10.30 - 53
74543 기능/도구
New 문자와 숫자 혼합된 셀에서 숫자만 따로 따올수 있는 기능이 있을까요? 첨부파일 (3)
야만용사 | 2024.10.29 | 추천 0 | 조회 89
야만용사 2024.10.29 - 89
74542 기능/도구
New 엑셀 백분율 숫자로변경 (3)
rarara | 2024.10.29 | 추천 0 | 조회 78
rarara 2024.10.29 - 78
74540 함수/공식
New ★데이터 가공★ 잘못된 데이터를 올바른 데이터로 변환하는 과정을 도와주세요 ㅠㅠ 엑셀파일첨부파일 (10)
| 2024.10.29 | 추천 0 | 조회 111
2024.10.29 - 111
74539 함수/공식
New 안녕하세요 INDEX, MATCH 다중조건 질문드립니다! 엑셀파일 (3)
gys**** | 2024.10.29 | 추천 0 | 조회 86
gys**** 2024.10.29 - 86
74533 함수/공식
New 산출집계시트에 항목을 산출서에서 가져오고싶어요 엑셀파일 (3)
Moto | 2024.10.29 | 추천 0 | 조회 81
Moto 2024.10.29 - 81
74532 문서서식
New [질문] 전체 행 또는 열을 선택 후 특정 셀만 선택 제외 시키기 첨부파일 (2)
ViVaViva | 2024.10.29 | 추천 0 | 조회 70
ViVaViva 2024.10.29 - 70
74530 함수/공식
New Lookup 함수 오류에 관한 문의 엑셀파일첨부파일 (6) 답변완료
TMOH | 2024.10.29 | 추천 0 | 조회 85
TMOH 2024.10.29 - 85
74528 함수/공식
New 다중조건 만족하는 결과를 가져오고싶습니다 도와주세요 ㅠㅠ 엑셀파일첨부파일 (7)
말하지마00 | 2024.10.29 | 추천 0 | 조회 90
말하지마00 2024.10.29 - 90
74526 함수/공식
New 열과 행으로 정렬된 데이터를 같은 행으로 표시하려고 합니다. 엑셀파일 (2) 답변완료
깐부 | 2024.10.29 | 추천 0 | 조회 71
깐부 2024.10.29 - 71
74521 함수/공식
New B시트에서 A시트 항목 제품 및 수량 가져오는법좀 부탁드려요 첨부파일 (2)
Moto | 2024.10.29 | 추천 0 | 조회 72
Moto 2024.10.29 - 72
74520 VBA
New VBA 런타임 오류 관련 질문 첨부파일 (1)
angelriun | 2024.10.29 | 추천 0 | 조회 54
angelriun 2024.10.29 - 54
74518 함수/공식
New 두 시트에서 교집합 찾기 (3)
우파루파 | 2024.10.29 | 추천 0 | 조회 83
우파루파 2024.10.29 - 83
74516 구글시트
New 렌덤으로 배치 할수 있는 방법이 있을까요? 첨부파일 (8)
피망이 | 2024.10.29 | 추천 0 | 조회 74
피망이 2024.10.29 - 74
74513 함수/공식
New 엑셀로 명리를 정리하던 중에.. 엑셀파일 (8)
Ballad | 2024.10.29 | 추천 0 | 조회 101
Ballad 2024.10.29 - 101