Embedded Files
파일을 열 때 / 닫을 때
파일을 열 때 / 닫을 때
파일 > 다른이름으로 저장
> 이PC > 바탕화면
*.xlsm
파일열때 / UserForm
파일열때 / UserForm
ID 값을 받아
목록과 비교하여 같은 값이 있다면(B3=1)
파일 사용 가능
0이라면 파일 닫기
UserForm으로 ID(B2)값 받기
F5 누르면 미리보기 가능
Private Sub CommandButton1_Click()
Sheet1.Range("b2") = Me.TextBox1.Value
If Sheet1.Range("b3") = 1 Then
MsgBox "사용가능합니다."
Unload UserForm1 'UserForm1을 닫는다.
Else
MsgBox "아이디를 확인하세요."
ActiveWorkbook.Close False '지금 열린 파일을 저장하지 않고 닫기
End If
End Sub
엑셀파일 저장하고 테스트해보자.
beforclose 이벤트와
userform 이벤트가 충돌하여 파일이 닫히지 않음.
beforclose 이벤트를 삭제하고
open 이벤트에서 UserForm1을 불러오도록 하자.
sheet1의 Visible을 xlSheetVeryHidden으로 하면 숨기기 취소가 되지 않음.
[과제] ID와 PW가 일치할 때 파일이 사용가능하도록 하자.
[과제] ID와 PW가 일치할 때 파일이 사용가능하도록 하자.
Page updated
Google Sites
Report abuse