옵션단추에 따른 저장여부지정

VBA
작성자
iviolin****
작성일
2021-01-13 20:20
조회
45

말그대로 옵션단추에 따른 메크로를 만들어볼려고 했습니다.

그런데

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ThisWorkbook.Worksheets(1).NAdminBtn = True Then
Application.DisplayAlerts = False
Application.EnableEvents = False
Application.Quit
ElseIf ThisWorkbook.Worksheets(1).AdminBtn = True Then
Application.DisplayAlerts = True
Application.EnableEvents = True
ThisWorkbook.Saved = True
End If

End Sub

라고 하니 관리자로그인(AdminBtn)을 선택하던 일반로그인(NAdminBtn)을 선택하던

저장여부 창이 안뜨고 그냥 바로 꺼져버립니다.

그리고 AdminBtn을 누르면 저장을 하고 꺼지는게아니라 저장도 안되고 그냥 바로 꺼집니다...

일반로그인을 선택한 상태로 엑셀을 닫을려고하면 그냥 저장하지않고 바로 닫아지고

관리자로그인을 선택한 상태로 엑셀을 닫을려고하면

이 창을 띄우고 여기서 선택 여부에 따라 저장을 할지 안할지를 결정하는 메크로를알고 싶습니다.

 

그리고 Save,SaveAs는 검색하면 잘 나오는데 Saved는 아무리 검색을해도 무슨 메크로인지 설명이 안나와서 여쭤봅니다...

오빠두님의 강의중 저장여부를 결정하는 메크로에 Saved 가 있어서 뭔지 모르지만 저장여부 결정하는건줄알고 썼긴 했는데

도대체 무슨 코드인지 모르겠습니다..

회원등급 : 나무3단계
포인트 : 3213 EP
총질문 : 25 개 (마감율 : 24%)
채택답변 : 18 개
전체 2

  • 2021-01-14 09:44
    채택된 답변

    .SAVED는 마지막 저장 이후 변경된 내용이 없을 때 TRUE 를 반환하는 속성입니다.
    기능을 하는 메서드(함수)가 아닌 상태를 보관하고있는 속성인 것이지요. 고로 위의 코드는 기능은 하지 않고 속성만 추가해두신 셈이 됩니다.

    Workbook_BeforeClose인 경우에 작동하므로, application.quit메서드는 사용하지 않으셔도 될 것 같구, ELSEIF 구문에 SAVED 속성을 FALSE로 설정하시는 것만으로 항상 변경된 내용이 있는것으로 인지하여 원하시는 기능이 구현 될것입니다.

    Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If ThisWorkbook.Worksheets(1).NAdminBtn = True Then
    Application.DisplayAlerts = False
    Application.EnableEvents = False
    ElseIf ThisWorkbook.Worksheets(1).AdminBtn = True Then
    ThisWorkbook.Saved = False
    End If

    End Sub

    혹시 단추를 클릭했을때 동작하는 매크로를 만드려고 하셨던 것이라면, 새 모듈에 작성하시는게 맞습니다!^^


