Jody는 사용자 정의 도구 모음 단추를 개발하고 단추에 매크로를 할당하는 중입니다. 그녀는 적어도 하나의 워크 시트가 표시 될 때마다 단추를 활성화하려고하지만 이러한 상황을 처리 할 적절한 코드를 파악하고 있습니다.

Excel과 같은 다양한 환경에서 가정 할 수있는 것처럼 이에 접근 할 수있는 방법은 여러 가지가 있습니다. 한 가지 가능한 해결책은 화면에 보이는 창이 있는지 확인하는 루틴을 만드는 것입니다. 있는 경우 도구 모음 단추를 활성화 할 수 있습니다. 없는 경우 비활성화 할 수 있습니다. 다음 매크로는이를 수행합니다.

Sub CheckButtons()

Dim bOneOpen As Boolean     Dim I As Integer     Dim J As Integer          bOneOpen = False     For I = 1 To Workbooks.Count         For J = 1 To Workbooks(I).Windows.Count             If Workbooks(I).Windows(J).Visible Then bOneOpen = True         Next J         If bOneOpen Then Exit For     Next I     If bln Then         'enable buttons     Else         'disable buttons     End If End Sub

매크로 하단 근처에 두 개의 주석이 있습니다. 툴바 버튼을 활성화 또는 비활성화하기 위해 해당 주석을 적절한 코드로 바꾸면됩니다. (코드는 버튼의 수와 구성에 따라 다릅니다.)

이 매크로는 수동으로 호출 할 수도 있고, 창을 열거 나 크기를 조정하거나 최소화하거나 최대화하거나 복원 할 때 발생하는 이벤트와 같이 창 변경에 의해 트리거되는 모든 이벤트에서 호출 할 수 있습니다.

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (2618)은 Microsoft Excel 97, 2000, 2002 및 2003에 적용됩니다.