у меня есть макрос
Sub setFiltr()
Dim aRange As Range
Dim FilterData As String, k As String, k2 As String, k3 As String, k4 As String, k5 As String
Dim FilterData2 As String
Dim FilterData3 As String
Dim FilterData4 As String
Dim FilterData5 As String
Dim LastRow As Long
On Error Resume Next
ActiveSheet.AutoFilterMode = False
k = Range("b2").Value
k2 = Range("e2").Value
k3 = Range("f2").Value
k4 = Range("g2").Value
k5 = Range("h2").Value
Application.ScreenUpdating = False
If (k = "" And k2 = "" And k3 = "" And k4 = "" And k5 = "") Then
MsgBox "Введите данные для фильтра в соответствующих розовых окнах", vbInformation, "Писать будем или глазки строить?"
Exit Sub
End If
FilterData = "=**" & k & "**"
FilterData2 = "=**" & k2 & "**"
FilterData3 = "=**" & k3 & "**"
FilterData4 = "=**" & k4 & "**"
FilterData5 = "=**" & k5 & "**"
' Фильтровать
With ActiveSheet
.UsedRange
LastRow = .Cells.SpecialCells(xlCellTypeLastCell).Row
Set aRange = Range("B4", Cells(LastRow, "H"))
aRange.AutoFilter Field:=1, Criteria1:=FilterData
aRange.AutoFilter Field:=4, Criteria1:=FilterData2
aRange.AutoFilter Field:=5, Criteria1:=FilterData3
aRange.AutoFilter Field:=6, Criteria1:=FilterData4
aRange.AutoFilter Field:=7, Criteria1:=FilterData5
End With
End Sub
и он не подписан сертификатом. Чтобы не менять уровень безопасности,для работы пользователей в локальной сети, хочу создать настройку. как это сделать? чтобы этот макрос работал на каждом компьютере в сети?
