Excel.exe의 Mutliple 인스턴스에서 Excel 추가 기능을 실행하는 방법

Question

Excel의 응용 프로그램 수준 이벤트 및 프로세스는 응용 프로그램의 단일 인스턴스로 제한됩니다.

이전에는 사용자가 다음 코드를 사용하여 추가 기능을 실행할 때 둘 이상의 Excel 인스턴스를 열 수 없었습니다.

Private Sub KillDuplicateProcesses() 

    Dim objWMIService As Object 
    Dim colItems As Variant 
    Dim objItem As Object 
    Dim intCount As Integer 

    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") 
    Set colItems = objWMIService.InstancesOf("Win32_Process") 
    For Each objItem In colItems 
     intCount = intCount + Abs(LCase(objItem.Name) = "excel.exe") 
    Next 

    If intCount > 1 Then 
     MsgBox "Excel is already running.", vbCritical 
     Application.Quit 
    End If 

    Set objWMIService = Nothing 
    Set colItems = Nothing 

End Sub 

그러나 Excel의 여러 인스턴스가 실행되는 동안 추가 기능을 안전하게 실행하는 방법이 있다면 궁금합니다. 예를 들어

, 나는 VBA에서이 같은 것을 할 경우 :

Application.MoveAfterReturnDirection = xlDown 

이 변경 및 명령 모음 개체에 대한 변경이 동시에 자신의 창 각, 엑셀의 모든 인스턴스에 반영되어야한다.

감사합니다.

Answer 1

추가 기능이 레지스트리를 사용하여 유지하고 모든 Excel 세션에 적용 할 설정을 저장하는 것이 좋습니다. 그런 다음 addin은 workbook.activate와 같은 응용 프로그램 수준 이벤트를 사용하여 저장된 레지스트리 설정을 확인합니다.

Answer 2

추가 기능이 작동하도록 사람들이 새로운 Excel 인스턴스를 열지 못하게합니다! - 좋은 !!!!

찰스 아이디어가 좋다. 인스턴스 전체에서 전역 변수와 비슷하다. 마찬가지로 .ini 파일에 기록하고 매번 참조 할 수 있습니다.

현재 진행 상황에 따라 다르지만 모든 인스턴스에서 설정을 동일하게 유지 하시겠습니까? 어쨌든 각기 다른 설정을 원할 것입니다.