리본메뉴를 숨겨둔 후에 열려고 할 때 비번을 입력받게하는 VBA...?

VBA
작성자
naver_5f1d93e680fb6
작성일
2020-07-26 23:52
조회
193

(1) 탭을 눌렀을 때 펼쳐지는 리본메뉴를 숨기고자 합니다.

(2) 모든 시트에서 사용자가 리본메뉴를 사용하고자 할 때 시트잠금 번호를 확인하는 것이 가능하다면 배우고 싶습니다. 단축키도 사용안되도록 했으면 합니다.

(3) 왜냐면... 훌륭한 컨트롤을 못하는 엑셀 중수라서...ㅠㅠ 그냥 리본메뉴를 확 닫아둘까라는 생각에 도달하고 말았습니다.

VBA가 아니더라도 가능한 방법이 있는지...

전체 3

  • 2020-07-27 02:07

    안녕하세요?^^
    1. 단축키를 비활성화 하는 방법은 VBA를 사용하면 가능합니다.
    단 모든 단축키를 한번에 비활성화 하는건 불가능하고, OnKey 이벤트를 사용하여 하나씩 지정해줘야 합니다. 현재 통합문서의 WorkBook_Open 이벤트에 사용중단하고자 하는 단축키를 추가해보세요.

    Private Sub Workbook_Open()
       ' 단축키 비활성화
       Application.OnKey "{F1}", ""
       Application.OnKey "{F2}", ""
       Application.OnKey "{F3}", ""
       '....
    End Sub

    2. 리본을 숨기고 보이는 명령문은 아래와 같습니다.

    Sub Disable_Ribbon()
     
    Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",False)"
     
    End Sub
    Sub Enable_Ribbon()
    
    Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",True)"
    
    End Sub

    리본을 비활성화하면 화면에 모든 버튼이 숨김처리 됩니다. 따라서 리본을 다시 활성화하려면 단축키를 OnKey 함수로 추가하거나, 시트 위에 단추를 추가한 뒤 활성화되도록 하는 방법이 있습니다. 물론 InputBox를 사용하여 특정 암호를 입력할 경우 활성화되도록 할 수도 있습니다.
    상황에 따라 적절히 잘 활용하시면 문제해결에 도움이 되실거라 생각됩니다.
    답변이 도움이 되셨길 바랍니다. 화이팅입니다.(ง •̀_•́)ง


  • 2020-07-27 12:51

    (후기) 알려주신 코드로 잘 적용되었습니다. 어떤 구글링 결과보다 확실하게 처리되었습니다. 정말 감사합니다!!


