Odstraňte obsah modulu pomocí VBA v aplikaci Microsoft Excel

Anonim

Není možné odstranit všechny druhy modulů, nemůžete odstranit kodexy pro listy,
grafy a ThisWorkbook. V těchto modulech musíte místo samotného modulu odstranit obsah:

Sub DeleteModuleContent (ByVal wb As Workbook, _ ByVal DeleteModuleName As String) 'deletes 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 Konec s chybou GoTo 0 End Sub

Příklad:

DeleteModuleContent ActiveWorkbook, „List1“