Izbrišite sadržaj modula pomoću VBA u programu Microsoft Excel

Anonim

Nije moguće izbrisati sve vrste modula, ne možete izbrisati kodne module za radne listove,
grafikoni i ThisWorkbook. U ovim modulima morate izbrisati sadržaj umjesto samog modula:

Sub DeleteModuleContent (ByVal wb Kao radna knjiga, _ ByVal DeleteModuleName As String) 'briše sadržaj DeleteModuleName u wb' upotrijebite ovo ako ne možete izbrisati modul On Error Resume Next With wb.VBProject.VBComponents (DeleteModuleName) .CodeModeles. 1, .CountOfLines završava s pogreškom pri uključivanju Idi na 0 završi pod

Primjer:

DeleteModuleContent ActiveWorkbook, "Sheet1"