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

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

오빠두엑셀 영상을 실무에서 제대로 활용하는 일인입니다^^
첨부파일에 있는 해당 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

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


전체 4,653
번호 카테고리 제목 작성자 작성일 추천 조회
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (10)
오빠두엑셀 | 2021.10.28 | 추천 16 | 조회 716
트로피 오빠두엑셀 2021.10.28 16 716
24177 기능/도구
New 매크로 와 자동필터
FLOWERBALL | 2021.11.30 | 추천 0 | 조회 20
FLOWERBALL 2021.11.30 0 20
24168 VBA
New (문의) 번호가 같을경우 옆에 있는 셀의 값을 병합 (1)
ryan_cruze | 2021.11.30 | 추천 0 | 조회 37
ryan_cruze 2021.11.30 0 37
24166 기능/도구
New 질문있습니다.
최강씨맨 | 2021.11.30 | 추천 0 | 조회 26
최강씨맨 2021.11.30 0 26
24163 함수/공식
New 엑셀 특정 내용 추출하는 수식 질문드립니다. (2)
PAKSAW | 2021.11.30 | 추천 0 | 조회 31
PAKSAW 2021.11.30 0 31
24161 함수/공식
New 특정 날짜 값 찾기 (2)
ㄱ박민극 | 2021.11.30 | 추천 -1 | 조회 35
ㄱ박민극 2021.11.30 -1 35
24154 피벗테이블
New 설문조사 피벗테이블 구성이 어렵네요 첨부파일 (2)
가리 | 2021.11.30 | 추천 0 | 조회 29
가리 2021.11.30 0 29
24153 VBA
New 엑셀 검색 창 첨부파일 (2)
이혜 | 2021.11.30 | 추천 0 | 조회 28
이혜 2021.11.30 0 28
24148 피벗테이블
New 피벗테이블 형태의 데이터베이스 변환 (1)
이길호 | 2021.11.30 | 추천 0 | 조회 27
이길호 2021.11.30 0 27
파워쿼리/피벗
New Re:피벗테이블 형태의 데이터베이스 변환
Yukon | 2021.11.30 | 추천 0 | 조회 17
Yukon 2021.11.30 0 17
24140 VBA
New 특정 시트에 추출되어있는 값을 각각의 시트로 분류하려고합니다. 첨부파일 (1)
이치영 | 2021.11.30 | 추천 0 | 조회 40
이치영 2021.11.30 0 40
24135 VBA
New vlookup #N/A 에러가 나오는 경우 IF문은 어떻게.... (2)
툴잇지 with 우정기기 | 2021.11.29 | 추천 0 | 조회 53
툴잇지 with 우정기기 2021.11.29 0 53
24132 함수/공식
New 동적범위, 셀값을 시트명으로 인식하여 합계를 구하는것 첨부파일 (6) 답변완료
키큰아저씨 | 2021.11.29 | 추천 0 | 조회 51
키큰아저씨 2021.11.29 0 51
24129 VBA
New 직사각형 도형 삭제vba (2) 답변완료
H.B | 2021.11.29 | 추천 1 | 조회 33
H.B 2021.11.29 1 33
24126 VBA
New "요청한 레지스트리에 엑세스할 수 없습니다." 라는 에러때문에 진행이 안됩니다. (3)
볼펜수리공 | 2021.11.29 | 추천 0 | 조회 30
볼펜수리공 2021.11.29 0 30
24120 기능/도구
New 조건부서식으로 찾은 바탕색을 실제 엑셀 바탕색 컬러로 변경하고 싶습니다. 첨부파일 (3) 답변완료
glas**** | 2021.11.29 | 추천 0 | 조회 36
glas**** 2021.11.29 0 36
24117 함수/공식
New 맨 끝자리를 제외한 7자리 추출 첨부파일 (2) 답변완료
감사하모니카 | 2021.11.29 | 추천 0 | 조회 43
감사하모니카 2021.11.29 0 43
24116 VBA
New VBA 2007버전과 2021버전에서의 속도 차이가 많이 납니다. 해결방안이 있을까 해서요? 첨부파일 (2)
한정석 | 2021.11.29 | 추천 0 | 조회 50
한정석 2021.11.29 0 50
24113 함수/공식
New 조건 서식 질문입니다. 첨부파일 (1)
space | 2021.11.29 | 추천 0 | 조회 38
space 2021.11.29 0 38
24111 피벗테이블
New 피벗테이블 DAX함수 관련 문의 (1)
T첫 | 2021.11.29 | 추천 0 | 조회 25
T첫 2021.11.29 0 25
24106 함수/공식
New 엑셀에서 해당 날짜기간 동안을 찾아 날짜열에 각각 표기하는 방법 첨부파일 (5)
공수래 | 2021.11.29 | 추천 0 | 조회 41
공수래 2021.11.29 0 41
24099 함수/공식
New 입력한 값에 따라 IMAGE 자동입력 함수 문제 관련 (1)
유지연 | 2021.11.29 | 추천 0 | 조회 30
유지연 2021.11.29 0 30
24098 VBA
New 워드 Format(숫자, "#,###") (1) 답변완료
argus | 2021.11.28 | 추천 0 | 조회 38
argus 2021.11.28 0 38
24097 VBA
New 각각 형식이 다른 여러 시트에서 원하는 값들만 가져와서 한 시트에 보기 쉽게 합치고 싶습니다. 첨부파일 (1)
축전 | 2021.11.28 | 추천 0 | 조회 44
축전 2021.11.28 0 44
24096 VBA
New 엑셀 재고관리툴 만들기 VBA영상 시청중 오류 발생관련 문의입니다. 첨부파일
가을전어 | 2021.11.28 | 추천 0 | 조회 28
가을전어 2021.11.28 0 28
24093 기능/도구
New 작업표시줄 클릭으로 클립보드에 복사 문제 관련 (1)
어루 | 2021.11.28 | 추천 0 | 조회 21
어루 2021.11.28 0 21
24091 VBA
New 도와주세요! 뭐가 문제인지 못찾겠습니다.
y**** | 2021.11.28 | 추천 0 | 조회 40
y**** 2021.11.28 0 40
24089 VBA
New 엑셀 vlookup vba 문의드립니다. (4) 답변완료
ㅈㄱㄹ | 2021.11.28 | 추천 0 | 조회 50
ㅈㄱㄹ 2021.11.28 0 50
24088 함수/공식
New 개인별 회비 납부 현황에 따라 월별 납부액 결정 관련 함수 또는 VBA (미납, 매월 16일 이후 납부할 경우 월회비 10% 가산) 첨부파일 (5) 답변완료
007 | 2021.11.28 | 추천 0 | 조회 63
007 2021.11.28 0 63
24081 함수/공식
New 영문주소를 한글주소로 변경 희망합니다. (1)
루s cos 개인대행 | 2021.11.28 | 추천 0 | 조회 40
루s cos 개인대행 2021.11.28 0 40
24072 VBA
New 수식이 있는 데이터에서 매크로를 사용하여 다른시트에 결과값만 붙여넣고 싶습니다. 첨부파일 (6) 답변완료
호랑이파워 | 2021.11.28 | 추천 0 | 조회 60
호랑이파워 2021.11.28 0 60
24068 파워쿼리/피벗
파워쿼리 간단한 '값 바꾸기' 에 대해서 질문드립니다. 첨부파일 (3)
월마리아 | 2021.11.28 | 추천 0 | 조회 31
월마리아 2021.11.28 0 31