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

VBA
작성자
엑셀이
작성일
2021-11-26 14:22
조회
32
엑셀버전 : 엑셀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 입니다

 

회원등급 : 2레벨
포인트 : 35 EP
총질문 : 1 개 (마감율 : 0%)
채택답변 : 0 개
전체 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,625
번호 카테고리 제목 작성자 작성일 추천 조회
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (8)
오빠두엑셀 | 2021.10.28 | 추천 12 | 조회 657
트로피 오빠두엑셀 2021.10.28 12 657
24072 VBA
New 수식이 있는 데이터에서 매크로를 사용하여 다른시트에 결과값만 붙여넣고 싶습니다. 첨부파일 (1)
호랑이파워 | 11:10 | 추천 0 | 조회 13
호랑이파워 11:10 0 13
24068 파워쿼리/피벗
New 파워쿼리 간단한 '값 바꾸기' 에 대해서 질문드립니다. 첨부파일 (1)
월마리아 | 00:18 | 추천 0 | 조회 16
월마리아 00:18 0 16
24065 피벗테이블
New 열과 행 바꾸는 쉬운 방법있나요? 첨부파일 (1)
jyj6**** | 2021.11.27 | 추천 0 | 조회 26
jyj6**** 2021.11.27 0 26
24060 VBA
New 메모리가 부족하다고 뜹니다. 첨부파일
선물 | 2021.11.27 | 추천 0 | 조회 22
선물 2021.11.27 0 22
24059 VBA
New 첨부파일을 서버 업로드
권원재 | 2021.11.27 | 추천 0 | 조회 23
권원재 2021.11.27 0 23
24053 파워쿼리/피벗
New 엑셀 배열 순서를 바꾸고 싶습니다. 첨부파일
jyj6**** | 2021.11.27 | 추천 1 | 조회 24
jyj6**** 2021.11.27 1 24
VBA
New Re:엑셀 배열 순서를 바꾸고 싶습니다.
Yukon | 2021.11.27 | 추천 1 | 조회 33
Yukon 2021.11.27 1 33
피벗테이블
New Re:Re:엑셀 배열 순서를 바꾸고 싶습니다. (1)
jyj6**** | 2021.11.27 | 추천 0 | 조회 18
jyj6**** 2021.11.27 0 18
24048 VBA
New 재고관리 툴 만들기 질문이요 첨부파일 (2)
선물 | 2021.11.26 | 추천 0 | 조회 32
선물 2021.11.26 0 32
24046 함수/공식
New 날짜별로 근태 정리를 하려면 어떻게 해야할까요 첨부파일 (2)
ㅁㅁㅁㅁㅁ | 2021.11.26 | 추천 0 | 조회 47
ㅁㅁㅁㅁㅁ 2021.11.26 0 47
24042 VBA
New 한 코드를 가진 사람의 계약일자 최소값 최대값 구하기 첨부파일
seorin | 2021.11.26 | 추천 0 | 조회 27
seorin 2021.11.26 0 27
24039 함수/공식
New 다중 조건 및 가장 낮은 일시에 매칭되는 값 불러오기 첨부파일 (6)
감사하모니카 | 2021.11.26 | 추천 0 | 조회 32
감사하모니카 2021.11.26 0 32
24038 VBA
New ZAN IMAGE PRINTER 프로그램에서 JPG 파일명을 내 마음대로 (3)
goodman | 2021.11.26 | 추천 0 | 조회 22
goodman 2021.11.26 0 22
24033 문서서식
New 조건부 서식 특정열 단어포함시 해당 행의 서식 변경 방법 첨부파일 (2) 답변완료
아빠의꿈 | 2021.11.26 | 추천 0 | 조회 29
아빠의꿈 2021.11.26 0 29
24032 함수/공식
New 함수 초보 질문있습니다. (2) 답변완료
윤태종 | 2021.11.26 | 추천 0 | 조회 29
윤태종 2021.11.26 0 29
24029 VBA
New 엑셀로그인 프로그램 사용자 개인별 시트만 보이게 하는 방법 첨부파일 (1)
엑셀이 | 2021.11.26 | 추천 0 | 조회 32
엑셀이 2021.11.26 0 32
24014 VBA
New Private Sub Worksheet_Change(ByVal Target As Range) 조건문의 (1)
yg | 2021.11.26 | 추천 1 | 조회 33
yg 2021.11.26 1 33
24011 VBA
New vba 고급필터후 인쇄 자동화 첨부파일 (1)
naver_6180ef1e63220 | 2021.11.26 | 추천 0 | 조회 38
naver_6180ef1e63220 2021.11.26 0 38
24010 문서서식
New 양이 많은 '병합하고 가운데 맞춤 '버튼을 눌러서 할일을 쉽게 하는방법 첨부파일 (3)
아빠의꿈 | 2021.11.26 | 추천 0 | 조회 44
아빠의꿈 2021.11.26 0 44
24009 함수/공식
New 오빠두 강의 중 마지막셀 이동에 관하여 질문드립니다. (MATCH함수) (2)
월마리아 | 2021.11.25 | 추천 0 | 조회 35
월마리아 2021.11.25 0 35
24006 함수/공식
New 조건부 서식 함수 첨부파일 (1)
AFOPWEOI1213 | 2021.11.25 | 추천 -1 | 조회 42
AFOPWEOI1213 2021.11.25 -1 42
24005 파워쿼리/피벗
New 파워쿼리에서 다중조건 평균구하기 (1)
황선규 | 2021.11.25 | 추천 0 | 조회 27
황선규 2021.11.25 0 27
24002 기능/도구
New 엑셀 요 기능 이름이 뭐죠?ㅜㅜ (2) 답변완료
냥냥 | 2021.11.25 | 추천 0 | 조회 39
냥냥 2021.11.25 0 39
24000 함수/공식
New 조건부서식에서 배열수식이 입력가능한가요? (2) 답변완료
무케 | 2021.11.25 | 추천 0 | 조회 35
무케 2021.11.25 0 35
23998 VBA
New Auto_open / Auto_close에서 프로젝트나 라이브러리를 찾을수없습니다. 문제.... 아시는분 (1) 답변완료
카이로젠 | 2021.11.25 | 추천 0 | 조회 23
카이로젠 2021.11.25 0 23
23996 기능/도구
New 제품명 일괄 수정방법 (2) 답변완료
태환11 | 2021.11.25 | 추천 0 | 조회 35
태환11 2021.11.25 0 35
23995 함수/공식
New 해찾기 문제 관련, 전체 양은 10kg은 채우되, 목표 함량을 충족하고 가장 저렴한 방법 찾기..? 첨부파일 (5)
맞장구침 | 2021.11.25 | 추천 0 | 조회 33
맞장구침 2021.11.25 0 33
23991 VBA
New function결과값 외에도 그 안의 값을 다른셀에 입력하고싶습니다 (1)
오리22 | 2021.11.25 | 추천 0 | 조회 24
오리22 2021.11.25 0 24
23990 함수/공식
New or 함수 문의드립니다. (3) 답변완료
무케 | 2021.11.25 | 추천 0 | 조회 32
무케 2021.11.25 0 32
23985 VBA
개인용매크로 관련문의입니다. (4) 답변완료
무케 | 2021.11.25 | 추천 0 | 조회 39
무케 2021.11.25 0 39
23980 함수/공식
함수문의 드립니다 (5) 답변완료
제이올라 | 2021.11.25 | 추천 0 | 조회 38
제이올라 2021.11.25 0 38
23977 VBA
중복행 데이터 입력, 통합 관련 문의드립니다. 첨부파일 (4) 답변완료
케빈 | 2021.11.25 | 추천 0 | 조회 37
케빈 2021.11.25 0 37