{"text_format":"1","workbook":"xlsx","n_sheets":3,"sheets":["Blad1","Blad2","Blad3"],"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":"Blad1","index":0,"n_rows":36,"n_cols":11,"rows_kept":36,"cut":false,"hidden":false,"merged":[]}
["Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)",null,null,null,null,null,null,null,null,null,"Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)"]
["'Sheets(\"Alle albums\").Unprotect (\"\")",null,null,null,null,null,null,null,null,null,"Dim Found As Range, tempcell As Range, X As Variant"]
["Dim Found As Range, tempcell As Range, X As Variant",null,null,null,null,null,null,null,null,null,"X = InputBox(\"Welke song zoek je?.\" & vbCrLf & \"Er wordt gezocht in de kolom 'songs'\")"]
["Range(\"L4:L\" & Cells(Rows.Count, 2).End(xlUp).Row).Interior.ColorIndex = xlNone",null,null,null,null,null,null,null,null,null,"If X <> \"\" Then"]
["X = InputBox(\"Welke song zoek je?.\" & vbCrLf & \"Er wordt gezocht in de kolom 'songs'\")",null,null,null,null,null,null,null,null,null,"Set Found = Columns(12).Find(X, , xlValues, xlPart)"]
["If X <> \"\" Then",null,null,null,null,null,null,null,null,null,"If Found Is Nothing Then"]
["Set Found = Columns(12).Find(X, , xlValues, xlPart)",null,null,null,null,null,null,null,null,null,"    MsgBox X & \"  Song niet gevonden!\""]
["If Found Is Nothing Then",null,null,null,null,null,null,null,null,null,"    Exit Sub"]
["    MsgBox X & \"  Song niet gevonden!\"",null,null,null,null,null,null,null,null,null,"Else"]
["    Exit Sub",null,null,null,null,null,null,null,null,null,"    Application.GoTo Found.Offset(, -11), True"]
["Else",null,null,null,null,null,null,null,null,null,"    Found.Interior.ColorIndex = 3"]
["    Application.GoTo Found.Offset(, -11), True",null,null,null,null,null,null,null,null,null,"End If"]
["    Found.Interior.ColorIndex = 3",null,null,null,null,null,null,null,null,null,"If MsgBox(\"Verder zoeken?\", vbYesNo) = vbYes Then"]
[null,null,null,null,null,null,null,null,null,null,"    Do"]
["End If",null,null,null,null,null,null,null,null,null,"        Set tempcell = Columns(12).FindNext(After:=Found)"]
["If MsgBox(\"Verder zoeken?\", vbYesNo) = vbYes Then",null,null,null,null,null,null,null,null,null,"        If Found.Row >= tempcell.Row And Found.Column >= tempcell.Column Then"]
["    Do",null,null,null,null,null,null,null,null,null,"            MsgBox \"Niet(s) meer gevonden!\""]
["        Set tempcell = Columns(12).FindNext(After:=Found)",null,null,null,null,null,null,null,null,null,"            Range(\"L4\").Select"]
["        If Found.Row >= tempcell.Row And Found.Column >= tempcell.Column Then",null,null,null,null,null,null,null,null,null,"            Exit Do"]
["            MsgBox \"Niet(s) meer gevonden!\"",null,null,null,null,null,null,null,null,null,"          End If"]
["            Range(\"L4\").Select",null,null,null,null,null,null,null,null,null,"        Set Found = tempcell"]
["            Exit Do",null,null,null,null,null,null,null,null,null,"        Application.GoTo Found.Offset(, -11), True"]
["            ",null,null,null,null,null,null,null,null,null,"        If MsgBox(\"Verder zoeken?\", vbYesNo) = vbNo Then Exit Do"]
["          End If",null,null,null,null,null,null,null,null,null,"    Loop"]
["        Set Found = tempcell",null,null,null,null,null,null,null,null,null,"End If"]
["        Range(\"L4:L\" & Cells(Rows.Count, 2).End(xlUp).Row).Interior.ColorIndex = xlNone",null,null,null,null,null,null,null,null,null,"Else: Exit Sub"]
["        Application.GoTo Found.Offset(, -11), True",null,null,null,null,null,null,null,null,null,"End If"]
["        Found.Interior.ColorIndex = 3",null,null,null,null,null,null,null,null,null,"End Sub"]
[]
["        If MsgBox(\"Verder zoeken?\", vbYesNo) = vbNo Then Exit Do"]
["    Loop"]
["End If"]
["Else: Exit Sub"]
["End If"]
["'Sheets(\"Alle albums\").Protect (\"\")"]
["End Sub"]

{"sheet":"Blad2","index":1,"n_rows":27,"n_cols":15,"rows_kept":27,"cut":false,"hidden":false,"merged":[]}
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,"Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,"Dim Found As Range, tempcell As Range, X As Variant"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,"X = InputBox(\"Welke naam zoek je?.\" & vbCrLf & \"Er wordt gezocht in de kolom 'naam'\")"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,"If X <> \"\" Then"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,"Set Found = Columns(9).Find(X, , xlValues, xlPart)"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,"If Found Is Nothing Then"]
[null,null,null,null,null,null,null,null,"jan",null,null,null,null,null,"    MsgBox X & \"  Naam niet gevonden!\""]
[null,null,null,null,null,null,null,null,"piet",null,null,null,null,null,"    Exit Sub"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,"Else"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,"    Application.GoTo Found.Offset(, -8), True"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,"End If"]
[null,null,null,null,null,null,null,null,"klaas",null,null,null,null,null,"If MsgBox(\"Verder zoeken?\", vbYesNo) = vbYes Then"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,"    Do"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,"        Set tempcell = Columns(9).FindNext(After:=Found)"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,"        If Found.Row >= tempcell.Row And Found.Column >= tempcell.Column Then"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,"            MsgBox \"Niet(s) meer gevonden!\""]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,"            Range(\"L4\").Select"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,"            Exit Do"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,"          End If"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,"        Set Found = tempcell"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,"        Application.GoTo Found.Offset(, -11), True"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,"        If MsgBox(\"Verder zoeken?\", vbYesNo) = vbNo Then Exit Do"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,"    Loop"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,"End If"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,"Else: Exit Sub"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,"End If"]
[null,null,null,null,null,null,null,null,null,null,null,null,null,null,"End Sub"]

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