{"text_format":"1","workbook":"xlsx","n_sheets":13,"sheets":["Mod_Cook","Mod_Tricky1","Module_LINKS","Content","Module_MENUS","INTRODUCTION","CommandBoard","Module_VBE_CommandBoard","Module_WAIT","NamedRangesMod1","NoVBE_Mod","Routines_Mod","VbeContent_Mod"],"not_rendered":{"charts":0,"images":6,"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":"Mod_Cook","index":0,"n_rows":87,"n_cols":2,"rows_kept":87,"cut":false,"hidden":false,"merged":[]}
[]
[null,"Public Sub ExportWorkBookAsTextFile()"]
[null,"Public Sub FillCells()"]
[null,"Public Sub Sort_a_Sheet()"]
[null,"Public Function SizeRecordField(ByVal iptr As Integer, ByVal istr As String) As String"]
[null,"Public Sub WipeSheet()"]
[null,"Public Sub CloseApp()"]
[null,"Public Sub dbcOn()"]
[null,"Public Sub dbcOff()"]
[null,"Public Sub SelectClient()"]
[null,"Public Sub ScrollRight()"]
[null,"Public Sub ScrollLeft()"]
[null,"Public Sub PreviousRecord()"]
[null,"Public Sub NextRecord()"]
[null,"Public Sub WriteDelimited()"]
[null,"Public Sub LastCells_in_Sheet()"]
[null,"Public Sub FormatCellEuro()"]
[null,"Public Sub AFLtoCOD()"]
[null,"Sub CommonReadSub()"]
[null,"Public Function ChainCut(strin As String, sense As String, what As String)"]
[null,"Public Function FileExists(filename) As Boolean"]
[null,"Public Function FldExtract(strin As String, ByVal fldidx As Integer, trimmer As String)"]
[null,"Sub ReadAFL()"]
[null,"Sub ReadCOD()"]
[null,"Sub ReadDAT()"]
[null,"Sub ReadTAD()"]
[null,"Sub ReadSPD()"]
[null,"Sub ReadSCD()"]
[null,"Sub ReadXLS()"]
[null,"Sub CopyRangeToRange(srcrange As String, destrange As String)"]
[null,"Sub PrintSheet()"]
[null,"Sub WriteToLogFile(strin As String)"]
[null,"Sub ClearImmediateWindow()"]
[null,"Sub ShowOnStatusBar()"]
[null,"Sub AddAWorkbook()"]
[null,"Function GetFileNameFromPath(stfullname As String) As String"]
[null,"Sub CreateNewWorkSheet(sheettocopy As String, snewsheetname As String)"]
[null,"Sub GetReallastCells()"]
[null,"Sub SumARange()"]
[null,"Function VIDEO(dimension)"]
[null,"Public Function CELLTYPE(Cell)"]
[null,"Public Function LASTINROW(rng As Range) As Variant"]
[null,"Public Function LASTINCOLUMN(rng As Range) As Variant"]
[null,"Public Function CELLHASFORMULA(Cell) As Boolean"]
[null,"Public Function CELLFORMULA(Cell) As String"]
[null,"Public Function CELLISHIDDEN(Cell) As Boolean"]
[null,"Public Function ISBOLD(Cell) As Boolean"]
[null,"Public Function ISITALIC(Cell) As Boolean"]
[null,"Public Function ALLBOLD(Cell) As Boolean"]
[null,"Public Function FILLCOLOR(Cell) As Integer"]
[null,"Public Function REVERSETEXT(text) As String"]
[null,"Public Function SCRAMBLE(text)"]
[null,"Public Function ACRONYM(text) As String"]
[null,"Public Function ISLIKE(text As String, pattern As String) As Boolean"]
[null,"Function CellHasText(Cell) As Boolean"]
[null,"Function ExtractElement(Txt, n, Separator) As String"]
[null,"Public Sub AssignRangeToArray()"]
[null,"Public Function RetrieveArrVal(arrin As Variant, ridx As Long, cidx As Long) As Double"]
[null,"Sub CopyAndAutoFilter()"]
[null,"Public Function GetValue(path, file, sheet, Ref)"]
[null,"Public Sub TestGetOneCellValue()"]
[null,"Public Sub TestGetRangeValue()"]
[null,"Sub ResetAllSheetsToA1()"]
[null,"Function COUNTBETWEEN(rng, num1, num2)"]
[null,"Function SUMVISIBLE(rng)"]
[null,"Function NEXTMONDAY(d As Date) As Date"]
[null,"Function NEXTDAY(d As Date, day As Integer) As Variant"]
[null,"Function MONTHWEEK(d As Date) As Integer"]
[null,"Function DRIVEEXISTS(DriveLetter As String) As Boolean"]
[null,"Function DRIVETYPE(DriveLetter As String) As String"]
[null,"Function COUNTVISIBLE(rng)"]
[null,"Function MAXALLSHEETS(Cell)"]
[null,"Function SHEETOFFSET(offset, Ref)"]
[null,"Public Function WorksheetIndex(x As Worksheet) As Integer"]
[null,"Public Function MYSUM(ParamArray n() As Variant) As Variant"]
[null,"Public Function RANDOMINTEGERS()"]
[null,"Function SHEETNAME() As String"]
[null,"Function WORKBOOKNAME() As String"]
[null,"Function APPNAME() As String"]
[null,"Function EXCELVERSION() As Variant"]
[null,"Public Sub SaveAll()"]
[null,"Public Sub ExShToNewWbk(ByVal srcwbk As String, ByVal deswbk As String, ByVal srcwsh As String)"]
[null,"Public Sub ShowNames()"]
[null,"Public Sub ChercherClient()"]
[null,"Public Function SheetExists(shtname As String) As Integer"]
[null,"Function SumByBkgrColor(PlageEntree As Range, CouleurPlage As Range) As Double"]
[null,"Function SumByFontColor(PlageEntree As Range, CouleurPlage As Range) As Double"]

{"sheet":"Mod_Tricky1","index":1,"n_rows":7,"n_cols":2,"rows_kept":7,"cut":false,"hidden":false,"merged":[]}
[]
[null,"Sub AddErrorTestToActiveCellFormula()"]
[null,"Sub AddIfEmptyThenEmptyToActiveCellFormula()"]
[null,"Sub UnlockSelectedRange()"]
[null,"Sub LockSelectedRange()"]
[null,"Sub ProtectSelectedSheet()"]
[null,"Sub UnprotectSelectedSheet()"]

{"sheet":"Module_LINKS","index":2,"n_rows":6,"n_cols":2,"rows_kept":6,"cut":false,"hidden":false,"merged":[]}
[]
[null,"Sub DeleteOrListLinks()"]
[null,"Sub DeleteExternalFormulaReferences()"]
[null,"Private Function DeleteLinksInWS(ConfirmReplace As Boolean, _"]
[null,"Sub ListExternalFormulaReferences()"]
[null,"Private Sub ListLinksInWS(ws As Worksheet, TargetWS As Worksheet)"]

{"sheet":"Content","index":3,"n_rows":50,"n_cols":12,"rows_kept":50,"cut":false,"hidden":false,"merged":[]}
[null,"ContenuRoutines.xlsm"]
["Mod_Cook",null,"Mod_Cook (...suite...)",null,"Mod_Cook (...suite...)",null,"Mod_Routines (...suite...)",null,"Mod_Tricky1 (...suite...)",null,"Mod_VBE_CommandBoard (...suite...)"]
[null,"ExportWorkBookAsTextFile",null,"ShowOnStatusBar",null,"SUMVISIBLE",null,"hidden_DirExists",null,"UnlockSelectedRange",null,"List_Module_Procedures"]
[null,"FillCells",null,"AddAWorkbook",null,"NEXTMONDAY",null,"hidden_SheetExists",null,"LockSelectedRange",null,"ShowCommandBoard"]
[null,"Sort_a_Sheet",null,"GetFileNameFromPath",null,"NEXTDAY",null,"hidden_FreezeScreen",null,"ProtectSelectedSheet",null,"CleanCommandBoardSheet"]
[null,"SizeRecordField",null,"CreateNewWorkSheet",null,"MONTHWEEK",null,"hidden_DefreezeScreen",null,"UnprotectSelectedSheet",null,"CommandBoard_dbcOn"]
[null,"WipeSheet",null,"GetReallastCells",null,"DRIVEEXISTS",null,"hidden_FreezeCalculation","Mod_NamedRanges",null,null,"CommandBoard_dbcOff"]
[null,"CloseApp",null,"RemoveNumbersNotFormulas",null,"DRIVETYPE",null,"hidden_DefreezeCalculation",null,"TestUseAddNamedRange",null,"selectCommand"]
[null,"dbcOn",null,"SumARange",null,"COUNTVISIBLE",null,"hidden_CutSelection",null,"TestUseDeleteNamedRange","Mod_WAIT"]
[null,"dbcOff",null,"VIDEO",null,"MAXALLSHEETS",null,"hidden_FreezeAlerts",null,"AddNamedRange",null,"StartWaiting"]
[null,"SelectClient",null,"CELLTYPE",null,"SHEETOFFSET",null,"hidden_DefreezeAlerts",null,"DeleteNamedRange",null,"StopWaiting"]
[null,"ScrollRight",null,"LASTINROW",null,"WorksheetIndex",null,"hidden_AffixStatusBar",null,"NameExists","Mod_VbeContent"]
[null,"ScrollLeft",null,"LASTINCOLUMN",null,"MYSUM",null,"hidden_ClearStatusBar",null,"ShowNamedRanges",null,"VBE_GetAllVbaCode"]
[null,"PreviousRecord",null,"CELLHASFORMULA",null,"RANDOMINTEGERS",null,"hidden_Initialize_strTexteStatusbar",null,"ZapOneName",null,"VBE_ListAllSheets"]
[null,"NextRecord",null,"CELLFORMULA",null,"SHEETNAME",null,"hidden_ShowWaitSheet","Mod_NoVBE",null,null,"VBE_DeleteContent"]
[null,"WriteDelimited",null,"CELLISHIDDEN",null,"WORKBOOKNAME",null,"hidden_AffixIntro",null,"WarnMeNow",null,"VBE_Memo"]
[null,"LastCells_in_Sheet",null,"ISBOLD",null,"APPNAME",null,"hidden_HideWaitSheet",null,"DisableVBE",null,"Content_dbcOn"]
[null,"FormatCellEuro",null,"ISITALIC",null,"EXCELVERSION",null,"hidden_ResetAllA1",null,"EnableVBE",null,"Content_dbcOff"]
[null,"AFLtoCOD",null,"ALLBOLD",null,"SaveAll",null,"strActualColumn",null,"CmdControl",null,"ExeCommand"]
[null,"CommonReadSub",null,"FILLCOLOR",null,"ExShToNewWbk",null,"strNextColumn",null,"SayNoAccess"]
[null,"ChainCut",null,"REVERSETEXT",null,"ShowNames",null,"hidden_FreeSheet",null,"VbeOn"]
[null,"FileExists",null,"SCRAMBLE",null,"ChercherClient",null,"hidden_FreeAllSheets",null,"VbeOff"]
[null,"FldExtract",null,"ACRONYM",null,"SheetExists",null,"ColumnLetterValue",null,"VBESecurity"]
[null,"ReadAFL",null,"ISLIKE",null,"SumByBkgrColor",null,"ColumnLetter","Mod_LINKS"]
[null,"ReadCOD",null,"CellHasText",null,"SumByFontColor",null,"InitDoubleClickGoto",null,"DeleteOrListLinks"]
[null,"ReadDAT",null,"ExtractElement","Mod_Routines",null,null,"GotoDoubleClickedCell",null,"DeleteExternalFormulaReferences"]
[null,"ReadTAD",null,"AssignRangeToArray",null,"Auto_Open",null,"CvrtToR1C1",null,"DeleteLinksInWS"]
[null,"ReadSPD",null,"RetrieveArrVal",null,"ShowIntro",null,"CvrtToA1",null,"ListExternalFormulaReferences"]
[null,"ReadSCD",null,"CopyAndAutoFilter",null,"CreateNewWorkSheet",null,"DemoGoto",null,"ListLinksInWS"]
[null,"ReadXLS",null,"GetValue",null,"hidden_ExitNow",null,"DecodePwd","Mod_MENUS"]
[null,"CopyRangeToRange",null,"TestGetOneCellValue",null,"hidden_GetReallastCells",null,"Macro1",null,"AjouterMenuOD"]
[null,"PrintSheet",null,"TestGetRangeValue",null,"RealLastRow","Mod_Tricky1",null,null,"ZapMenuOD"]
[null,"WriteToLogFile",null,"ResetAllSheetsToA1",null,"RealLastCol",null,"AddErrorTestToActiveCellFormula","Mod_VBE_CommandBoard"]
[null,"ClearImmediateWindow",null,"COUNTBETWEEN",null,"hidden_fileExists",null,"AddIfEmptyThenEmptyToActiveCellFormula",null,"CreateCommandBoard"]
[]
[null,"ContenuRoutines.xlsm"]
[null,"SheetName",null,"Protected",null,"Visible"]
[null,"Mod_Cook",null,false,null,"VRAI"]
[null,"Mod_Tricky1",null,false,null,"VRAI"]
[null,"Module_LINKS",null,false,null,"VRAI"]
[null,"Content",null,false,null,"VRAI"]
[null,"Module_MENUS",null,false,null,"VRAI"]
[null,"INTRODUCTION",null,false,null,"VRAI"]
[null,"CommandBoard",null,false,null,"VRAI"]
[null,"Module_VBE_CommandBoard",null,false,null,"VRAI"]
[null,"Module_WAIT",null,false,null,"VRAI"]
[null,"NamedRangesMod1",null,false,null,"VRAI"]
[null,"NoVBE_Mod",null,false,null,"VRAI"]
[null,"Routines_Mod",null,false,null,"VRAI"]
[null,"VbeContent_Mod",null,false,null,"VRAI"]

{"sheet":"Module_MENUS","index":4,"n_rows":3,"n_cols":2,"rows_kept":3,"cut":false,"hidden":false,"merged":[]}
[]
[null,"    Public Sub AjouterMenuOD()"]
[null,"    Public Sub ZapMenuOD()"]

{"sheet":"INTRODUCTION","index":5,"n_rows":23,"n_cols":8,"rows_kept":23,"cut":false,"hidden":false,"merged":[]}
[]
[]
[]
[null,null,null,"                       Affordable Solutions"]
[null,null,null,"                                                          Email: affordsol@skynet.be"]
[]
[]
[]
[]
[]
[null,null,null,null,"Macros must be enabled to use this workbook !"]
[]
[]
[]
[]
[null,null,null,null,"Each Sheet Tab is the name of one Module"]
[]
[null,null,null,null,"Look at the sheet \"Content\" to see all existing Module and the inside routines (subs)"]
[]
[null,null,null,null,"A double click on a sub in the Sheet \"Content\" executes the corresponding Macro"]
[]
[]
[null,null,null,"               Designed by Affordable Solutions : ",null,null,null,"http://www.affordsol.be"]

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

{"sheet":"Module_VBE_CommandBoard","index":7,"n_rows":8,"n_cols":2,"rows_kept":8,"cut":false,"hidden":false,"merged":[]}
[]
[null,"Public Sub CreateCommandBoard()"]
[null,"Public Sub List_Module_Procedures()"]
[null,"Public Sub ShowCommandBoard()"]
[null,"Public Sub CommandBoard_dbcOn()"]
[null,"Public Sub CommandBoard_dbcOff()"]
[null,"Public Sub selectCommand()"]
[null,"Public Sub CleanCommandBoardSheet"]

{"sheet":"Module_WAIT","index":8,"n_rows":3,"n_cols":2,"rows_kept":3,"cut":false,"hidden":false,"merged":[]}
[]
[null,"Public Sub StartWaiting()"]
[null,"Public Sub StopWaiting()"]

{"sheet":"NamedRangesMod1","index":9,"n_rows":6,"n_cols":2,"rows_kept":6,"cut":false,"hidden":false,"merged":[]}
[]
[null,"Sub AddNamedRange(Any_New_Name As String)"]
[null,"Sub DeleteNamedRange(Any_New_Name As String)"]
[null,"Function NameExists(TheName As String) As Boolean"]
[null,"Sub ShowNamedRanges()"]
[null,"Sub ZapOneName()"]

{"sheet":"NoVBE_Mod","index":10,"n_rows":8,"n_cols":2,"rows_kept":8,"cut":false,"hidden":false,"merged":[]}
[]
[null,"Sub DisableVBE()"]
[null,"Sub EnableVBE()"]
[null,"Sub CmdControl(Id As Integer, TF As Boolean)"]
[null,"Sub SayNoAccess()"]
[null,"Sub VbeOn()"]
[null,"Sub VbeOff()"]
[null,"Sub VBESecurity()"]

{"sheet":"Routines_Mod","index":11,"n_rows":34,"n_cols":2,"rows_kept":34,"cut":false,"hidden":false,"merged":[]}
[]
[null,"Sub CreateNewWorkSheet(sheettocopy As String, snewsheetname As String)"]
[null,"Public Sub hidden_ExitNow()"]
[null,"Public Sub hidden_GetReallastCells()"]
[null,"Public Function RealLastRow&"]
[null,"Public Function RealLastCol&"]
[null,"Public Function hidden_fileExists(fileName) As Boolean"]
[null,"Public Function hidden_DirExists(DirName As String) As Boolean"]
[null,"Public Function hidden_SheetExists(shtname As String) As Integer"]
[null,"Public Sub hidden_FreezeScreen()"]
[null,"Public Sub hidden_DefreezeScreen()"]
[null,"Public Sub hidden_FreezeCalculation()"]
[null,"Public Sub hidden_DefreezeCalculation()"]
[null,"Public Sub hidden_CutSelection()"]
[null,"Public Sub hidden_FreezeAlerts()"]
[null,"Public Sub hidden_DefreezeAlerts()"]
[null,"Public Sub hidden_AffixStatusBar()"]
[null,"Public Sub hidden_ClearStatusBar()"]
[null,"Public Sub hidden_Initialize_strTexteStatusbar()"]
[null,"Public Sub hidden_ShowWaitSheet()"]
[null,"Public Sub hidden_HideWaitSheet()"]
[null,"Sub hidden_ResetAllA1()"]
[null,"Public Function strActualColumn() As String"]
[null,"Public Function strNextColumn() As String"]
[null,"Public Function hidden_FreeSheet(strSheetName As String)"]
[null,"Public Sub hidden_FreeAllSheets()"]
[null,"Public Function ColumnLetterValue(strInputCode As String)"]
[null,"Public Function ColumnLetter(ColumnNumber As Integer) As String"]
[null,"Sub InitDoubleClickGoto()"]
[null,"Public Sub GotoDoubleClickedCell()"]
[null,"Public Function CvrtToR1C1(str_xlA1) As String"]
[null,"Public Function CvrtToA1(str_xlR1C1) As String"]
[null,"Sub DemoGoto()"]
[null,"Public Function DecodePwd(ByVal szData As String) As String"]

{"sheet":"VbeContent_Mod","index":12,"n_rows":6,"n_cols":2,"rows_kept":6,"cut":false,"hidden":false,"merged":[]}
[]
[null,"List of related Macros"]
[null,"Public Sub VBE_GetAllVbaCode()"]
[null,"Public Sub VBE_ListAllSheets()"]
[null,"Public Sub VBE_DeleteContent()"]
[null,"Public Sub VBE_Memo()"]