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

VBA
작성자
엑셀이
작성일
2021-12-02 00:19
조회
171
엑셀버전 : 엑셀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,151
번호 카테고리 제목 작성자 작성일 추천 조회
알림
하루 딱 "1분", 진짜 쓰는 엑셀 꿀팁 👉 "오빠두엑셀" 인스타그램 오픈! (28)
트로피 오빠두엑셀 | 2021.10.12 | 추천 22 | 조회 770
트로피 오빠두엑셀 2021.10.12 22 770
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (21)
오빠두엑셀 | 2021.10.28 | 추천 28 | 조회 2402
트로피 오빠두엑셀 2021.10.28 28 2402
26146 VBA
New 텍스트 1 행씩 자동입력 및 표 2개 합치는 방법 첨부파일 (1)
마운틴 | 02:38 | 추천 0 | 조회 17
마운틴 02:38 0 17
26144 함수/공식
New now()함수로 얻은 최초의 시간을 상수로 사용하고 싶습니다. (1)
SAFETY.RKTL | 01:09 | 추천 0 | 조회 17
SAFETY.RKTL 01:09 0 17
26143 VBA
New 엑셀 타이머 종료시 알림음 출력 가능한가요? 첨부파일 (1)
을지지뢰 | 00:59 | 추천 0 | 조회 17
을지지뢰 00:59 0 17
26141 함수/공식
New 다중 유효성검사 수식관련문의 첨부파일
hyun944@naver.com | 00:25 | 추천 1 | 조회 16
hyun944@naver.com 00:25 1 16
26135 함수/공식
New 필터 기능 대체 함수 첨부파일
sio**** | 2022.01.19 | 추천 -1 | 조회 24
sio**** 2022.01.19 -1 24
26126 VBA
New 엑셀 타이머 런타임 오류해결 좀 부탁드립니다. 첨부파일 (2) 답변완료
을지지뢰 | 2022.01.19 | 추천 0 | 조회 39
을지지뢰 2022.01.19 0 39
26122 함수/공식
New 불규칙한 숫자만큼 반복되는 데이터 입력 ,, 고수님들 도와주세요 ㅠ_ㅠ 첨부파일 (3)
응빙 | 2022.01.19 | 추천 0 | 조회 43
응빙 2022.01.19 0 43
26120 VBA
New 그림단추 구현 VBA 첨부파일 (3) 답변완료
007 | 2022.01.19 | 추천 0 | 조회 45
007 2022.01.19 0 45
26118 VBA
New VBA 고수 분들 보시면 제발 도와주세요. 첨부파일 (3)
new_hwan | 2022.01.19 | 추천 0 | 조회 46
new_hwan 2022.01.19 0 46
26113 기능/도구
New 자동필터 검색 누락 첨부파일 (6) 답변완료
김정열 | 2022.01.19 | 추천 0 | 조회 41
김정열 2022.01.19 0 41
26105 함수/공식
New "월"을 기입하면 전월 당월 매출이 나오게 하고싶은데 도와주세요 ㅠ (10) 답변완료
따뜻한아메리카노 | 2022.01.19 | 추천 0 | 조회 55
따뜻한아메리카노 2022.01.19 0 55
26104 VBA
New 자료찾기 vba 문의드립니다. (5) 답변완료
ㅈㄱㄹ | 2022.01.19 | 추천 0 | 조회 43
ㅈㄱㄹ 2022.01.19 0 43
26089 기능/도구
New 한 시트에 다수의 규칙이 적용되어있을 때 항목을 정리하는 방법을 찾고 있습니다. 첨부파일 (6) 답변완료
피단 | 2022.01.18 | 추천 0 | 조회 44
피단 2022.01.18 0 44
26087 함수/공식
New vlookup 관련? 같은 값일 때 그 행의 값을 불러오기 첨부파일 (3) 답변완료
키몽쓰 | 2022.01.18 | 추천 0 | 조회 70
키몽쓰 2022.01.18 0 70
26085 함수/공식
New 엑셀 함수 궁금해요! 첨부파일 (3)
양킴 | 2022.01.18 | 추천 0 | 조회 52
양킴 2022.01.18 0 52
26079 함수/공식
New 도와주세요 예전에 잠깐 본적이 있는 강의인데 못찾겠어요 (1)
딸기아빠 | 2022.01.18 | 추천 0 | 조회 38
딸기아빠 2022.01.18 0 38
26078 함수/공식
New sumif 오류 관련 첨부파일 (3)
논바닥 | 2022.01.18 | 추천 0 | 조회 38
논바닥 2022.01.18 0 38
26068 함수/공식
New 다른쉬트 값 불러 오기 (VLOOKUP 안될 시) 첨부파일 (3)
벗님들 | 2022.01.18 | 추천 -1 | 조회 67
벗님들 2022.01.18 -1 67
26067 함수/공식
New 도와주세요! 목록 별 수량 합산이 필요한데 가능한지 확인 부탁 드릴게요! 첨부파일 (10) 답변완료
monom | 2022.01.18 | 추천 0 | 조회 54
monom 2022.01.18 0 54
26058 기능/도구
New 자동필터 복사 범위 풀림 오류 (1)
허영진 | 2022.01.18 | 추천 0 | 조회 39
허영진 2022.01.18 0 39
26050 함수/공식
New 행과 열의 합의 함수를 알고 싶어요! (3)
Goldhajin | 2022.01.18 | 추천 1 | 조회 66
Goldhajin 2022.01.18 1 66
26041 VBA
New 일정시간이 지나면 MsgBOX로 알림창이 뜨게 하고싶습니다. (4) 답변완료
을지지뢰 | 2022.01.17 | 추천 0 | 조회 63
을지지뢰 2022.01.17 0 63
26035 함수/공식
New 특정날짜와 시간 고정해서 데이터 추출방법 도와주세요 (5)
박현욱 | 2022.01.17 | 추천 0 | 조회 48
박현욱 2022.01.17 0 48
26033 함수/공식
New 필터 함수를 인덱스 매치 함수로 변환하는 어려움 첨부파일 (4) 답변완료
미르 | 2022.01.17 | 추천 0 | 조회 41
미르 2022.01.17 0 41
26030 함수/공식
New 원본표에서 일정 조건의 내용을 추출하여 새로운 표에 자료 넣기 첨부파일 (2)
알면서 | 2022.01.17 | 추천 0 | 조회 39
알면서 2022.01.17 0 39
26029 기능/도구
New 필터에서 상하위 % 추출 안됨 오류 첨부파일 (3)
알면서 | 2022.01.17 | 추천 0 | 조회 26
알면서 2022.01.17 0 26
26026 함수/공식
New 한 셀에 입력된 문장 중 조건에 만족하는 문장 개수 함수 (5)
삐약이 | 2022.01.17 | 추천 0 | 조회 41
삐약이 2022.01.17 0 41
26025 기능/도구
New 셀 내용을 지우면 특정 셀 내용도 같이 삭제되는 기능? 첨부파일 (3) 답변완료
올리주인 | 2022.01.17 | 추천 1 | 조회 52
올리주인 2022.01.17 1 52
26023 VBA
New VBA 사용자정의폼 show 0 명령어 (1) 답변완료
병욱 | 2022.01.17 | 추천 0 | 조회 42
병욱 2022.01.17 0 42
26022 VBA
New 거래처별 파일 나누기 첨부파일
silli**** | 2022.01.17 | 추천 0 | 조회 44
silli**** 2022.01.17 0 44