In Excel Makros aus aktiven Sheet löschen?
Ich Möchte ein Tabellenblatt neben das Original kopieren, in dem man nichts mehr ändern kann, aber anschliesssend die Sub Makros aus der Kopie Löschen, da sonnst die Datie zu groß wird. Das Kopieren funktioniert super, nur mit den Makros entfernen noch nicht so.
Das ist mein Code zum Kopieren, Danke
Sub NeuesTabBlatt()
' Monate Soll
If MsgBox("Wollen Sie wirklich einen neuen Sollplan erstellen?", vbYesNo) = vbYes Then
If InputBox("geben sie Bitte das Passwort zum Entsperren ein", " Sollplanerstellung") = "1234" Then
MsgBox "OK, der Sollplan wird erstellt"
Else
MsgBox "Hier kommst Du net rein!"
ActiveSheet.Range("$A$1").Select
Exit Sub
End If
Application.ScreenUpdating = False
Application.Calculation = False
Dim NewName As String
ActiveWorkbook.Unprotect Password:="1234"
NewName = ActiveSheet.Range("$CW$1")
ActiveSheet.Copy After:=ActiveSheet
ActiveSheet.Name = "Soll" & " " & ActiveSheet.Range("CW1")
ActiveSheet.Range("AT127:AV134,AQ133:AS133, AT183:AV186, AT228:AV232").Clear
ZeilenEinUndAusblenden
ActiveSheet.EnableSelection = xlNoSelection
ActiveSheet.Protect Password:="1234", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.Visible = False
ActiveWorkbook.Protect "1234", Structure:=True
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
MsgBox "ein neues SOLL Tabellenblatt wurde erstellt"
End If
'BlätterSollEinAus
ActiveSheet.Range("$A$1").Select
End Sub
Microsoft Excel,
VBA
