Application.CommandBars("Ply").Enabled = False

Application.CommandBars("Worksheet Menu Bar").Controls("&Правка").Controls("Удалит&ь лист").Enabled = False
Application.CommandBars("Worksheet Menu Bar").Controls("&Правка").Controls("Удалит&ь лист").Visible = False
Application.CommandBars("Worksheet Menu Bar").Controls("Фор&мат").Enabled = False

For Each iCommandBar In Application.CommandBars
     iCommandBar.Enabled = False
Next

Sub Загрузить_документ()

   Dim i, i1, j, k
 Dim Shell As Object
   Dim Wins As Object
   Dim WinItem As Variant
   Dim objCollection As Object
   Dim cnt
   Dim Doc As Object 'InternetExplorer
  

  SiteURL = "https://mail.yandex.ru/?uid=23207361&login=<мой логин>#compose"
   Set Shell = CreateObject("shell.application")  

   cnt = 0
   For Each WinItem In Shell.Windows
      If WinItem.LocationURL Like Left(SiteURL, 30) & "*" Then        
        Set Doc = Shell.Windows(cnt).document
        Exit For
      End If
          cnt = cnt + 1
  Next
  
 
For i = 0 To Doc.getelementsbytagname("label").Length - 1
If Doc.getelementsbytagname("label")(i).Title = "Прикрепить файлы с компьютера" Then
    Doc.getelementsbytagname("label")(i).Click  'после клика появляется диалоговое окно выбора файла
    SendKeys "проверяю пишется ли у меня название файла", True  ' не пишется, диалоговое окно выбора файла заблокировало выполнение кода, пока я ручками не выберу файл
    SendKeys "{ENTER}", True
    
' также естественно макрос не доходит до строк ниже

 hwnd = poiskokna("Выбор выкладываемого файла") 
    Do While (hwnd = 0 And countIter < 60)
        hwnd = poiskokna("Выбор выкладываемого файла")       
        countIter = countIter + 1
    Loop

    MsgBox "все ок"
End If
Next i

End Sub

' ниже подфункция поиска окна по названию окна
Public Function poiskokna(TitleFind As String) As Long
    Dim winTitle As String * 256, cnt As Long, hwnd As Long
    Const GW_HWNDNEXT = 2
    Const GW_CHILD = 5
        hwnd = GetDesktopWindow&
        hwnd = GetWindow(hwnd, GW_CHILD)
        Do While hwnd <> 0
            cnt = GetWindowText(hwnd, winTitle, 255)
            If InStr(1, winTitle, TitleFind) > 0 Then
                poiskokna = hwnd
                Exit Do
            End If
            hwnd = GetWindow(hwnd, GW_HWNDNEXT)
        Loop
End Function

Sub Как_определить_лист_куда_я_вставил_результат()

Dim Rng, Viv As Range
Dim i, i1, i2, i3, i4 As Long
Dim arr() As Variant
Dim simv, s, s1 As String
  Set Rng = Range("A1:A10")
arr() = Rng.value

'  что-нибудь делаю с массивом
 ' и затем вывожу результат каждый раз на разный лист!!!!

  Set Viv = Application.InputBox("Введите ячейку, куда вставлять результат", Type:=8)
Viv.Resize(UBound(arr()), UBound(arr(), 2)) = arr()
End Sub

Function Список_Дублей_1(Rng1 As Range) As Variant
Dim i As Long, j As Long
Dim a As Variant    
Dim k, x, n, ind As Long    
Dim Arr(1 To 50) As String j = 1       
     For i = 1 To Rng1.Rows.Count           
     k = Application.WorksheetFunction.CountIf(Rng1, Rng1.Cells(i, 1))           
         If k > 1 Then           
         Arr(j) = Rng1.Cells(i, 1)           
         j = j + 1           
         End If       
Next i        
Список_Дублей_1 = Application.WorksheetFunction.Transpose(Arr())
End Function

7434175
7448800
7448800 

7434175
7434175
7448800
7448800
7448800