'Добавление времени изменения
Sub Worksheet_Change(ByVal Target As Range)
For Each cell In Target
       If Not Intersect(cell, Range("С2:С1048576")) Is Nothing Then '-ошибка определяется на этой строке
        If cell.Value = "" Then Call b_addlineseek
            With cell.Offset(0, -1)
               .Value = Now
            End With
       End If
    Next cell
End Sub

Sub unlc ()
    Worksheet(01).Unprotect "1"
.....
    Worksheet(01).Protect "1"
End sub

Sub newdoc()
Application.ScreenUpdating = False                                     'отключить активное обновление экрана
ThisWorkbook.Unprotect "777"                                           'снять защиту с книги, где 777 - пароль установленный на защите книги
Dim ShtV:  ShtV = Worksheets(01).Visible
  Worksheets(01).Visible = xlSheetVisible                              'показать копируемый шаблон, где 01 - название копируемого листа
  Worksheets(01).Copy                                                  'создать новый документ из шаблона
  ThisWorkbook.Worksheets(01).Visible = ShtV                           'скрыть копируемый шаблон
  ActiveSheet.Name = "Doc " & Format(Now, "DD.MM.YYYY hh-mm-ss")       'изменить название листа на дату создания листа
ThisWorkbook.Protect "777"                                             'установить защиту книги, где 777 - пароль установленный на защите книги
Application.ScreenUpdating = True                                      'включить активное обновление экрана
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
     
    For Each cell In Target   'проходим по всем измененным ячейкам
       If Not Intersect(cell, Range("F4:F1048576")) Is Nothing Then  'если изменененная ячейка попадает в диапазон
            With cell.Offset(0, -3)         'вводим в соседнюю справа ячейку дату
               .Value = Now
            End With
       End If
    Next cell
End Sub

If createFullFolderPath(folderTopaste) Then

   If Dir(ThisWorkbook.Path & "\документы") = "" Then
                MkDir ThisWorkbook.Path & "\документы"
   End If

 folderTopaste = ThisWorkbook.Path

MkDir  ThisWorkbook.Path + "\" + "документы" 

Sub doc_upolad_template()
    Dim FileDialog As FileDialog, filePath As String, fso As Object
    Set FileDialog = Application.FileDialog(msoFileDialogFilePicker)
    Set fso = CreateObject("Scripting.FileSystemObject")
    'Показать форму выбора файла
    FileDialog.InitialFileName = ThisWorkbook.Path & "\"
    FileDialog.Show
    If FileDialog.SelectedItems.Count > 0 Then
        'Путь к выбранному файлу
        filePath = FileDialog.SelectedItems(1)

        'Путь к папке куда сохранять 
        'ВОПРОС:  Вместо точного адреса по которому находится папка для сохранения, нужно чтобы необходимая папка, допустим "документы" (или папка в подпапке "\документы\скан")
                    '1. создавалась в директории нахождения самого файла excel в котором работает этот макрос.
                    '2. Выбранный файл копировался именно в эту новую созданную папку
                    '3. И если таковая папка уже есть то только провести копирование в неё и всё.
    

        folderTopaste = "C:\Users\sasin\Desktop\Документы"
              

        Set selectedRn = Selection.EntireRow
        ExtFind = Right$(filePath, Len(filePath) - InStrRev(filePath, "."))
        newName = selectedRn.Columns(37) & Format(selectedRn.Columns(38), "ddmmyyyy") & "." & ExtFind

        pasteFl = folderTopaste & "\" & newName
        fso.CopyFile Source:=filePath, Destination:=pasteFl
        'Добавление ссылки
        ActiveSheet.Hyperlinks.Add Anchor:=selectedRn.Columns(39), Address:=pasteFl, TextToDisplay:="ОТКРЫТЬ"
        Selection.Font.Size = 8
        Selection.Font.Bold = True
        Selection.HorizontalAlignment = xlCenter
        Selection.VerticalAlignment = xlCenter
        Else
        MsgBox Prompt:="Файл не был выбран", Buttons:=vbCritical
    End If
End Sub

' Имя копируемого файла - 2ая колонка выделенной строки + 3 колонка как дата в формате "ДДММГГГГ"
        Set selectedRn = Selection.EntireRow
        newName = selectedRn.Columns(2) & Format(selectedRn.Columns(3), "ddmmyyyy") & ".pdf"