zápis do zamčené buňky

[revol]

Omlouvám se, že pokračuji v zamčeném tématu, ale až teď s odstupem času jsem zjistil, že toto makro funguje, tak, že odemkne list, upraví buňku a list zamkne, ale už bohužel nezachová zaškrtnuté akce, které jsou povoleny v listu. Původně jsem měl zaškrtnuté, že lze formátovat řádky, po použití tohoto makra toto není zaškrtnuté a tím pádem přestalo fungovat jiné makro na skrývání řádku.

Sub ZmenaZamcenehoListu()
With ThisWorkbook.Worksheets(1)
'odemkne
.Protect Password:="123456", UserInterfaceOnly:=True
'zmeni obsah bunky A1
.Range("A1").Value = "blabla"
End With
End Sub

Lze tedy do tohoto makra něco dopsat, aby při zamykání buď zachoval původní povolené možnosti a nebo ještě lépe, abych mohl nadefinovat sám co má být povoleno při zamčení? (což bych využil i v budoucnu,kdybych potřeboval něco makrem změnit).

Toto je poměrně urgentí a budu vděčný za radu.

--- Doplnění předchozího příspěvku (05 Srp 2014 15:14) ---

Tak jsem na to přišel:

ActiveSheet.Protect Password:="heslo", AllowFiltering:=True, AllowSorting:=True, AllowFormattingRows:=True

jen poměrně složitě hledám cody pro jednotlivé položky, není někde hezký výčet?

[Reklama]

[cmuch]

Já když si něco nadefinuji co má být při zamknutém listu aktivní tak to tam mám pořád zachované.

Jinak v nápovědě VBA si zadej Worksheet.Protect nebo i na netu http://msdn.microsoft.com/en-us/library/office/ff840611%28v=office.15%29.aspx.

[revol]

Děkuju za odkaz.

Já když zamknu opakovaně list (ručně), tak mi to také zůstane zachované, ale ne při použití tohoto makra, naštěstí po úpravě makra lze nadefinovat co má být aktivní.

Kód: Vybrat vše

ActiveSheet.Protect Password:="heslo", AllowFiltering:=True, AllowSorting:=True, AllowFormattingRows:=True

[cmuch]

Mě se to nemění ani při používání v makrech (UserInterfaceOnly:=True)

[revol]

Tak to nevím, mě po použítí makra (viz první příspěvěk) zůstanou zaškrtnuté jen první dvě položky, ostatní se odoznačí, ale nevadí, vyřešeno nadefinováním v makru. Dík