ich möchte in einer Arbeitsmappe, mit sagen wir 3 Tabellen, Tabelle 1 gegen löschen schützen, d.h. der Nutzer sollte Sie aus der Arbeitsmappe nicht entfernen können.
Kann mir jemand eine Lösung anbieten ?
Thanks.
ich möchte in einer Arbeitsmappe, mit sagen wir 3 Tabellen, Tabelle 1 gegen löschen schützen, d.h. der Nutzer sollte Sie aus der Arbeitsmappe nicht entfernen können.
Kann mir jemand eine Lösung anbieten ?
Thanks.
Extras -> Schutz -> Arbeitsmappe.
Schützt jedoch alle Blätter.
Knud
Ist aber leider nicht das, was ich benötige.
Hintergrund:
Der Nutzer bekommt zwei Tabellenblätter vorgegeben.
Tabelle 1 ist ein Beispielblatt zur Handhabung.
Tabelle 2 ist das Arbeitsblatt.
Der Nutzer hat die Möglichkeit Tabelle 1 zu kopieren und umzubenennen. Ebenso kann er erzeugte Tabellen löschen (Alles über Buttons mit VBA).
Nur die Beispieltabelle darf er nicht löschen können !
...
dank Eurer Hilfe konnte ich es folgendermaßen umsetzten:
Private Sub Workbook_Open()
' Arbeitsmappe schützen
ActiveWorkbook.Protect Structure:=True, Windows:=False
End Sub
Beispiel Tabelle löschen:
Sub TabDel()
' Tabellenblatt löschen
ActiveWorkbook.Protect Structure:=False, Windows:=False
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
ActiveWorkbook.Protect Structure:=True, Windows:=False
End Sub