전체 2,502
번호 카테고리 제목 작성자 작성일 추천 조회
2493 함수/공식
New Vlookup, 피벗으로 해결되지 않는 데이터 정리 문제 (1)
오달 | 00:43 | 추천 0 | 조회 17
오달 00:43 0 17
2492 함수/공식
New 스프레드시트 조건부서식
거꾸로문 | 2021.03.06 | 추천 0 | 조회 30
거꾸로문 2021.03.06 0 30
2491 함수/공식
New 다중조건 관련 함수 부탁드려요. (2)
낮은자 | 2021.03.06 | 추천 0 | 조회 36
낮은자 2021.03.06 0 36
2490 문서서식
New 셀 표시형식 질문 (2)
4Block | 2021.03.06 | 추천 0 | 조회 29
4Block 2021.03.06 0 29
2489 문서서식
New 날짜서식 영문 표기 오류 첨부파일 (2)
SAM | 2021.03.05 | 추천 0 | 조회 31
SAM 2021.03.05 0 31
2488 함수/공식
New 피킹리스트 같은걸 만들어 볼까 하는데요.
이쑤노 | 2021.03.05 | 추천 0 | 조회 35
이쑤노 2021.03.05 0 35
2487 VBA
New ImageLookup를 엑셀에서 에라 발ㅅ생
jig637 | 2021.03.05 | 추천 0 | 조회 27
jig637 2021.03.05 0 27
2486 VBA
New 네이버 로그인 관련 질문 (1)
dreamingsky | 2021.03.05 | 추천 0 | 조회 25
dreamingsky 2021.03.05 0 25
2485 함수/공식
New 발주 리스트 순서대로 세로 가져오기 (1)
qkrwlg**** | 2021.03.05 | 추천 0 | 조회 36
qkrwlg**** 2021.03.05 0 36
2484 문서서식
New 버스배차관리파일 (2) 답변완료
미성 | 2021.03.05 | 추천 0 | 조회 32
미성 2021.03.05 0 32
2483 함수/공식
New IF함수 동일조건에 다른값 문의 첨부파일 (2)
Ns프링글스 | 2021.03.05 | 추천 1 | 조회 32
Ns프링글스 2021.03.05 1 32
2482 기능/도구
New 텍스트 정렬, 언어별로
LJH | 2021.03.05 | 추천 0 | 조회 28
LJH 2021.03.05 0 28
2481 함수/공식
New VLOOKUP 세로/가로 방향 가져오기 (1)
qkrwlg**** | 2021.03.05 | 추천 0 | 조회 45
qkrwlg**** 2021.03.05 0 45
2480 문서서식
New 표에서 수식이 들어 있는 셀은 보호하면서, 표의 자동확장 기능은 이용할 수 없을까요? (1)
이한준(김해) | 2021.03.05 | 추천 0 | 조회 21
이한준(김해) 2021.03.05 0 21
2479 차트/그래프
New 간트차트 관련 문의 사항
kuh**** | 2021.03.05 | 추천 0 | 조회 17
kuh**** 2021.03.05 0 17
2478 기능/도구
New DuTool 설치시 오류 문의드립니다.
반짝반짝 | 2021.03.04 | 추천 0 | 조회 26
반짝반짝 2021.03.04 0 26
2477 VBA
New 네이버부동산 크롤링 (2) 답변완료
웃음 | 2021.03.04 | 추천 0 | 조회 36
웃음 2021.03.04 0 36
2476 함수/공식
New small함수로 작은수를 찾은 뒤 그에 상응하는 옆셀 불러오기 질문합니다. 첨부파일 (1)
솔솔 | 2021.03.04 | 추천 0 | 조회 32
솔솔 2021.03.04 0 32
2475 함수/공식
New 조건이 있는 중복된 값들의 개수 셀수 있을까요? (3)
dasdas | 2021.03.04 | 추천 1 | 조회 44
dasdas 2021.03.04 1 44
2474 VBA
New 같은이름 다른파일의 데이터 복사 붙이기 첨부파일
H.B | 2021.03.04 | 추천 1 | 조회 27
H.B 2021.03.04 1 27
2473 파워쿼리/피벗
New 파워쿼리 편집기 날짜 및 시간 (10진수) 2 첨부파일 (1)
JaeChoi | 2021.03.04 | 추천 0 | 조회 33
JaeChoi 2021.03.04 0 33
2472 함수/공식
New 9.4512E+15 식으로 발생되는 건들에 대하여 어떻게 하면 정상적으로 숫자가 나올까요? (5)
mo**** | 2021.03.04 | 추천 0 | 조회 56
mo**** 2021.03.04 0 56
2471 함수/공식
New 중복된걸 제외하고 셀수 있는 방법이 있어까요? (2)
dasdas | 2021.03.04 | 추천 0 | 조회 48
dasdas 2021.03.04 0 48
2470 VBA
New 에러가 생기면 코드 실행을 멈추고 싶은데 어떡하면 좋을까요? (1)
cyi | 2021.03.04 | 추천 0 | 조회 27
cyi 2021.03.04 0 27
2469 문서서식
New 엑셀 표를 PPT로 불러왔을때 선 굵기 관련 건 (3)
운영자동차 | 2021.03.04 | 추천 1 | 조회 37
운영자동차 2021.03.04 1 37
2468 VBA
New 아웃룩 첨부파일 저장 시 파일제목 (1)
KDHkm | 2021.03.04 | 추천 0 | 조회 24
KDHkm 2021.03.04 0 24
2467 VBA
혹시 2007에서 2010과 같은 스크린샷 vba는 없나여? (1)
손님 | 2021.03.04 | 추천 0 | 조회 21
손님 2021.03.04 0 21
2466 함수/공식
두가지 DATA를 비교하여 없는 값 불러오기 첨부파일
Jeff | 2021.03.04 | 추천 0 | 조회 35
Jeff 2021.03.04 0 35
2465 차트/그래프
간트에서 선행업무와 연결하는 방법 (1)
라이언 | 2021.03.04 | 추천 0 | 조회 25
라이언 2021.03.04 0 25
2464 함수/공식
xFilter 함수 기능 설치 (1)
서강국 Noah | 2021.03.04 | 추천 0 | 조회 26
서강국 Noah 2021.03.04 0 26