로그인엑셀 사용시 수식입력줄 사라짐, 모든 엑셀창 자동종료

VBA
작성자
엑셀이
작성일
2021-12-02 00:19
조회
184
엑셀버전 : 엑셀2016

운영체제 : 윈도우10


안녕하세요 현재 위 링크 엑셀로 회사에서 정말 유용하게 사용중입니다

혹시나 코드오류가 날까봐 코드는 따로 건드리지 않았습니다

 

  1. 로그인엑셀에서 저장 버튼을 누르면 수식입력줄이 자동으로 사라집니다.   환경설정에 가서 수식입력줄 표시 체크를 해도 로그인엑셀키고 저장을 누른 후에는 다른 엑셀킬때도 수식입력줄이 사라져 매번 수식입력줄 표시를 눌러줘야 합니다ㅠㅠ . 명령문에 저장버튼을 누르면 수식입력줄이 안보이게 하는 비슷한 명령문이 있나요? 없애려면 어떻게 해야하나요?

2. 저장을 누른 후 강제종료 코드가 실행되면 몇초있다가 열려있던 다른 엑셀파일도 모두 강제 종료가 됩니다

집에서도 회사컴퓨터에서도 동일하게 모두 강제종료가 되어서 아예 강제종료묻는 창도 안뜨게 없애고 싶은데

clos코드를 삭제하면 오류가 나서 안되네요ㅠㅠ

강제종료코드를 없애고 싶어요

유저폼강제종료창 안뜨고 그냥일반엑셀처럼 저장-종료되게 하고싶습니다

어디어디를 수정해야할까요?

 

전체 1

  • 2021-12-02 11:19

    지난주 라이브 강의에서 엑셀 강제종료 해결하는 방법 설명해주셨는데.. 코드를 여기에 공유해도 되는지 모르겠네요 ㅜ

    아래 코드로 한번 해결해보세요.

    Option Private Module
    Public blnClose As Boolean
    
    Function CloseWB(Optional SaveChanges As Boolean = True, Optional DisplayAlert As Boolean = False) As Boolean
    
    '###############################################################
    '오빠두엑셀 VBA 사용자지정함수 (https://www.oppadu.com)
    '▶ CloseWB, SecureSave 함수
    '▶ 파일 보안을 위하여 파일 저장 및 종료 시 임시 로그아웃 처리하는 모듈입니다.
    '▶ 인수 설명
    '_____________SaveChanges : [선택인수] False일 경우 파일을 저장하지 않고 종료합니다. 기본값은 True 입니다.
    '_____________DisplayAlret : [선택인수] True일 경우 파일 종료 전 알림메시지를 출력합니다. 기본값은 False 입니다.
    '▶ 사용방법
    '로그아웃 시 실행할 동작을 Logout에 작성합니다. (예: 시트 숨기기 등..)
    '
    '▶현재_통합_문서 모듈에 아래 명령문을 복사/붙여넣기 합니다.
    'Private Sub Workbook_BeforeClose(Cancel As Boolean)
    'Cancel = CloseWB(, True)
    'End Sub
    'Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    'SecureSave
    'Cancel = True
    'End Sub
    '##############################################################
    
    Dim WB As Workbook
    Dim i As Long
    Dim vbYN As VbMsgBoxResult
     
    Application.DisplayAlerts = False
     
    Logout
     
    If blnClose = False Then
     
        If DisplayAlert = True Then
     
            vbYN = MsgBox("'" & ThisWorkbook.Name & "' 의 변경내용을 저장하시겠습니까?", vbYesNoCancel)
     
            If vbYN = vbNo Then SaveChanges = False: blnClose = True
            If vbYN = vbYes Then SaveChanges = True: blnClose = True
            If vbYN = vbCancel Then blnClose = False: GoTo Finally
     
        End If
     
        For Each WB In Application.Workbooks
            If WB.Name <> "PERSONAL.XLSB" Then i = i + 1
        Next
     
        If i = 1 Then
            If SaveChanges = True Then
                ThisWorkbook.Save
                Application.EnableEvents = False
                Application.Quit
            Else
                ThisWorkbook.Saved = True
                Application.EnableEvents = False
                Application.Quit
            End If
        Else
            If SaveChanges = True Then
                ThisWorkbook.Save
                ThisWorkbook.Close
            Else
                ThisWorkbook.Saved = True
                ThisWorkbook.Close
            End If
        End If
     
    End If
     
    CloseWB = False
    Application.DisplayAlerts = True
     
    Exit Function
     
    Finally:
    Application.DisplayAlerts = True
    CloseWB = True
     
    End Function
    
    Sub SecureSave()
    
    Dim DictWS As Object
    Dim WS As Worksheet
    Dim sName As String
    
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    Set DictWS = CreateObject("Scripting.Dictionary")
    sName = ActiveSheet.Name
    
    For Each WS In ThisWorkbook.Worksheets
        DictWS.Add WS.Name, WS.Visible
    Next
    
    Logout
    
    ThisWorkbook.Save
    ThisWorkbook.Saved = True
    
    For Each WS In ThisWorkbook.Worksheets
        WS.Visible = DictWS(WS.Name)
    Next
    Worksheets(sName).Activate
    
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    
    
    End Sub
    
    Sub Logout()
     
    '로그아웃 실행 동작
     
    End Sub
    
    

     


