Odstráňte obsah modulu pomocou VBA v programe Microsoft Excel

Anonim

Nie je možné odstrániť všetky druhy modulov, nemôžete odstrániť kodexy pre pracovné listy,
grafy a ThisWorkbook. V týchto moduloch musíte odstrániť obsah namiesto samotného modulu:

Sub DeleteModuleContent (ByVal wb As Workbook, _ ByVal DeleteModuleName As String) 'deles the content of DeleteModuleName in wb' use this if you can't delete the module On Error Resume Next With wb.VBProject.VBComponents (DeleteModuleName) .CodeModule .DeleteLines 1, .CountOfLines Koniec chybou pri chybe GoTo 0 Koniec pod

Príklad:

DeleteModuleContent ActiveWorkbook, "Sheet1"