엑셀로그인 프로그램 사용자 개인별 시트만 보이게 하는 방법

VBA
작성자
엑셀이
작성일
2021-11-26 14:22
조회
58
엑셀버전 : 엑셀2019

운영체제 : 윈도우10

안녕하세요 현재 임금명세서 교부문제로 엑셀로그인 프로그램을 만들고 있습니다

 

  1. 사용자정보 목록에 있는 홍길동이 로그인할경우

홍길동 급여명세서만 보이게 하고 싶습니다(나머지 시트는 안보이게)

아래 함수에서 인원별로 case 시트명을 쓰는게 아니라 시트명을 불러와서 아이디와 일치하는 급여명세서만 보이게 하고 싶은데

불러오는함수와 일치하는 명령문을 어떻게 써야 할지 모르겠어요ㅠㅠ

2. 관리자가 로그인할경우 모든 시트를 볼수 있게 하려면 아래 식만 추가하면 되는걸까요?

'관리자일 경우 -> 사용자정보 시트를 표시
Case else
If Me.txtID.Value = "급여" Then WS.Visible = xlSheetVisible

3. 급여명세서 파일만 수정하지 못하도록 시트보호 암호를 설정하고 싶습니다

시트별로 하나하나 암호설정이 아니라 매크로로 임금명세서 파일만 또는 선택한 파일만 시트보호 암호를 걸 수 있는 매크로가 있을까요?

 

-----------------

 

Sub Login_Success()

'변수설정
Dim WS As Worksheet
Dim EndRow As Long

' 각 시트를 돌아가면서 시트를 보임/숨김
For Each WS In ThisWorkbook.Worksheets
Select Case WS.Name
'관리자일 경우 -> 사용자정보 시트를 표시
Case "로그인기록", "사용자정보"
If Me.txtID.Value = "급여" Then WS.Visible = xlSheetVisible
'로그인 시트는 숨김
Case "로그인"
WS.Visible = xlSheetVeryHidden
'나머지 시트는 표시
Case Else
WS.Visible = xlSheetVisible
End Select

 

관리자 아이디는 급여 비번은 admin 입니다

 

전체 1

  • 2021-11-26 22:32
    채택된 답변

    아래 코드를 한번 활용해보세요.

    1] 사용자 로그인

    For Each WS In ThisWorkBook.WorkSheets
       If WS.Name = 로그인이름 Then Ws.Visible = 보임 Else WS.Visible = 숨김
    Next

    2] 관리자 로그인

    명령문 맨 앞줄에

    If 로그인이름 = 관리자 Then
    
    For Each WS In ThisWorkBook.WorkSheets
       Ws.Visible = True
    Next
    Exit Sub
    
    End If

