엑셀 vba 열었을 때, 로그인창, 비번, 시트보이지 않게

엑셀 파일 다운로드

UserForm, CommandButton_click, Me, Unload, ActiveWorkbook.Close, False, xlSheetVeryHidden, 숨기기취소 보이지 않게.xlsm

0.13MB

Private Sub Workbook_Open()     Sheet1.Range("f24").ClearContents     UserForm1.Show End Sub

Private Sub CommandButton1_Click()     Sheet1.Range("f24") = Me.TextBox1.Value     If Sheet1.Range("f25") = 1 Then         MsgBox "환영합니다."         Unload UserForm1     Else         MsgBox "아이디를 확인하세요."         ActiveWorkbook.Close False                     '저장하지 않고 닫음     End If End Sub

로그인aaa111.xlsm

0.02MB

Private Sub CommandButton1_Click()     Sheet1.Range("c2") = Me.TextBox1.Value     Sheet1.Range("c3") = Me.TextBox2.Value     If Sheet1.Range("c3") = Sheet1.Range("D2") Then         MsgBox "환영합니다."     Else         MsgBox "ID와 비번을 확인하세요."         ActiveWorkbook.Close False     End If          Unload Me          End Sub

Private Sub Workbook_Open()     Range("c2").Clear     Range("c3").Clear     UserForm1.Show   End Sub