Filtrování dat - automatický filtr
Sheets("List1").Range("A1:Z3000").AutoFilter field:=1, Criteria1:= Listbox1.Value
'field:=1 - toto je číslo sloupce pro filtr
ActiveSheets("List1").Range("A1:Z3000").AutoFilter field:=1
'tento kod zruší filtr ve sloupci 1
If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData
'zruší všechny filtry
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveSheet
.Protect userInterfaceonly:=True
End With
End Sub
'musí se napsat na úrovni "Worksheet" - filtry budou aktivní i při zamčeném listu