Private Sub Application_Startup()
MsgBox "Привет!"
End Sub

 Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, c As Range, x
On Error Resume Next
Set rng = Intersect(Target, [A:A])
If rng Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Application.EnableEvents = False
For Each c In rng
If IsNumeric(c) Then
x = Format(c, "00:00")
c.Value = x
End If
Next c
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

Sub Copy_File1() 'программа для копирования файла
    Dim objFSO As Object, objFile As Object
    Dim sFileName As String, sNewFileName As String
    sFileName = "C:\Users\Дмитрий\Desktop\vba\дтсь скачивание\77.xlsb"    'имя исходного файла
    sNewFileName = GetFolderPath
    sNewFileName1 = sNewFileName & Format(Now(), "ddmmyyyy_hhnnss") & "\"
If Dir(sNewFileName1, vbDirectory) = "" Then MkDir sNewFileName1
    'копируем файл
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.GetFile(sFileName)
    objFile.Copy sNewFileName1
    MsgBox "Файл скопирован", vbInformation, "www.excel-vba.ru"
End Sub

Function GetFolderPath(Optional ByVal Title As String = "Выберите папку", _
            Optional ByVal InitialPath As String = "c:\") As String
     ' функция выводит диалоговое окно выбора папки с заголовком Title,
    ' начиная обзор диска с папки InitialPath
    ' возвращает полный путь к выбранной папке, или пустую строку в случае отказа от выбора
    Dim PS As String: PS = Application.PathSeparator
     With Application.FileDialog(msoFileDialogFolderPicker)
      If Not Right$(InitialPath, 1) = PS Then InitialPath = InitialPath & PS
      .ButtonName = "Выбрать": .Title = Title: .InitialFileName = InitialPath
      If .Show <> -1 Then Exit Function
      GetFolderPath = .SelectedItems(1)
      If Not Right$(GetFolderPath, 1) = PS Then GetFolderPath = GetFolderPath & PS
     End With
End Function

 Sub Copy_File1() 'программа для копирования файла
    Dim objFSO As Object, objFile As Object
    Dim sFileName As String, sNewFileName As String
 
    sFileName = "C:\Users\Дмитрий\Desktop\vba\дтсь скачивание\77.xlsb"    'имя исходного файла   

 sNewFileName = GetFolderPath
 
   
 sNewFileName1 = sNewFileName & Format(Now(), "yyyymmdd_hhnnss")
   
If Dir(sNewFileName1, vbDirectory) = "" Then MkDir sNewFileName1
    
    'копируем файл
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.GetFile(sFileName)
     
   
     
    objFile.Copy sNewFileName1
 
    MsgBox "Файл скопирован", vbInformation, "www.excel-vba.ru"
End Sub

Function GetFolderPath(Optional ByVal Title As String = "Выберите папку", _
            Optional ByVal InitialPath As String = "c:\") As String
     ' функция выводит диалоговое окно выбора папки с заголовком Title,
    ' начиная обзор диска с папки InitialPath
    ' возвращает полный путь к выбранной папке, или пустую строку в случае отказа от выбора
    Dim PS As String: PS = Application.PathSeparator
     With Application.FileDialog(msoFileDialogFolderPicker)
      If Not Right$(InitialPath, 1) = PS Then InitialPath = InitialPath & PS
      .ButtonName = "Выбрать": .Title = Title: .InitialFileName = InitialPath
      If .Show <> -1 Then Exit Function
      GetFolderPath = .SelectedItems(1)
      If Not Right$(GetFolderPath, 1) = PS Then GetFolderPath = GetFolderPath & PS
     End With
End Function