Private Sub UserForm_Initialize()
Dim lr As Long, arr As Variant
With ActiveSheet
    lr = .Cells(.Rows.Count, 2).End(xlUp).Row
    arr = .Range("A1:D" & lr)
End With
With ListBox1
    .ColumnCount = 4
    .ColumnWidths = "50;50;50;50"
    .List = arr
End With
End Sub

<root>
    <protocol>
        <DocId>07_полный_тест_1</DocId>
        <DocCreationDate>2025-09-24</DocCreationDate>
        <DocStartDate>2025-09-24</DocStartDate>
        <DocValidityDate>2025-09-24</DocValidityDate>
        <DataStatusId>20</DataStatusId>
        <ProtocolStatusId>6</ProtocolStatusId>
        <AddressID>669664</AddressID>
        <TerritoryFeature>false</TerritoryFeature>
        <Address>
            <AddressDetails>
                <idCodeOksm>122</idCodeOksm>
                <IdAddrType>3</IdAddrType>
                <UniqueAddress>true</UniqueAddress>
                <UniqueAddressText>Беларусь</UniqueAddressText>
                <alienCity>Минск</alienCity>
                <alienDistrict>Минский район</alienDistrict>
                <alienLocality>Беларусь</alienLocality>
                <alienStreet>пр. Машерова</alienStreet>
                <alienHouse>дом 15</alienHouse>
            </AddressDetails>
        </Address>
        <AdditionKindId>ЮБ/64-пр /2</AdditionKindId>
        <AdditionKindDate>2025-09-24</AdditionKindDate>
        <ApplicationDate>2025-09-24</ApplicationDate>
        <Customer>
            <CustomerKindId>40</CustomerKindId>
            <DocId>RA.RU.11НА44</DocId>
            <InnId>262400568290</InnId>
            <OgrnId>5217746034751</OgrnId>
            <FullNameDetails>Полное наименование иностранного ЮЛ</FullNameDetails>
            <FioFl>ФИО ФЛ</FioFl>
        </Customer>
    </protocol>
</root>

<root>
    <protocol>
        <DocId>07_полный_тест_1</DocId>
        <DocCreationDate>24.09.2025</DocCreationDate>
        <DocStartDate>24.09.2025</DocStartDate>
        <DocValidityDate>24.09.2025</DocValidityDate>
        <DataStatusId>20</DataStatusId>
        <ProtocolStatusId>6</ProtocolStatusId>
    </protocol>
    <Address>
        <AddressDetails>
            <AddressID>10</AddressID>
            <TerritoryFeature>11</TerritoryFeature>
            <idCodeOksm>12</idCodeOksm>
            <IdAddrType>13</IdAddrType>
            <UniqueAddress>21</UniqueAddress>
            <UniqueAddressText>22</UniqueAddressText>
            <alienCity>23</alienCity>
            <alienDistrict>24</alienDistrict>
            <alienLocality>25</alienLocality>
            <alienStreet>26</alienStreet>
            <alienHouse>27</alienHouse>
        </AddressDetails>
    </Address>
    <Customer>
        <AdditionKindId></AdditionKindId>
        <AdditionKindDate></AdditionKindDate>
        <ApplicationDate></ApplicationDate>
        <CustomerKindId></CustomerKindId>
        <DocId2></DocId2>
        <InnId></InnId>
        <OgrnId></OgrnId>
        <FullNameDetails></FullNameDetails>
        <FioFl></FioFl>
    </Customer>
</root>

<root>
    <protocol>
        <DocId>07_полный_тест_1</DocId>
        <DocCreationDate>24.09.2025</DocCreationDate>
        <DocStartDate>24.09.2025</DocStartDate>
        <DocValidityDate>24.09.2025</DocValidityDate>
        <DataStatusId>20</DataStatusId>
        <ProtocolStatusId>6</ProtocolStatusId>
    </protocol>
    <Address>
        <AddressID>10</AddressID>
        <TerritoryFeature>11</TerritoryFeature>
        <idCodeOksm>12</idCodeOksm>
        <IdAddrType>13</IdAddrType>
        <UniqueAddress>21</UniqueAddress>
        <UniqueAddressText>22</UniqueAddressText>
        <alienCity>23</alienCity>
        <alienDistrict>24</alienDistrict>
        <alienLocality>25</alienLocality>
        <alienStreet>26</alienStreet>
        <alienHouse>27</alienHouse>
    </Address>
    <Customer>
        <AdditionKindId>28</AdditionKindId>
        <AdditionKindDate>29</AdditionKindDate>
        <ApplicationDate>30</ApplicationDate>
        <CustomerKindId>31</CustomerKindId>
        <DocId2>32</DocId2>
        <InnId>33</InnId>
        <OgrnId>34</OgrnId>
        <FullNameDetails>35</FullNameDetails>
        <FioFl>36</FioFl>
    </Customer>
