유저폼의 CLOSE 버튼 못쓰게 하기

Step 1: 닫기 버튼 이해하기

UserForm을 삽입하면, 폼 우측 상단에 자동으로 닫기 버튼(우측 모퉁이의 X버튼)이 생기며, 프로그램 실행시 이 버튼을 클릭하면 유저폼을 종료하게 됩니다. 그런데 경우에 따라서는 이 버튼을 눌렀을 때 유저폼을 종료하지 못하도록 하고 싶을 때가 있을 것입니다. 위의 질문하신 분처럼 말입니다.

물리적으로 이 버튼을 없앨 수는 없지만(API 함수를 사용하면 가능합니다만 엄청나게 복잡합니다. 인건비도 못 건질 정도로… ^^) UserForm의 여러 가지 이벤트 중에서 QueryClose Event를 사용하면 이 버튼을 눌러도 유저폼을 닫지 못하도록 설정할 수는 있습니다.

Step 2: 유저폼 만들기

(1) VB Editor 상태에서 UserForm을 하나 삽입하고 아래와 같이 Label과 버튼을 하나 그려 넣습니다.

아이엑셀러

Step 3: QueryClose 이벤트 작성하기

(2) 유저폼의 빈 영역을 더블클릭 한 다음(또는 오른쪽 마우스 버튼을 누른 다음, "코드 보기"메뉴를 선택해도 됩니다), 이벤트 선택 상자에서 QueryClose Event를 선택하고 아래의 코드를 작성합니다.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'//이 UserForm_QueryClose 이벤트는 보시는 것처럼 두 개의 요소(argument)를 사용합니다.
'//CloseMode argument는 QueryClose 이벤트가 발생하였는지의 여부에 대한 결과값을
'//담습니다.

    Dim Msg As String

    If CloseMode = vbFormControlMenu Then
        '//CloseMode 값이 vbFormControlMenu와 같다는 것은 유저폼 우측 상단의 X 버튼이
        '//눌려졌다는 의미입니다. 여기서 vbFormControlMenu는 내장 상수(built-in constants)
        '//라고 하며 vbFormControlMenu는 0의 값을 가집니다. 따라서 이 문장을
        '//If CloseMode = 0 Then 이렇게 해도 됩니다.

        Msg = " 이 UserForm을 닫으시려면 [닫기] 버튼을 누르세요"
        MsgBox Msg, , "Close Button 못쓰게 하기//Exceller"
        Cancel = True
    End If
End Sub

[닫기] 버튼에는 아래와 같이 유저폼을 닫는 코드를 연결해 둡니다. 이 코드는 QueryClose 이벤트를 발생시키지 않으므로 정상적으로 닫힙니다(버튼 이름은 cmdClose로 가정했습니다).

Private Sub cmdClose_Click()
    Unload Me
End Sub

마무리

11월의 첫날을 맞이한 기념으로 오늘은 짧게 여기까지 합니다. ^___^

다음 시간에 또…

정리 — X 버튼 막기 핵심

자주 묻는 질문 (FAQ)

마치며

QueryClose 이벤트를 활용하면 X 버튼은 막고 [닫기] 버튼으로만 폼을 종료하게 만들 수 있습니다.