Sziasztok!

Még mindig a múltkori problémámmal küzdök.
Mentéskor lefut az alábbi makró és bekapcsolja minden munkalapon a védelmet. Eddig oké is. Működik az auto szűrés. A gondom még mindig az, hogy bekapcsolt védelem esetén a nem védett cellákhoz továbbra se tudok megjegyzéseket írni, illetve a védett cellák tulajdonságai (háttérszín, tintaszín) viszont megváltoztathatóak. Holott csak a nem védett cellákat lenne szabad módosítani.
Ha manuálisan kapcsolom be a védelmet, akkor minden renben van.


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim shtCurrent As Worksheet

For Each shtCurrent In ActiveWorkbook.Worksheets
shtCurrent.Protect Password:="pass", Contents:=True, _
DrawingObjects:=True, Scenarios:=True, _
AllowFormattingCells:=True, AllowFiltering:=True
Next shtCurrent

End Sub