</root>

<root>
<protocol>
    <DocId>07_полный_тест_1</DocId>
    <DocCreationDate>2025-09-24</DocCreationDate>
    <DocStartDate>2025-09-24</DocStartDate>
    <DocValidityDate>2025-09-24</DocValidityDate>
    <DataStatusId>20</DataStatusId>
    <ProtocolStatusId>6</ProtocolStatusId>
    <AddressID>669664</AddressID>
    <TerritoryFeature>false</TerritoryFeature>
    <Address>
        <AddressDetails>
            <idCodeOksm>122</idCodeOksm>
            <IdAddrType>3</IdAddrType>
            <UniqueAddress>true</UniqueAddress>
            <UniqueAddressText>Беларусь</UniqueAddressText>
            <alienCity>Минск</alienCity>
            <alienDistrict>Минский район</alienDistrict>
            <alienLocality>Беларусь</alienLocality>
            <alienStreet>пр. Машерова</alienStreet>
            <alienHouse>дом 15</alienHouse>
        </AddressDetails>
    </Address>
    <AdditionKindId>ЮБ/64-пр /2</AdditionKindId>
    <AdditionKindDate>2025-09-24</AdditionKindDate>
    <ApplicationDate>2025-09-24</ApplicationDate>
    <Customer>
        <CustomerKindId>40</CustomerKindId>
        <DocId>RA.RU.11НА44</DocId>
        <InnId>262400568290</InnId>
        <OgrnId>5217746034751</OgrnId>
        <FullNameDetails>Полное наименование иностранного ЮЛ</FullNameDetails>
        <FioFl>ФИО ФЛ</FioFl>
    </Customer>
    </protocol>
</root>

Sub Макрос_InputBox()
 Dim password As String
  password = InputBox("Введите пароль:") '1. Юзер указывает пароль.
  If password = "" Then '2. Если юзер щёлкнул "Cancel" или если в поле пусто, то завершение работы макроса.
        Exit Sub
    End If
   If password <> "1234" Then '3. Проверка пароля. Если пароль неправильный, то завершение работы макроса.
        MsgBox "Неправильный пароль.", vbExclamation
        Exit Sub
    End If
    '4. Если пароль правильный.
    ' Здесь действия макроса.
   Макрос1
   
End Sub

Sub Копировать_по_журналам()
    Dim wb As Workbook, c As Range, arrWB(), w
    arrWB = Array("Журнал1.xlsm", "Журнал2.xlsm", "Журнал3.xlsm", "Журнал4.xlsm", "Журнал5.xlsm", "Журнал6.xlsm", "Журнал7.xlsm", "Журнал8.xlsm")
    With Application
       .EnableEvents = False
       .Calculation = xlCalculationManual
       .ScreenUpdating = False
       .Visible = False
         
        For Each w In arrWB

            Set wb = Workbooks.Open("E:\Сервер\Сервер 1\Сервер 2\Сервер 3\Сервер 4\РАБОЧИЕ\Журнал выездов" & "\" & w) ' Этот метод копирует данные в книги находящиеся по пути с главной
            ThisWorkbook.Worksheets("Средства измерений").Cells.Copy wb.Worksheets("Средства измерений").Cells 'копируем все данные с активного листа
            For Each c In wb.Worksheets("Средства измерений").Cells.SpecialCells(xlCellTypeFormulas, 23)
                c.FormulaLocal = Replace(c.FormulaLocal, "[" & ThisWorkbook.Name & "]", "")
            Next c
            wb.Close (True)
        Next w
         
        .EnableEvents = True
        .Calculation = xlCalculationAutomatic
        .ScreenUpdating = True
        .Visible = True
    End With
    MsgBox "Готово"
End Sub