전체 2,124
번호 카테고리 제목 작성자 작성일 추천 조회
2116 함수/공식
New 금일 검침 전 검침 계산방법 첨부파일
우덜 | 02:31 | 추천 0 | 조회 4
우덜 02:31 0 4
2115 VBA
New [코드관련질문] 01강. 엑셀 매크로 자동화를 위한 필수 모듈! - 파일선택창 모듈 만들기
문정동 청개구리 | 00:02 | 추천 0 | 조회 15
문정동 청개구리 00:02 0 15
2114 함수/공식
New 엑셀 시트간 연동 질문입니다 2번째.. ㅠㅠ 첨부파일 (4) 답변완료
나구짱 | 2021.01.20 | 추천 0 | 조회 24
나구짱 2021.01.20 0 24
2113 함수/공식
New 일치하는 값 제외 나머지 전체 합계 함수 관련, 응용 함수 사용 방법 첨부파일 (1)
눈물젖은빵 | 2021.01.20 | 추천 0 | 조회 24
눈물젖은빵 2021.01.20 0 24
2112 피벗테이블
New 피벗테이블 차트 삽입 시 동적 범위 설정 관련 문의 (4) 답변완료
새신랑 | 2021.01.20 | 추천 0 | 조회 26
새신랑 2021.01.20 0 26
2111 함수/공식
New 질문이 있습니다(기초함수) (1)
새우깡 | 2021.01.20 | 추천 0 | 조회 21
새우깡 2021.01.20 0 21
2110 VBA
New 엑셀 VBA 를 이용한 웹크롤링 방법
코코 | 2021.01.20 | 추천 0 | 조회 19
코코 2021.01.20 0 19
2109 함수/공식
New GetStockNo을 추가기능에 적용 시켰음에도 #value! 만 뜹니다. (1)
robot**** | 2021.01.20 | 추천 0 | 조회 19
robot**** 2021.01.20 0 19
2108 함수/공식
New 특정 형식의 자료만 자동 추출하는 함수 구성방법 (3)
마운틴 | 2021.01.20 | 추천 2 | 조회 34
마운틴 2021.01.20 2 34
2107 함수/공식
New 일자별 매출합계 변동시 일별매출합계표에 일자별 합계 자동추가 방법 (2)
마운틴 | 2021.01.20 | 추천 0 | 조회 23
마운틴 2021.01.20 0 23
2106 VBA
New VBA 속도 향상시 도형 새로고침 안되는 문제 (2)
와따나 | 2021.01.20 | 추천 0 | 조회 21
와따나 2021.01.20 0 21
2105 VBA
New 시트 합치기 (1)
ber217an | 2021.01.20 | 추천 0 | 조회 17
ber217an 2021.01.20 0 17
2104 문서서식
New 조건부서식 텍스트처리 (1)
두부 | 2021.01.20 | 추천 0 | 조회 24
두부 2021.01.20 0 24
2103 함수/공식
New 마지막자리수 올림이나 반올림 없이 버리는 방법 문의 (6) 답변완료
스페셜라떼 | 2021.01.20 | 추천 0 | 조회 23
스페셜라떼 2021.01.20 0 23
2102 함수/공식
New counterif 첨부파일 (6) 답변완료
bethegeek | 2021.01.20 | 추천 0 | 조회 30
bethegeek 2021.01.20 0 30
2101 기능/도구
New 단축키를 변경할 수는 없나요? (1)
라이프툴즈 | 2021.01.20 | 추천 0 | 조회 24
라이프툴즈 2021.01.20 0 24
2100 함수/공식
New VLOOKUP 사용이 잘못되었나요? 고수님들 함 봐주세요... 첨부파일 (1)
천~영 | 2021.01.20 | 추천 0 | 조회 29
천~영 2021.01.20 0 29
2099 함수/공식
New 인덱스, 매치?? 어떤거 쓰나요? 첨부파일 (4) 답변완료
ㅋㅋㅋㅋ | 2021.01.20 | 추천 1 | 조회 37
ㅋㅋㅋㅋ 2021.01.20 1 37
2098 함수/공식
New 엑셀 숫자 데이터 분 단위 기록 총 시간으로 변경하기 (2) 답변완료
후루쿠쿠 | 2021.01.20 | 추천 0 | 조회 33
후루쿠쿠 2021.01.20 0 33
2097 VBA
New 웹크롤링 href로 URL 추출 해결 방법 (2)
dltmdghe**** | 2021.01.20 | 추천 0 | 조회 35
dltmdghe**** 2021.01.20 0 35
2096 VBA
New 상품검색목록 웹크롤링 관련 페이지 넘기기 해결방법 첨부파일 (2)
Grace | 2021.01.19 | 추천 0 | 조회 33
Grace 2021.01.19 0 33
2095 함수/공식
New (해찾기 강의 내용 중) vlookup 관련 질문 (1)
jo2 | 2021.01.19 | 추천 0 | 조회 30
jo2 2021.01.19 0 30
2094 함수/공식
New 엑셀 시트간 연동 질문입니다 (2) 답변완료
나구짱 | 2021.01.19 | 추천 1 | 조회 33
나구짱 2021.01.19 1 33
2093 기능/도구
New 엑셀은 아니지만 엑셀+워드 메일머지 기능 관련입니다. (1)
june | 2021.01.19 | 추천 0 | 조회 23
june 2021.01.19 0 23
2092 함수/공식
New sumif 함수 오류 관련 문의 첨부파일 (1)
알면서 | 2021.01.19 | 추천 0 | 조회 29
알면서 2021.01.19 0 29
2091 함수/공식
New 엑셀 총비율 고정 후 계산 첨부파일 (1)
DAN | 2021.01.19 | 추천 0 | 조회 25
DAN 2021.01.19 0 25
2090 VBA
New COPY후 붙혀넣기 할때 값만 붙혀넣기 (1)
이하늘 | 2021.01.19 | 추천 0 | 조회 32
이하늘 2021.01.19 0 32
2089 VBA
New 코드 관련 문의 (1)
로훈 | 2021.01.19 | 추천 0 | 조회 24
로훈 2021.01.19 0 24
2088 대시보드
New 함수 오류관련 첨부파일 (4) 답변완료
H.B | 2021.01.19 | 추천 0 | 조회 29
H.B 2021.01.19 0 29
2087 함수/공식
New 입사년월 인원수 구하기 첨부파일 (2) 답변완료
블링블링 | 2021.01.19 | 추천 0 | 조회 41
블링블링 2021.01.19 0 41