전체 4,702
번호 카테고리 제목 작성자 작성일 추천 조회
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (12)
오빠두엑셀 | 2021.10.28 | 추천 16 | 조회 807
트로피 오빠두엑셀 2021.10.28 16 807
24347 파워쿼리/피벗
New 질문 있습니다. 파워쿼리에서 Text.Select가 실행이 안됩니다. 첨부파일
railway | 14:34 | 추천 0 | 조회 1
railway 14:34 0 1
24343 파워쿼리/피벗
New 엑셀 파워쿼리 파일병합
min**** | 13:43 | 추천 0 | 조회 13
min**** 13:43 0 13
24339 VBA
New 크롤링 반복 (재질문 입니다) 첨부파일 (1)
하늘의 꿈 | 12:48 | 추천 0 | 조회 10
하늘의 꿈 12:48 0 10
24330 VBA
New 매크로를 원하는 범위에서만 사용하는 방법을 알고싶습니다. 첨부파일 (3) 답변완료
호랑이파워 | 01:37 | 추천 0 | 조회 33
호랑이파워 01:37 0 33
24321 VBA
New 열 나누기 (4)
정미현 | 2021.12.05 | 추천 0 | 조회 33
정미현 2021.12.05 0 33
24317 피벗테이블
New 상품별로 기간 판매량을 구하고 싶습니다 첨부파일 (5) 답변완료
wlfl**** | 2021.12.05 | 추천 0 | 조회 39
wlfl**** 2021.12.05 0 39
24315 함수/공식
New 선택한 2개 열/행의 값의 곱을 구하고 싶습니다. (2)
(알수없음) | 2021.12.05 | 추천 0 | 조회 27
(알수없음) 2021.12.05 0 27
24310 VBA
New 제발 도와주세요 ㅠㅠ 첨부파일 (1)
떠희아빠 | 2021.12.04 | 추천 0 | 조회 59
떠희아빠 2021.12.04 0 59
24307 함수/공식
New 엑셀 초보인데 count 함수 관련 질문 있습니다. 첨부파일 (4)
야기분좋다 | 2021.12.04 | 추천 1 | 조회 31
야기분좋다 2021.12.04 1 31
24305 VBA
New 이문제는 시트를 변수로 지정을 해아하나요?? 첨부파일 (3) 답변완료
어려워 | 2021.12.04 | 추천 0 | 조회 31
어려워 2021.12.04 0 31
24300 VBA
New 떨어져 있는 특정 셀 선택 매크로 (1) 답변완료
제비제비 | 2021.12.04 | 추천 0 | 조회 41
제비제비 2021.12.04 0 41
24293 기능/도구
New 특정행으로 이동하는 문의를 드립니다. 첨부파일 (2)
열공합시다 | 2021.12.04 | 추천 0 | 조회 35
열공합시다 2021.12.04 0 35
24291 VBA
New for 문과 for each문을 보다가 궁금한게있습니다. (1) 답변완료
이치영 | 2021.12.04 | 추천 0 | 조회 37
이치영 2021.12.04 0 37
24289 함수/공식
New 함수좀 알려주세요. 첨부파일 (5) 답변완료
naver_5f055a605ee7d | 2021.12.04 | 추천 0 | 조회 45
naver_5f055a605ee7d 2021.12.04 0 45
24285 VBA
New 파일선택하면 파일명을 클립보드에 넣을수 있을까요? (2) 답변완료
ㅈㄱㄹ | 2021.12.04 | 추천 0 | 조회 30
ㅈㄱㄹ 2021.12.04 0 30
24279 함수/공식
New xfilter 사용조건 중 모두를 검색하는 수식 첨부파일 (4) 답변완료
다우미노 | 2021.12.03 | 추천 0 | 조회 38
다우미노 2021.12.03 0 38
24277 VBA
New 엑셀 화일명 변경 관련 첨부파일 (2)
워싱턴 | 2021.12.03 | 추천 0 | 조회 42
워싱턴 2021.12.03 0 42
24276 함수/공식
New 해당값을 끌고오는 양식? 첨부파일 (1) 답변완료
뚜루루 | 2021.12.03 | 추천 1 | 조회 46
뚜루루 2021.12.03 1 46
24275 VBA
New 병렬로 나열된 자료 일렬로 정렬하는 방법 문의 드립니다. 첨부파일 (2) 답변완료
007 | 2021.12.03 | 추천 0 | 조회 54
007 2021.12.03 0 54
24271 VBA
Sheet 이동시 속성이름을 유지하고 싶어요 첨부파일 (5)
Lucas's | 2021.12.03 | 추천 0 | 조회 34
Lucas's 2021.12.03 0 34
24270 기능/도구
여러가지 수식으로 된 엑셀시트에서 목표값에 맞추기 위한 해 찾기 문의드립니다. 첨부파일 (2) 답변완료
함수시르미 | 2021.12.03 | 추천 1 | 조회 36
함수시르미 2021.12.03 1 36
24262 VBA
불규칙 데이터의 자동채우기 해결방법 (1)
파퍼 | 2021.12.03 | 추천 0 | 조회 51
파퍼 2021.12.03 0 51
24259 함수/공식
계획시트에서 일일실적시트로 일별 데이터 취합방법 문의드립니다. 첨부파일 (3)
skyzza**** | 2021.12.03 | 추천 0 | 조회 43
skyzza**** 2021.12.03 0 43
24253 함수/공식
파일과 관련된 숫자를 다른 파일에 있는 숫자로 변경할 수 있는 방법 첨부파일 (2)
안녕 | 2021.12.02 | 추천 0 | 조회 34
안녕 2021.12.02 0 34
24252 함수/공식
표 범위 내에서 맨 좌측값 가져오기 질문드립니다. (3) 답변완료
김성환 | 2021.12.02 | 추천 0 | 조회 38
김성환 2021.12.02 0 38
24251 기능/도구
엑셀 주식 가격 예측 양식 사용 질문입니다. 첨부파일 (1)
thause | 2021.12.02 | 추천 0 | 조회 29
thause 2021.12.02 0 29
24249 VBA
모든 하위 폴더 내의 최신 파일 하나만을 특정 폴더로 복사하려 합니다 (1)
너의나라 | 2021.12.02 | 추천 0 | 조회 35
너의나라 2021.12.02 0 35
24248 차트/그래프
그래프에서 가로 축 Data 설정하는 법 첨부파일 (1)
Etter | 2021.12.02 | 추천 0 | 조회 37
Etter 2021.12.02 0 37
24245 VBA
아웃룩 이메일 내용에 VBA 변수 넣기 (1) 답변완료
argus | 2021.12.02 | 추천 0 | 조회 41
argus 2021.12.02 0 41
24239 VBA
[초보] 웹 크롤링 관련 질문입니다. 첨부파일 (2) 답변완료
스캐쳐 | 2021.12.02 | 추천 0 | 조회 41
스캐쳐 2021.12.02 0 41