|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...):
* 아래줄에 질문을 작성하세요 >>
엑셀 각각.. 다른 장금장치를 하고 싶습니다.
예) 탐색기----- 급여대장
----- 매출현화
----- 매입현황
----- 등....
이렇게 되어있자나여... 급여대장을 다른사람이 볼수 없게.. 비밀번호 부여같은걸.
해서.. 잠구어 놓을순 없나여?
또.. 잠겨놓으면.. 풀수 있는 방법좀.. 알려주세여^^
==============[입흔제리랴쭁님 글에 대한 답변입니다]==============
안녕하세요
시트의 모듈에 작성됩니다.
Private Sub Worksheet_Activate()
Dim SelectSheet As Worksheet''사용자가 열려고하는 시트
Dim OtherSheet As Worksheet''그 시트의 다음번째 시트
Set SelectSheet = ActiveSheet
Set OtherSheet = ActiveSheet.Next
OtherSheet.Select
Dim strPwd As String
strPwd = InputBox("시트의 비번을 입력하세요.")
If strPwd <> "123" Then
MsgBox "잘못된 비번입니다.",,"www.xlstudy.com"
Else
Application.EnableEvents = False
SelectSheet.Select
Application.EnableEvents = True
End If
End Sub
편무학 |
|