엑셀VBA) 비밀번호 입력창 만들기

​

​

단계 1) 위 그림처럼 UserForm1을 생성 후 각종 도구모음에서 컨트롤 들을 추가 한다.

단계 2) 기존 Module1에 위와 같이 입력한다.

단계 3) 버튼을 더블클릭하여 코드 입력 부분에 위의 내용을 붙여넣기 한다.

Private Sub CommandButton1_Click()

    비밀번호 = "asdf"
  
    If 비밀번호 <> TextBox1.Text Then
        MsgBox ("잘못된 비밀번호 입니다.")
        Exit Sub
    End If

End Sub

단계 4) 상단 을 눌러서 Initalize 를 누른 후 코드를 붙혀 넣는다

Private Sub UserForm_Initialize()

    Label1.Caption = "비밀번호를 입력하세요."
    CommandButton1.Caption = "입력"
    TextBox1.PasswordChar = "*"
    
End Sub

 

실행 된 화면