보안단가표 만들기! (값이 일치할 경우 시트 특정부분 숨기기)

총무/관리
작성자
호박벌
작성일
2020-03-21 12:29
조회
790

오빠두엑셀 영상을 실무에서 제대로 활용하는 일인입니다^^
첨부파일에 있는 해당 P코드를 P코드입력란에 입력시 일치하면 단가표시트에 있는 단가표가 보이고
불일치하면 안보이게 하는 방법 문의드립니다~

전체 5

  • 2020-03-25 20:35

    우와... 이렇게 답변까지 해주시는 건가요?? 대단하십니다!


  • 2020-03-22 01:34

    안녕하세요?^^ 말씀하신 기능은 내장기능만으로는 구현이 불가능하며, 약간의 매크로가 필요합니다.
    1. 시트 암호잠금 및 특정행 숨기기를 위하여 아래 명령문을 새로운 모듈에 추가해주세요

    Function IsSheetProtected(WS As Worksheet) As Boolean

    If WS.ProtectContents = True Then
    IsSheetProtected = True
    Else
    IsSheetProtected = False
    End If

    End Function

    Sub ProtectSheetRow(WS As Worksheet, R As Long, PW As String, Hidden As Boolean)

    With WS
    If IsSheetProtected(WS) = False Then
    .Cells(2, 1).EntireRow.Hidden = Hidden
    .Protect PW
    Else
    .Unprotect PW
    .Cells(2, 1).EntireRow.Hidden = Hidden
    .Protect PW
    End If
    End With

    End Sub

    2. P코드 시트에 값이 변할경우 단가표시트의 2행을 숨기기 위하여, 'P코드'시트모듈에 아래 명령문을 추가해주세요.

    Private Sub Worksheet_Change(ByVal Target As Range)

    If Me.Range("E2").Value = "일치" Then
    ProtectSheetRow Sheet2, 2, "oppadu", False
    Else
    ProtectSheetRow Sheet2, 2, "oppadu", True
    End If

    End Sub

    필요에따라 ProtectSheetRow 부분의 2번째인수(행번호), 3번째인수(비밀번호)를 적절히 수정하시면 쉽게 구현하실 수 있을겁니다 ^^
    파일 같이 첨부해드리니 확인해보시길 바랍니다.
    제 답변이 도움이 되셨길 바랍니다.
    감사합니다.

    첨부파일 : 부탁드립니다-_해결.xlsm


  • 2020-04-05 03:51

    감사합니다 많은 도움이 되었어요


  • 2020-03-27 03:07

    안녕하세요?^^
    시트 전체를 숨기시려면
    ProtectSheetRow 명령문을 아래와 같이 변경해보시겠어요?

    Sub ProtectSheetRow(WS As Worksheet, R As Long, PW As String, Hidden As Boolean)

    With WS
    If Hidden = True Then
    .Visible = xlSheetVeryHidden
    Else
    .Visible = xlSheetVisible
    End If
    End With

    End Sub

    바로 해결되실겁니다.
    감사합니다.


  • 2020-03-22 21:23

    제가 매크로를 할줄몰라서 그러는데 단가표시트 전체를 숨길려면 어떻게 해야 하나요?
    부탁드립니다~^^


