В модуль "Эта книга":
Code
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("для Сергея").Unprotect Password:="1234"
Range("i:j,l:q").EntireColumn.Hidden = False
End Sub
Private Sub Workbook_Open()
Call hide_fields
End Sub
В обычный модуль:
Code
Sub hide_fields()
Worksheets("для Сергея").Unprotect Password:="1234"
Range("i:j,l:q").EntireColumn.Hidden = True
Worksheets("для Сергея").Protect Password:="1234"
End Sub
Sub show_fields()
Worksheets("для Сергея").Unprotect Password:="1234"
With Range("i:j,l:q")
.EntireColumn.Hidden = False
.ColumnWidth = 7
.EntireColumn.AutoFit
End With
Worksheets("для Сергея").Protect Password:="1234"
End Sub