wie kann ich den VBA-Code auf sämtlichen Blättern(80) meiner Mappe löschen?
Zusätzlich auch noch den Button auf dem Blatt?
Wäre nett, wenn mir jemand einen Tipp geben könnte.
Danke
Gruß Andi
Sub entferneCodeUndButton()
'entfernt aus allen Tabellenblättern einer Mappe
'den Code und löscht einen Button auf den Tabellen.
Dim wkb As Workbook
Dim wks As Worksheet
Set wkb = ThisWorkbook 'wenn Löschung in dieser Mappe!
'sonst Mappe angeben! zB.: Workbooks("mappe.xls")
On Error GoTo ERRORHANDLER
For Each wks In wkb.Worksheets
With wkb.VBProject.VBComponents(wks.CodeName).CodeModule
.DeleteLines 1, .CountOfLines 'Code aus Tabelle entfernen
End With
wks.Shapes(1).Delete 'Schaltfläche entfernen
Next
ERRORHANDLER:
If Err.Number <> 0 Then
If Err.Number = -2147024809 Then 'kein Shape auf Tabelle!
Err.Clear
Resume Next
Else 'sonstige Fehler
MsgBox "Fehler:" & vbLf & vbLf & Err.Description, vbCritical, "FEHLER"
End If
End If
End Sub