Макрос для вставки макроса в Excel - VBA - Ответ 3254321

Const z As String = vbNewLine
 
Dim n As Integer: n = 20
 
' -------------------------------------------------------------------
' --- в модуль "ЭтаКнига" -------------------------------------------
Dim s As String
s = ""
s = s & "Option Explicit" & z & z
 
s = s & "Private Sub Workbook_Open()" & z & z
 
s = s & "    If Environ(""UserName"") = ""pupkin"" Then" & z
s = s & "        Cells(1, " & n & ").EntireColumn.Hidden = False" & z
s = s & "    End If" & z
s = s & "End Sub"
 
Dim vbComp As VBComponent
Set vbComp = ThisWorkbook.VBProject.VBComponents("ЭтаКнига")
 
With vbComp.CodeModule
    .InsertLines .CountOfLines + 1, s
End With
 
Set vbComp = Nothing
' --- в модуль "ЭтаКнига" -------------------------------------------
' -------------------------------------------------------------------