' --- переброс модуля  
         Dim Filename As String
         Filename = ThisWorkbook.Path & "\tempMod.bas"

         WbFrom.VBProject.VBComponents("имя_модуля").Export Filename

         WbTo.VBProject.VBComponents.Import Filename
         Kill Filename

Public Const z As String = vbNewLine
         ' --- в модуль "ЭтаКнига" ----------------------------------------------
         s = ""
         s = s & "Option Explicit" & z & z

         s = s & "Private Sub Workbook_Open()" & z & z

         s = s & "    If Environ(""UserName"") = ""login"" Then" & z
         s = s & "        Cells(1, " & n & ").EntireColumn.Hidden = False" & z
         s = s & "    End If" & z
         s = s & "End Sub"

         Set vbComp = wb.VBProject.VBComponents("ЭтаКнига")

         With vbComp.CodeModule
             .InsertLines .CountOfLines + 1, s
         End With

         Set vbComp = Nothing

Private Sub Worksheet_Change(ByVal Target As Range)
     Dim arr
     If Target.Count <> 1 Then Exit Sub
     If Not Intersect(Target, Columns(2)) Is Nothing Then
     Application.EnableEvents = False
     arr = www
         If Target = arr(3, 1) Then Target.Offset(, 22) = Format(Now, "hh:nn DD.MM.YYYY")
         If Target = arr(4, 1) Then Target.Offset(, 23) = Format(Now, "hh:nn DD.MM.YYYY")
         If Target = arr(5, 1) Then Target.Offset(, 26) = Format(Now, "hh:nn DD.MM.YYYY")
         If Target = arr(6, 1) Then Target.Offset(, 24) = Format(Now, "hh:nn DD.MM.YYYY")
         If Target = arr(7, 1) Then Target.Offset(, 25) = Format(Now, "hh:nn DD.MM.YYYY")
     Application.EnableEvents = True
     End If
End Sub