Sub ColumnHide()
    ColumnHideShow False
End Sub
Sub ColumnShow()
    ColumnHideShow True
End Sub
 
Sub ColumnHideShow(bMode As Boolean)
    Dim xx As Long
    For xx = [H1].Column To [Z1].Column
        If Columns(xx).Hidden = bMode Then
           Columns(xx).Hidden = Not bMode
           Exit For
        End If
    Next
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
'Для значения 01:'
Application.EnableEvents = False
If Not Intersect(Target, Range("G24:G27, G29")) Is Nothing And Range("G17").Value = 1 Then
    MsgBox "Не применимо для выбранной схемы"
    Application.Undo
End If
Application.EnableEvents = True
End Sub

Sub Очистка_формы_ввода_данных()
    Range("F8:G8").Select
    Range("F9:G9, F11:G11, F12:G12, G18:Z29, F32, F33, E37, E38, E36, D19:F19, D20:F20").ClearContents
    Range("G17:Z17") = 0
          
End Sub

 Private Sub Worksheet_Activate()
Application.DisplayStatusBar = False
Application.DisplayAlerts = False

 Application.EnableEvents = 0
    For Each cell In [K51:K450].Cells
            cell.EntireRow.Hidden = cell.Value = 77
    Next cell
    Application.EnableEvents = -1
      
      
      
      Application.DisplayAlerts = True
      Application.DisplayStatusBar = True
    
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)   
 If Not Intersect(Target, Range("A2:I5")) Is Nothing Then
        On Error Resume Next
        ActiveSheet.ShowAllData
        Range("A7").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("A1").CurrentRegion
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("B6")) Is Nothing And Target.Cells.Count = 1 Then
Application.EnableEvents = False
newVal = Target
Application.Undo
oldval = Target
If Len(oldval) <> 0 And oldval <> newVal Then
Target = Target & " ; " & newVal
Else
Target = newVal
End If
If Len(newVal) = 0 Then Target.ClearContents
Application.EnableEvents = True
End If
End Sub