전체 5,225
번호 카테고리 제목 작성자 작성일 추천 조회
알림
하루 딱 "1분", 진짜 쓰는 엑셀 꿀팁 👉 "오빠두엑셀" 인스타그램 오픈! (32)
트로피 오빠두엑셀 | 2021.10.12 | 추천 23 | 조회 824
트로피 오빠두엑셀 2021.10.12 23 824
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (23)
오빠두엑셀 | 2021.10.28 | 추천 33 | 조회 2504
트로피 오빠두엑셀 2021.10.28 33 2504
26468 함수/공식
New 똑같은 수식으로 텍스트의 바이트수를 계산하는데 다르게 나옵니다.ㅠ 첨부파일
turtle**** | 21:19 | 추천 0 | 조회 13
turtle**** 21:19 0 13
26466 VBA
New 재고관리 filtered_db 함수 사용관련 질문입니다. (db가 empty인 경우 사용법)
탄만두 | 20:09 | 추천 0 | 조회 16
탄만두 20:09 0 16
26462 VBA
New VBA오빠두님의 Listfiles함수 중에 (1)
H.B | 18:20 | 추천 1 | 조회 20
H.B 18:20 1 20
26460 VBA
New vba 일치하는 값 찾기 질문 드립니다. 첨부파일 (1)
qkrwo**** | 18:10 | 추천 0 | 조회 19
qkrwo**** 18:10 0 19
26454 VBA
New Excel VBA _ Select 하지않고 바로 작업하는 방법 (2) 답변완료
백일호 | 16:34 | 추천 1 | 조회 32
백일호 16:34 1 32
26444 VBA
New 네이버 웹페이지 특정 정보 가져오기 질문
엑셀초보(LV.1) | 14:09 | 추천 0 | 조회 16
엑셀초보(LV.1) 14:09 0 16
26441 VBA
New vba 코딩으로 다른 시트 데이터 가져오기 질문입니다. 첨부파일 (2) 답변완료
qkrwo**** | 13:34 | 추천 0 | 조회 33
qkrwo**** 13:34 0 33
26440 피벗테이블
New 3개의 피벗테이블 필터 값을 동시에 변경하는 방법이 알고 싶어요 첨부파일
forest choi | 13:19 | 추천 0 | 조회 24
forest choi 13:19 0 24
26439 VBA
New VBA 네이버 부동산 크롤링 질문 (1)
엑셀초보(LV.1) | 12:55 | 추천 0 | 조회 23
엑셀초보(LV.1) 12:55 0 23
26421 문서서식
New 엑셀과 워드 메일머지 강의에는 예제파일이 없나요?
pcs**** | 01:30 | 추천 0 | 조회 25
pcs**** 01:30 0 25
26420 함수/공식
New 회원자료실 커스텀 일정표에서 조건추가하여 사용하고싶은데 질문있습니다 !
창동명 | 01:27 | 추천 0 | 조회 28
창동명 01:27 0 28
26410 피벗테이블
New 피벗 테이블에서 취소선을 표현하는 방법 첨부파일 (1)
퉁퉁이 | 2022.01.25 | 추천 0 | 조회 44
퉁퉁이 2022.01.25 0 44
26408 기능/도구
New 표에서 바로만든 슬라이서도 보고서연결 기능과 비슷하게 만들 수 있나요? (2)
차가운열매 | 2022.01.25 | 추천 0 | 조회 36
차가운열매 2022.01.25 0 36
26405 함수/공식
New 최고점/최저점 찾아내기 첨부파일 (9) 답변완료
km**** | 2022.01.25 | 추천 0 | 조회 55
km**** 2022.01.25 0 55
26403 VBA
New VBA를 이용하여 euc-kr로 인코딩된 site 크롤링 방법
콩순이 | 2022.01.25 | 추천 0 | 조회 26
콩순이 2022.01.25 0 26
26401 VBA
New 목표값 계산 자동 매크로 방법 첨부파일 (1)
박우성 | 2022.01.25 | 추천 0 | 조회 39
박우성 2022.01.25 0 39
26399 피벗테이블
New 데이터 새로고침 시 피벗테이블 연결 오류 첨부파일 (1)
유정 | 2022.01.25 | 추천 0 | 조회 25
유정 2022.01.25 0 25
26392 함수/공식
New MINIFS 함수 사용시 0으로 값 반환됨 (초보자에게 도움 부탁드립니다...ㅜㅜ) 첨부파일 (3) 답변완료
김원석 | 2022.01.25 | 추천 0 | 조회 36
김원석 2022.01.25 0 36
26387 VBA
New VBA 엑셀에서 다른 프로그램 실행하기 (2) 답변완료
병욱 | 2022.01.25 | 추천 0 | 조회 37
병욱 2022.01.25 0 37
26378 피벗테이블
New 피벗테이블 집계 오류 (5) 답변완료
가을남자 | 2022.01.25 | 추천 0 | 조회 44
가을남자 2022.01.25 0 44
26371 VBA
New VBA 항목별 행렬전환 문의 첨부파일 (6) 답변완료
H.B | 2022.01.25 | 추천 1 | 조회 45
H.B 2022.01.25 1 45
26368 문서서식
New 셀에 입력시 자음 모음 분리문제 (1)
흑형 | 2022.01.25 | 추천 0 | 조회 29
흑형 2022.01.25 0 29
26366 VBA
New ■ 셀에 삽입된 메모 수량 카운팅하는 방법 첨부파일 (5) 답변완료
비스타 | 2022.01.25 | 추천 1 | 조회 54
비스타 2022.01.25 1 54
26360 함수/공식
New 엑셀 데이터통합 기능 이용시 합계가 달라지는 이유 첨부파일 (5)
wlfl**** | 2022.01.25 | 추천 0 | 조회 50
wlfl**** 2022.01.25 0 50
26343 함수/공식
New 전산입고품목과 실제입고품목의 실재고조사관련 양식(함수+피벗테이블)첨언좀 부탁드립니다.도와주세요! 첨부파일 (4) 답변완료
sunjong**** | 2022.01.24 | 추천 0 | 조회 72
sunjong**** 2022.01.24 0 72
26341 VBA
New VBA 내 배열 통합(쿼리 통합 기능을 VBA에서 구현하고자 합니다.) 첨부파일 (1)
병욱 | 2022.01.24 | 추천 0 | 조회 38
병욱 2022.01.24 0 38
26339 VBA
New 많은 텍스트상자안 문자 찾기 (4)
noeu**** | 2022.01.24 | 추천 -1 | 조회 53
noeu**** 2022.01.24 -1 53
26338 함수/공식
New 지정한 일수(days)를 달력에 자동으로 표시 되게끔 설정이 가능한가요? 첨부파일 (3) 답변완료
말창 | 2022.01.24 | 추천 0 | 조회 57
말창 2022.01.24 0 57
함수/공식
New Re:지정한 일수(days)를 달력에 자동으로 표시 되게끔 설정이 가능한가요? (1)
Lucas's | 2022.01.24 | 추천 0 | 조회 35
Lucas's 2022.01.24 0 35
26336 함수/공식
New 셀안 동일 회사명을 순차 카운트를 하고 싶습니다. (3) 답변완료
sickp**** | 2022.01.24 | 추천 0 | 조회 32
sickp**** 2022.01.24 0 32
26334 함수/공식
New 이름만 치면 열 다 띄워주는 방법을 알려주세요 첨부파일 (8) 답변완료
아마테라스 | 2022.01.24 | 추천 0 | 조회 61
아마테라스 2022.01.24 0 61