Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
184to188
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
184to188
184to188
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabellenblatt gegen löschen schützen

Tabellenblatt gegen löschen schützen
27.11.2002 14:29:28
Michael
Hi volks,

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.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Tabellenblatt gegen löschen schützen
27.11.2002 14:34:52
Knud
Hi Volker,

Extras -> Schutz -> Arbeitsmappe.
Schützt jedoch alle Blätter.

Knud

Re: Tabellenblatt gegen löschen schützen
27.11.2002 14:47:33
Michael
.... ja ja, so long.

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 !

...

Re: Tabellenblatt gegen löschen schützen
27.11.2002 14:58:09
Ralf Sögel
Wenn Tabelle1 aktiviert wird, Mappenschutz setzen, ansonsten aufheben, wenn eine andere Tabelle ausgewählt wird.
Anzeige
Re: Tabellenblatt gegen löschen schützen
27.11.2002 16:18:08
Michael
Hallo,

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

16 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige