Private Sub Workbook_Open()
 Const MyPassword = "1111" ' Указываем пароль на листы
 With Sheets("Tashkent") 'Указываем наименование листа
 .Unprotect Password:=MyPassword
 .EnableOutlining = True
 .Protect Password:=MyPassword, DrawingObjects:=True, Contents:=True, Scenarios:=True, _
 AllowFiltering:=True, UserInterfaceOnly:=True
 End With
 End Sub 

Function Min(ParamArray Numbers())
    Min = application.min(Numbers)
End Function

Function Max(ParamArray Numbers())
    Dim Item1, Item2
    Dim x As Double, XMax As Double, Y As Double
    On Error GoTo L1
    For Each Item1 In Numbers
        Item1 = Item1
        If IsArray(Item1) Then
            For Each Item2 In Item1
                x = Abs(Item2)
                If x > XMax Then
                    XMax = x
                    Y = Item2
                End If
            Next
        Else
            x = Abs(Item1)
            If x > XMax Then
                XMax = x
                Y = Item1
            End If
        End If
    Next
    Max = Y
    Exit Function
L1:
    Err.Clear
    Max = CVErr(xlErrValue)
End Function