전체 5,234
번호 카테고리 제목 작성자 작성일 추천 조회
알림
하루 딱 "1분", 진짜 쓰는 엑셀 꿀팁 👉 "오빠두엑셀" 인스타그램 오픈! (32)
트로피 오빠두엑셀 | 2021.10.12 | 추천 23 | 조회 834
트로피 오빠두엑셀 2021.10.12 23 834
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (23)
오빠두엑셀 | 2021.10.28 | 추천 33 | 조회 2513
트로피 오빠두엑셀 2021.10.28 33 2513
26504 VBA
New HTML 코드안의 원하는 값 가져오기
엑셀초보(LV.1) | 15:49 | 추천 0 | 조회 10
엑셀초보(LV.1) 15:49 0 10
26501 VBA
New VBA 유저폼 리스트박스에 배열 정렬방법문의드립니다 (1)
98e | 15:04 | 추천 0 | 조회 16
98e 15:04 0 16
26498 VBA
New vba 그래프 영역 변경 구문 간단질문
H.B | 14:23 | 추천 0 | 조회 17
H.B 14:23 0 17
26497 함수/공식
New 엑셀 수식 계산 (4)
스미스 | 14:07 | 추천 0 | 조회 34
스미스 14:07 0 34
26489 함수/공식
New 특정 셀이 공란일시, 저장이 안되게끔 할 수 있을까요? (8) 답변완료
쿠몬은내친구 | 12:45 | 추천 1 | 조회 35
쿠몬은내친구 12:45 1 35
26487 VBA
New 셀서식을 숫자로 변환후, 오름차순 정렬하는 매크로 (4) 답변완료
길리 | 12:16 | 추천 0 | 조회 34
길리 12:16 0 34
26486 VBA
New 특정셀값이 "ID"일 경우, vba를 실행시키고자 합니다 (4) 답변완료
길리 | 12:06 | 추천 0 | 조회 33
길리 12:06 0 33
26484 기능/도구
New 표시형식 도와주세요 첨부파일 (1) 답변완료
김상준 | 11:30 | 추천 0 | 조회 33
김상준 11:30 0 33
26479 함수/공식
New (ㅜㅜ)항목이 다른 각 데이터들 취합하기 문의드립니다. 첨부파일 (2) 답변완료
해룡 | 06:20 | 추천 0 | 조회 39
해룡 06:20 0 39
26468 함수/공식
New 똑같은 수식으로 텍스트의 바이트수를 계산하는데 다르게 나옵니다.ㅠ 첨부파일 (1)
turtle**** | 2022.01.26 | 추천 0 | 조회 40
turtle**** 2022.01.26 0 40
26466 VBA
New 재고관리 filtered_db 함수 사용관련 질문입니다. (db가 empty인 경우 사용법)
탄만두 | 2022.01.26 | 추천 0 | 조회 36
탄만두 2022.01.26 0 36
26462 VBA
New VBA오빠두님의 Listfiles함수 중에 (2)
H.B | 2022.01.26 | 추천 1 | 조회 31
H.B 2022.01.26 1 31
26460 VBA
New vba 일치하는 값 찾기 질문 드립니다. 첨부파일 (6) 답변완료
qkrwo**** | 2022.01.26 | 추천 0 | 조회 40
qkrwo**** 2022.01.26 0 40
26454 VBA
New Excel VBA _ Select 하지않고 바로 작업하는 방법 (2) 답변완료
백일호 | 2022.01.26 | 추천 1 | 조회 45
백일호 2022.01.26 1 45
26444 VBA
New 네이버 웹페이지 특정 정보 가져오기 질문
엑셀초보(LV.1) | 2022.01.26 | 추천 0 | 조회 21
엑셀초보(LV.1) 2022.01.26 0 21
26441 VBA
New vba 코딩으로 다른 시트 데이터 가져오기 질문입니다. 첨부파일 (2) 답변완료
qkrwo**** | 2022.01.26 | 추천 0 | 조회 47
qkrwo**** 2022.01.26 0 47
26440 피벗테이블
New 3개의 피벗테이블 필터 값을 동시에 변경하는 방법이 알고 싶어요 첨부파일
forest choi | 2022.01.26 | 추천 0 | 조회 30
forest choi 2022.01.26 0 30
26439 VBA
New VBA 네이버 부동산 크롤링 질문 (1)
엑셀초보(LV.1) | 2022.01.26 | 추천 0 | 조회 31
엑셀초보(LV.1) 2022.01.26 0 31
26421 문서서식
New 엑셀과 워드 메일머지 강의에는 예제파일이 없나요?
pcs**** | 2022.01.26 | 추천 0 | 조회 28
pcs**** 2022.01.26 0 28
26420 함수/공식
New 회원자료실 커스텀 일정표에서 조건추가하여 사용하고싶은데 질문있습니다 !
창동명 | 2022.01.26 | 추천 0 | 조회 32
창동명 2022.01.26 0 32
26410 피벗테이블
New 피벗 테이블에서 취소선을 표현하는 방법 첨부파일 (1)
퉁퉁이 | 2022.01.25 | 추천 0 | 조회 49
퉁퉁이 2022.01.25 0 49
26408 기능/도구
New 표에서 바로만든 슬라이서도 보고서연결 기능과 비슷하게 만들 수 있나요? (3)
차가운열매 | 2022.01.25 | 추천 0 | 조회 43
차가운열매 2022.01.25 0 43
26405 함수/공식
New 최고점/최저점 찾아내기 첨부파일 (14) 답변완료
km**** | 2022.01.25 | 추천 0 | 조회 72
km**** 2022.01.25 0 72
26403 VBA
New VBA를 이용하여 euc-kr로 인코딩된 site 크롤링 방법 (1)
콩순이 | 2022.01.25 | 추천 0 | 조회 29
콩순이 2022.01.25 0 29
26401 VBA
New 목표값 계산 자동 매크로 방법 첨부파일 (1)
박우성 | 2022.01.25 | 추천 0 | 조회 45
박우성 2022.01.25 0 45
26399 피벗테이블
New 데이터 새로고침 시 피벗테이블 연결 오류 첨부파일 (1)
유정 | 2022.01.25 | 추천 0 | 조회 31
유정 2022.01.25 0 31
26392 함수/공식
New MINIFS 함수 사용시 0으로 값 반환됨 (초보자에게 도움 부탁드립니다...ㅜㅜ) 첨부파일 (3) 답변완료
김원석 | 2022.01.25 | 추천 0 | 조회 45
김원석 2022.01.25 0 45
26387 VBA
New VBA 엑셀에서 다른 프로그램 실행하기 (2) 답변완료
병욱 | 2022.01.25 | 추천 0 | 조회 43
병욱 2022.01.25 0 43
26378 피벗테이블
New 피벗테이블 집계 오류 (5) 답변완료
가을남자 | 2022.01.25 | 추천 0 | 조회 51
가을남자 2022.01.25 0 51
26371 VBA
New VBA 항목별 행렬전환 문의 첨부파일 (6) 답변완료
H.B | 2022.01.25 | 추천 1 | 조회 49
H.B 2022.01.25 1 49