<DllImport("User32.dll")> _

Private Shared Function SetForegroundWindow(ByVal point As IntPtr) As Integer

End Function 

Private Function RenameConstraintSet(ByVal sSetName As String) As Boolean

Dim CatiaProcess As Process

  Try

      CATIA.StartCommand("Properties")

      CatiaProcess = Process.GetProcessesByName("cnext").FirstOrDefault()



      If CatiaProcess IsNot Nothing Then 

          SetForegroundWindow(CatiaProcess.MainWindowHandle)

          System.Threading.Thread.Sleep(200)



          ' kopirovani Do schranky

          Clipboard.SetText(sSetName)



          ' simulace sticku CTRL+V

          SendKeys.SendWait("^v")

          System.Threading.Thread.Sleep(200)



          ' simulace stisku ENTER

          SendKeys.SendWait("{ENTER}")



          Return True 

      End If

   Catch 

      MsgBox("Nepodařilo se přejmenovat Set s vazbami!", MsgBoxStyle.Critical, "Přejmenování setu")

      Return False 

   End Try 

End Function 

Option Explicit



#If Win64 Then



        Private Declare PtrSafe Function FindWindowEx Lib "user32" AliAs "FindWindowExA" (ByVal hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPtr

        Private Declare PtrSafe Function GetClassName Lib "user32" AliAs "GetClassNameA" (ByVal Hwnd As LongPtr, ByVal lpClassName As String, ByVal nMaxCount As LongPtr) As LongPtr

        Private Declare PtrSafe Function IIDFromString Lib "ole32" (ByVal lpsz As LongPtr, ByRef lpiid As UUID) As LongPtr

        Private Declare PtrSafe Function AccessibleObjectFromWindow Lib "oleacc" (ByVal Hwnd As LongPtr, ByVal dwId As LongPtr, ByRef riid As UUID, ByRef ppvObject As Object) As LongPtr



#Else



    Private Declare Function FindWindowEx Lib "user32" AliAs "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

    Private Declare Function GetClassName Lib "user32" AliAs "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

    Private Declare Function IIDFromString Lib "ole32" (ByVal lpsz As Long, ByRef lpiid As UUID) As Long

    Private Declare Function AccessibleObjectFromWindow Lib "oleacc" (ByVal hwnd As Long, ByVal dwId As Long, ByRef riid As UUID, ByRef ppvObject As Object) As Long



#End If



    Type UUID 'GUID

        Data1 As Long

        Data2 As Integer

        Data3 As Integer

        Data4(7) As Byte

    End Type



    Const IID_IDispatch As String = "{00020400-0000-0000-C000-000000000046}"

    Const OBJID_NATIVEOM As LongPtr = &HFFFFFFF0



    ' Run As enTry point of example

    Public Sub Test()



        Dim i As Long

        Dim xlApps() As Application



        If GetAllExcelInstances(xlApps) Then

            For i = LBound(xlApps) To UBound(xlApps)

                If xlApps(i).Workbooks(1).Name <> ThisWorkbook.Name Then

                    MsgBox(xlApps(i).Workbooks(1).Name)

                End If

            Next

        End If



    End Sub



    ' Actual Public facing Function to be called in other code

    Public Function GetAllExcelInstances(xlApps() As Application) As Long



        On Error GoTo MyErrorHandler



        Dim n As Long

#If Win64 Then

        Dim hWndMain As LongPtr

#Else

        Dim hWndMain As Long

#End If

        Dim app As Application



        ' Cater For 100 potential Excel instances, clearly could be better

        ReDim xlApps(1 To 100)



        hWndMain = FindWindowEx(0&, 0&, "XLMAIN", vbNullString)



        Do While hWndMain <> 0

            app = GetExcelObjectFromHwnd(hWndMain)

            If Not (app Is Nothing) Then

                If n = 0 Then

                    n = n + 1

                    xlApps(n) = app

                ElseIf checkHwnds(xlApps, app.Hwnd) Then

                    n = n + 1

                    xlApps(n) = app

                End If

            End If

            hWndMain = FindWindowEx(0&, hWndMain, "XLMAIN", vbNullString)

        Loop



        If n Then

            ReDim Preserve xlApps(1 To n)

            GetAllExcelInstances = n

        Else

            Erase xlApps

        End If



        Exit Function



MyErrorHandler:

        MsgBox "GetAllExcelInstances" & vbCrLf & vbCrLf & "Err = " & Err.Number & vbCrLf & "Description: " & Err.Description



    End Function



#If Win64 Then

        Private Function checkHwnds(xlApps() As Application, Hwnd As LongPtr) As Boolean

#Else

    Private Function checkHwnds(xlApps() As Application, Hwnd As Long) As Boolean

#End If



        Dim i As Integer



        For i = LBound(xlApps) To UBound(xlApps)

            If xlApps(i).Hwnd = Hwnd Then

                checkHwnds = False

                Exit Function

            End If

        Next i



        checkHwnds = True



    End Function



#If Win64 Then

        Private Function GetExcelObjectFromHwnd(ByVal hWndMain As LongPtr) As Application

#Else

    Private Function GetExcelObjectFromHwnd(ByVal hWndMain As Long) As Application

#End If



        On Error GoTo MyErrorHandler



#If Win64 Then

        Dim hWndDesk As LongPtr

        Dim Hwnd As LongPtr

#Else

        Dim hWndDesk As Long

        Dim Hwnd As Long

#End If

        Dim strText As String

        Dim lngRet As Long

        Dim iid As UUID

        Dim obj As Object



        hWndDesk = FindWindowEx(hWndMain, 0&, "XLDESK", vbNullString)



        If hWndDesk <> 0 Then



            Hwnd = FindWindowEx(hWndDesk, 0, vbNullString, vbNullString)



            Do While Hwnd <> 0



                strText = String$(100, Chr$(0))

                lngRet = CLng(GetClassName(Hwnd, strText, 100))



                If Left$(strText, lngRet) = "EXCEL7" Then



                    Call IIDFromString(StrPtr(IID_IDispatch), iid)



                    If AccessibleObjectFromWindow(Hwnd, OBJID_NATIVEOM, iid, obj) = 0 Then 'S_OK



                        GetExcelObjectFromHwnd = obj.Application

                        Exit Function



                    End If



                End If



                Hwnd = FindWindowEx(hWndDesk, Hwnd, vbNullString, vbNullString)

            Loop



            On Error Resume Next



        End If



        Exit Function



MyErrorHandler:

        MsgBox "GetExcelObjectFromHwnd" & vbCrLf & vbCrLf & "Err = " & Err.Number & vbCrLf & "Description: " & Err.Description



    End Function



    Public Declare Function GetDesktopWindow Lib "user32" () As Long

    Public Declare Function FindWindowEx Lib "user32" AliAs _

      "FindWindowExA" (ByVal hWnd1 As Long, ByVal

    hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long



    Function ExcelInstances() As Long

        Dim hWndDesk As Long

        Dim hWndXL As Long



        'Get a handle to the desktop

        hWndDesk = GetDesktopWindow



        Do

            'Get the Next Excel window

            hWndXL = FindWindowEx(GetDesktopWindow, hWndXL, _

              "XLMAIN", vbNullString)



            'If we got one, increment the count

            If hWndXL > 0 Then

                ExcelInstances = ExcelInstances + 1

            End If



            'Loop Until we've found them all

        Loop Until hWndXL = 0

    End Function