엑셀대단해님.. 안녕하세요?

음..

기존 열려 있는 폼을 인식해서 닫고 싶으시다구요?

일단.. 대단해님이 전문 프로그래머가 아니시라는 가정하에.. 

단순한 방법을 알려드리겠습니다. 프로그래머가 본다면 무식한 방법이라고도 할 수 있지요.. ^_^;; 

하지만 제일 단순하고 쉽습니다.

어떤 폼을 열기 전에 아래와 같이 열려 있을 수 있는 유저폼을 전부 닫아버린 다음.. 새로운 유저폼을 Show해주면 됩니다.

if문을 이용해서 조건을 넣을 수도 있구요.. 쉽지요? ㅎㅎ

Sub unloadAllUserForms()

    On Error Resume Next

    If ActiveSheet.Name <> "abyul1" Then Unload ufrmAbyul1

    If ActiveSheet.Name <> "abyul2" Then Unload ufrmAbyul2

    If ActiveSheet.Name <> "abyul3" Then Unload ufrmAbyul3

    If ActiveSheet.Name <> "abyul4" Then Unload ufrmAbyul4

    If ActiveSheet.Name <> "abyul5" Then Unload ufrmAbyul5

    On Error GoTo 0

End Sub

== 절 취 선 ==============================================

자.. 위에껀 사실 꼼수구요..

열려있을 수 있는 유저폼이 몇 백개 된다면.. 프로그램 효율이 떨어지겠지요?

솔직히 몇백개가 안되면 위와 같이 하셔도 별 문제 없습니다.

암튼.. 제대로 프로그래밍하려면 어떻게 해야하냐면요..

엑셀 VBA 자체의 기능으로는 안되구요.. Windows API를 사용하셔야합니다.

GetActiveWindow 함수를 이용해서 현재 활성창이 유저폼이면 닫아버린다든가.. 하면 되겠습니다.

또는 FindWindow 함수를 활용해 볼 수도 있구요..

API에 대해서는 개인적으로 공부를 하셔야할 겁니다.

제가 처음 API를 공부할때 자료들을 정리한 게시물이 있는데 그걸 참고해서 공부해보세요..

http://www.abyul.com/zbxe/71223

머.. VBA 프로그래밍에 재미를 느끼신다면 한번 API를 공부해보시구요..

그렇지 않다면.. 저 위에 설명해 드린 방법으로 구현하세요..

도움이 되셨기를.. ^^

아.. 이것은.. 꼬꼬질.. +_+;;

꼬리에 꼬리를 무는 질문이군요.. ㅎㅎ

CustomUI까지 구성하시다니.. 꽤 고수급이신듯 싶습니다.

그 정도의 사전 지식이 있다는 가정하에 답변 드리겠습니다.

사용자 추가한 탭을 보이거나 숨기는 것은 getVisible 속성을 사용하시면 됩니다.

아래 링크에 가셔서 샘플 파일을 다운 받으시고.. 다운 받은 압축 파일 중에서 "Hide-Display-Tab.xlsm"파일을 참고해보세요.

http://www.rondebruin.nl/hidevisible.htm

위 파일을 다운 받아 보시면 아시겠지만..

리본메뉴 설정에 익숙하지 않으시면 잘 이해가 안 되실 수 있겠다 싶어서.. 

제가 설명을 좀 보태보겠습니다. (괜한 짓인가요? ^_^;;)

CustomUI Editor 프로그램에서..

<!-- 아래와 같이 onLoad에 RibbonOnLoad 프로시저를 지정해주시구요.. -->

<customUI onLoad="RibbonOnLoad" xmlns="http://schemas.microsoft.com/office/2006/01/customui">

<!-- 사용자가 추가하는 Tab에는 GetVisible 속성을 추가하세요.. 예제에서는 Tag속성을 사용해서 탭을 식별하게 했네요.. -->

  <ribbon> 

    <tabs>

      <tab id="MyCustomTab" label="My Tab" insertAfterMso="TabHome" getVisible="GetVisible" tag="MyPersonalTab" >

CustomUI Editor는 이제 닫으시구요..

엑셀창의 VB Editor에서.. 아래와 같은 코드를 작성하시면 됩니다.

Option Explicit

'### 공용 변수를 선언합니다.

Dim Rib As IRibbonUI

Public MyTag As String

'### 이 아이는 XML에서 onLoad 속성에서 정의해준 프로시저죠..

'### 현재 리본 오브젝트를 Rib로 정의합니다.

Sub RibbonOnLoad(ribbon As IRibbonUI)

    Set Rib = ribbon

End Sub

'### 탭을 보여주는 프로시저..

Sub DisplayRibbonTab()

    Call RefreshRibbon(Tag:="MyPersonalTab")

End Sub

'### 탭을 숨기는 프로시저

Sub HideEveryTab()

    Call RefreshRibbon(Tag:="")

End Sub

'### Visible에 대한 변수를 바꾸어도 바로 리본에 적용되지는 않습니다.

'### 처음 로드될때의 캐시값을 계속 사용하기 때문이죠.. Invalidate로 캐시값을 전부 무효로 만들어줘야 값을 갱신합니다.

Sub RefreshRibbon(Tag As String)

    MyTag = Tag

    If Rib Is Nothing Then

        MsgBox "Error, Save/Restart your workbook"

    Else

        Rib.Invalidate

    End If

End Sub

'### 변수에 따른 Visible을 리본에 반영하는 프로시저죠..

'### 바로 위의 RefreshRibbon 프로시저에서 Rib.Invalidate로 캐시값을 갱신해줄때 자동으로 호출이 됩니다.

Sub GetVisible(control As IRibbonControl, ByRef visible)

    If MyTag = "show" Then

        visible = True

    Else

        If control.Tag Like MyTag Then

            visible = True

        Else

            visible = False

        End If

    End If

End Sub

도움이 되셨기를.. ^^

ps. 이거 밥이라도 사셔야하는거 아닙니까!! ㅋㅋ

      농담입니다. ㅎㅎ

대단해님.. SI업체에 계시군요!

전에 다니던 회사에서 오라클 ERP 셋업멤버였는데.. 그 때 고생한걸 생각하면.. 쿨럭.. ㅎㅎ

그런 노하우들이 있으시면 VBA는 금방 익히실 것 같네요..

VBA는 파면 팔 수록 재미있어요.. ^_^;;

조만간 아별닷컴 회원들 오프라인 모임이라도 추진할까봐요..

강남정도가 적당할듯 싶은데요.. ^_^;;

그래봤자.. 한 2~3분 오시지 않을까싶네요.. ㅎㅎ

날짜 잡으면 연락드리겠습니다~~ ^^

그리고 저는 한양대학교역 근처에서 근무합니다. ^^

주변에 오실일 있으시면 연락주세요.. ^^

오늘 하루도 즐거운 하루 되세요.. ^^)/