강좌 / 팁

소프트웨어 엑셀 제목표시줄에 파일 전체 경로 표시

2023.04.02 18:05

지후빠 조회:2668 추천:29

아파서 어제 마무리를 못하였습니다.

어떤 이벤트를 이용할 것인가에서 고민되어 암호로 제한하여 테스트하였습니다.

아래 '1) 클래스 모듈' 부분을 수정하여 공개합니다. Full_Path_Title_0.6.zip

"새창" 등 몇 가지 경우를 고려하여 다음과 같이 마무리하려고 합니다.

Private Sub oXL_WorkbookOpen(ByVal Wb As Workbook) 'WorkbookActivate 에서 WorkbookOpen 이벤트로 변경

    If Not Wb.IsAddin Then Wb.Windows(1).Caption = Wb.FullName '추가기능 저장시를 고려하여 조건 부여

End Sub

Private Sub oXL_WorkbookAfterSave(ByVal Wb As Workbook, ByVal Success As Boolean)

    If Not Wb.IsAddin Then If Success Then Wb.Windows(1).Caption = Wb.FullName '추가기능 저장시를 고려하여 조건 부여

End Sub

아파서 당분간 가능할지 모르겠지만, 문제점 댓글 주시면 수정해보겠습니다.^^

 


안녕하세요?

질문 https://windowsforum.kr/qna/19199479 관련된 내용입니다.

개념이 서지 않았을때는 어렵게만 느껴졌던 것이라서 간단히 정리하여 봅니다.

 

 

1. 애플리케이션 수준 이벤트 개념

 

엑셀 VBA에서 흔히 볼 수 있는 이벤트 처리는 Worksheet, Workbook 레벨 입니다. Workbook 레벨은 해당 엑셀 파일에 한정되어 발생하는 이벤트를 처리할 수 있다는 것입니다. 다시 말해, 열려져 있는 다른 엑셀파일(창)에는 효과를 줄 수 없다는 것 입니다.

 

모든 엑셀 창에서 발생하는 이벤트에 어떤 동작을 부여해주고 싶으면 Workbook 보다 높은 Excel Application 레벨의 이벤트 처리를 하면 가능합니다. 그런데 Application 레벨의 이벤트는 바로 사용할 수 없어서 Class Module을 이용해야 합니다.

 

글을 새로 작성할려고 하였는데 검색해보니 MS 사이트에 잘 정리되어 있어서 링크 연결합니다.

참고; Excel에서 애플리케이션 수준 이벤트 처리기 만들기

- https://learn.microsoft.com/ko-kr/office/troubleshoot/excel/create-application-level-event-handler

 

영어 페이지 인데 엑셀 VBA 이벤트가 정리된 페이지입니다.

- https://powerspreadsheets.com/excel-vba-events/

 

 

2. 제목표시줄에 전체 경로 표시 예제로 간단한 설명

 

1) 클래스 모듈 삽입

- 클래스 모듈 이름이 클래스 이름이 되므로 필요시 이름을 변경합니다. 예) myClass

- 코드 입력;

Option Explicit

Public WithEvents oXL As Excel.Application '애플리케이션 레벨의 이벤트 개체 생성

Private Sub oXL_WorkbookActivate(ByVal Wb As Workbook) '워크북이 활성화될때 실행

    ActiveWindow.Caption = Wb.FullName '해당 워크북의 전체 경로를 활성창에 표시

End Sub

Private Sub oXL_WorkbookAfterSave(ByVal Wb As Workbook, ByVal Success As Boolean) '워크북이 저장될때 실행

    ActiveWindow.Caption = Wb.FullName '해당 워크북의 전체 경로를 활성창에 표시

End Sub

 

2) 현재_통합_문서 모듈의 코드

Dim myObj As New myClass 'myClass 개체를 myObj에 할당

Private Sub Workbook_Open() '이 문서가 열리는 이벤트때 실행

    Set myObj.oXL = Application 'myClass 모듈의 oXL 개체를 Excel과 연결시켜 이벤트를 활성화시킴.

End Sub

 

 

