K povoleniu filtru: skúsil som makro v module1. Pre názornosť kopírujem jeho pôvodný tvar a modifikáciu, ktorá umožňuje filtrovanie.Sub Makro1()
ActiveSheet.Unprotect "Ooz2014JK"
Selection.Rows.AutoFit
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingRows:=True, AllowFiltering:= _
True
ActiveSheet.Protect "Ooz2014JK"
End Sub
Sub MakroModifiedByAL()
With ActiveSheet
.Unprotect "Ooz2014JK"
Selection.Rows.AutoFit
.Protect Password:="Ooz2014JK", AllowFiltering:=True
.EnableSelection = xlUnlockedCells
End With
End Subcitovat
ActiveSheet.Unprotect "Ooz2014JK"
Selection.Rows.AutoFit
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingRows:=True, AllowFiltering:= _
True
ActiveSheet.Protect "Ooz2014JK"
End Sub
Sub MakroModifiedByAL()
With ActiveSheet
.Unprotect "Ooz2014JK"
Selection.Rows.AutoFit
.Protect Password:="Ooz2014JK", AllowFiltering:=True
.EnableSelection = xlUnlockedCells
End With
End Subcitovat