{"text_format":"1","workbook":"xlsx","n_sheets":3,"sheets":["Tabelle1","Tabelle2","Tabelle3"],"not_rendered":{"charts":0,"images":2,"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":"Tabelle1","index":0,"n_rows":31,"n_cols":4,"rows_kept":31,"cut":false,"hidden":false,"merged":[[7,0,7,2],[8,0,8,2],[9,0,9,2],[10,0,10,2]]}
[]
[]
[]
[]
["Value 1:",333]
["Value 2:",666]
[]
["This example shows how to hide the barcode"]
["when the value is empty."]
["Try it: Enter a number or"]
["remove the value."]
[]
[]
[null,null,null,"This code is used:"]
[null,null,null,"To use this code, change the red marked range to the cells that changes the barcode objects, when the content is changed."]
[]
[null,null,null,"Private Sub Worksheet_Change(ByVal Target As Range)"]
[null,null,null,"If Intersect(Target, Range(\"B5:B6\")) Is Nothing Then Exit Sub"]
[null,null,null,"Dim objX As Object"]
[null,null,null,"With ActiveSheet"]
[null,null,null,"    For Each objX In .OLEObjects"]
[null,null,null,"        If TypeName(objX.Object) = \"Barcode\" Then"]
[null,null,null,"           If objX.Object.Text = \"\" Then"]
[null,null,null,"             objX.Visible = False"]
[null,null,null,"           Else"]
[null,null,null,"             objX.Visible = True"]
[null,null,null,"           End If"]
[null,null,null,"        End If"]
[null,null,null,"    Next"]
[null,null,null,"End With"]
[null,null,null,"End Sub"]

{"sheet":"Tabelle2","index":1,"n_rows":0,"n_cols":0,"rows_kept":0,"cut":false,"hidden":false,"merged":[]}

{"sheet":"Tabelle3","index":2,"n_rows":0,"n_cols":0,"rows_kept":0,"cut":false,"hidden":false,"merged":[]}