3. 추가기능 테스트 ; 위 내용을 추가기능으로 만든 것입니다.

 

답변으로 올린 개인용 매크로 통합문서에는 oXL_WorkbookAfterSave 빠져있어서 새문서 저장시 표시가 안되는 문제가 있습니다.(상큼한아침님이 주신 피드백과 같은 내용인지 잘 모르겠습니다. 상큼한아침님 테스트 부탁드립니다.) 또 on/off가 용이하지 않아서 추가기능으로 만들어봅니다.

 

우선 자유게시판에 추천과 피드백 주신 분들에게만 압축파일 암호를 전달하겠습니다. 추가적인 피드백 주시면 수정하겠습니다.

Full_Path_Title_0.2.zip

 

- 첨부파일에는 두개의 파일이 들어 있습니다. Full Path Title.xlam Full Path Title 설치.vbs 

- 엑셀이 종료된 상태에서 Full Path Title 설치.vbs 를 실행합니다.

1.jpg

- 설치 완료 후

2.jpg

- 엑셀 실행하여 추가기능 창에서 "전체 경로 표시" 추가기능을 확인 할 수 있고 필요시 on/off할 수 있습니다.

3.jpg

 

허리가 아파서 오래 앉아있지 못하여 짧게 올립니다.ㅜㅜ

번호 제목 글쓴이 조회 추천 등록일
[공지] 강좌 작성간 참고해주세요 gooddew - - -
4469 소프트웨어| pureBasic - WIM 정보 v0983 - 검은색 배경 버그 수정 [39] update 입니다 7373 152 12-22
4468 소프트웨어| 한글2024 로고 교체 / 자동 설치 옵션 [54] 무월 12662 107 11-25
4467 소프트웨어| [추가기능1.1]엑셀 셀의 행-열 Auto-Highlight 하는 방법들 [77] 지후빠 2778 103 11-10
4466 윈 도 우| PrincePE_V18.5 [164] %카리스마 204975 99 02-02
4465 윈 도 우| PE 한글화 프로그램 (v1.0) [106] ㄱㅇㄱㄱㅁ 27885 89 06-25
4464 윈 도 우| 윈도우 10 설치, 최적화 및 기타 팁 100개 정리 [56] 컴알못러 27516 78 01-26
4463 윈 도 우| PrincePE_V20 [52] %카리스마 2831 72 03-05
4462 윈 도 우| 배치파일을 이용해서 윈도우 자동 설치하기 [22] gooddew 4884 70 10-16
4461 윈 도 우| Windows 10 Ultimate (DREAM HS) [58] @카리스마 7351 70 08-14
4460 소프트웨어| iVentoy 만능윈도우(WIM) 자동 설치 [20] 무월 4185 66 07-08
4459 윈 도 우| PrincePE_V19 [53] %카리스마 5092 65 02-15
4458 윈 도 우| 윈도우 장치 드라이버 추출(백업) 명령어 [25] 컨피그 2573 64 02-23
4457 윈 도 우| 윈도우10 만능이미지 제작 메뉴얼 [43] 질주민군 5572 64 11-19
4456 소프트웨어| 트루이미지(Acronis True Image) 추가본②(본문 수정) [91] 고양이2 9118 62 11-26
4455 윈 도 우| 무인응답파일(autounattend.xml) 쉽게 만들기 [29] 네오이즘 3687 60 12-31
4454 서버 / IT| 손쉽게 멀티부팅용 USB 만들기. (내용추가) [50] 디폴트 7385 60 05-31
4453 윈 도 우| PrincePE_V22 [53] %카리스마 6593 59 03-06
4452 소프트웨어| ▣▣▣▣▣[ Ventoy 고급 응용편 자료 정리 ]▣▣▣▣▣ [31] 메인보드 7843 57 05-14
4451 소프트웨어| USB 로 UEFI 와 MBR 로 부팅 되도록 ISO 파일 설치하기 [42] 좋은이웃 7048 57 03-17
4450 소프트웨어| rufus 3.18 사용법 (2가지) [24] suk 5907 55 03-14
XE1.11.6 Layout1.4.8