Hätte fast die selbe frage wie vorher:
Habe hier einen Code zum Tabellenblatt hinzufügen.Funkt.auch super,aber da einige Verknüpfungen zu dem letzten TB bestehen,muß ich vor dem einfügen neues TB den Blattschutz des altenTB deaktivieren sonst Bug.Wäre es möglich beim Klick auf neues TB einfügen eine Warnung "Haben Sie schon den Blattbschutz vom alten TB deaktiviert?"
Oder wäre es auch möglich automatisch bei Klick "neues TB hinzufügen" den Blattschutz für diesen Moment Automatisch zu öffnen und wenn erfolgt wieder automatisch zu setzen? Oder eine andere Lösung.
Danke für Eure Hilfe
Gruß Heinz
Sub kopiereBlatt()
Dim wks As Worksheet
Dim zi, JUrl, ETDat, EinfDatE, EinfDatB As Variant
Application.ScreenUpdating = False
Sheets(Sheets.Count - 1).Copy Before:=Sheets(Sheets.Count)
Set wks = Sheets(Sheets.Count - 1)
With wks