{"text_format":"1","workbook":"xlsx","n_sheets":1,"sheets":["List1"],"not_rendered":{"charts":0,"images":0,"macros":1,"external_links":0,"defined_names":0,"comments":0,"pivot_tables":0},"unopened":[],"bounds":{"document_bytes":16777216,"sheet_cells":100000,"rows_first":2000,"rows_last":500,"rows_between":2000,"halvings":0,"cell_chars":16384,"cell_head_chars":4096},"cells_cut":0,"cells_raw":0,"read":"whole","date_system":"1900"}

{"sheet":"List1","index":0,"n_rows":41,"n_cols":15,"rows_kept":41,"cut":false,"hidden":false,"merged":[]}
["ZVÝRAZNĚNÍ AKTIVNÍ BUŇKY"]
["Option Explicit",null,null,null,null,null,null,null,null,"WorkBook - vyřešil jsem nakonec takto :DDD",null,null,null,null,"Jen tu je jeden velký problém :("]
[]
["Public WithEvents Monitor1 As Application",null,null,null,null,null,null,null,null,null,null,null,null,null,"Kopírovat – Vložit"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,"Totiž tím tak nefunguje vůbec Ctrl+C / Ctrl+V"]
["Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)",null,null,null,null,null,null,null,null,null,null,null,null,null,"Zformátováním aktivní buňky (případně Selections)"]
["Set Monitor1 = Application",null,null,null,null,null,null,null,null,null,null,null,null,null,"se vyruší vložená schránka ☹ Tak tady už jsem nahranej ☹"]
["End Sub"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,"Vyřešeno 4 řádky kódu ;)"]
["Private Sub Monitor1_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)"]
["Call Monitor(Sh, Target)",null,null,null,null,null,null,null,null,"pokračování kódu do modulu…"]
["End Sub"]
[]
["Sub Monitor(ws As Worksheet, Target As Range)",null,null,null,null,null,null,null,null,"Modul1 - pokračování kódu…"]
[]
["On Error Resume Next",null,null,null,null,null,null,null,null,"uzamčené soubory hodí VBA error, takže je potřeba ošetřit - v nich tedy pak kód samozřejmě nefunguje"]
["If Application.CutCopyMode = False Then",null,null,null,null,null,null,null,null,"kód funguje pouze s aktivním sešitem (musel by být tedy otevřený v nějakém aktivním xlsm)"]
["Cells.Borders(Excel.XlBordersIndex.xlDiagonalDown).LineStyle = Excel.XlLineStyle.xlLineStyleNone",null,null,null,null,null,null,null,null,"toto řeší PERSONAL.XLSB, který je otevřený na pozadí (jenže ten nemá aktivní list (pouze sešit))"]
["Cells.Borders(Excel.XlBordersIndex.xlDiagonalUp).LineStyle = Excel.XlLineStyle.xlLineStyleNone"]
["With Selection",null,"'        Praktičtější je místo \"With ActiveCell\" použít \"With Selection\""]
["    .Borders(xlDiagonalDown).LineStyle = xlDouble",null,null,null,null,null,null,null,null,"lepší než zvýraznění barvou buňky bude vnitřní ohraničení"]
["    .Borders(xlDiagonalUp).LineStyle = xlDouble",null,null,null,null,null,null,null,null,"barva se totiž aktivací maže z celého listu, což by mohl být problém"]
["    .Borders(xlDiagonalDown).Color = RGB(255, 0, 0)",null,null,null,null,null,null,null,null,"ohraničení se sice maže také, ale vnitří se využívá opravdu málokdy…"]
["    .Borders(xlDiagonalDown).Color = RGB(255, 0, 0)"]
["End With"]
["Else"]
["Exit Sub"]
["End If"]
["On Error GoTo 0"]
["End Sub"]
[]
["Private Sub Auto_Open()",null,null,null,null,null,null,null,null,"Modul2 - Zobrazení konkrétního sešitu - je to AutoOpen, takže bezobslužné :)"]
["Windows(\"Personal.xlsb\").Visible = True",null,null,null,null,null,null,null,null,"tady je ten, co nás zajímá…"]
["Range(\"A2\").Select",null,null,null,null,null,null,null,null,"a aktivace listu v personal.xlsb vyřešena makrem --> Range(\"A1\").Activate nefunguje - opravdu se musí v listu \"překliknout\""]
["Range(\"A1\").Select"]
["Windows(\"Personal.xlsb\").Visible = False"]
["End Sub"]
[]
["Private Sub Auto_Close()",null,null,null,null,null,null,null,null,"Modul3 - Samozřemě ale aktivací listu v šabloně se pak po uzavření celého Office "]
["    ThisWorkbook.Saved = True",null,null,null,null,null,null,null,null,"trapně zobrazí hláška, zda chci uložit v šabloně změny…"]
["End Sub",null,null,null,null,null,null,null,null,"Takže toto ji uzavře bez ptaní ;)"]