Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
144to148
144to148
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Prüfen ob Blattschutz wenn kein dann Lösche Zelle

Prüfen ob Blattschutz wenn kein dann Lösche Zelle
11.08.2002 19:12:37
Michael Reuter
Hallo zusammen,

Wie kann man per VBA Prüfen ob ein Blattschutz vorhanden ist,
danach sollte wenn kein Blattschutz vorhanden die Zelle A1:F10 gelöscht werden für eine neue Eingabe.
Wenn Blattschutz vorhanden soll nichts passieren.

Habe schon mit If IsProtect=True probiert funzt aber nicht so richtig.

Danke schonmal
Michael Reuter

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

Betreff
Datum
Anwender
Anzeige
Re: Prüfen ob Blattschutz wenn kein dann Lösche Zelle
11.08.2002 19:15:45
andreas e
hey Micha
wie wäre es denn einfach im Makr zu Iöschen und danach einen onerror abgriff ?
der ist das zu simpeI gedacht ?

gruß
andreas e
http://www.skripteundaufgaben.de viele kostenlose Downloads und Links zu EXCEL und mehr

Re: Prüfen ob Blattschutz wenn kein dann Lösche Zelle
11.08.2002 19:27:38
Michael Reuter
Hallo andreas,

das ist mir auch schon eingefallen aber ob das Blatt geschützt ist oder nicht ist von einer anderen Tabelle abhängig ob dort die Daten gelesen wurden oder nicht, wenn noch nicht gelesen dann ist die Tabelle Daten1 mit Blattschutz wenn gelesen dann kein Blattschutz wenn ich dann Daten1 öffne soll Automatisch der Bereich A1:F10 gelöscht werden. Damit niemand die Daten ausversehen löschen kann wenn noch nicht gelesen.

Gruß
Michael Reuter

Anzeige
Re: Prüfen ob Blattschutz wenn kein dann Lösche Zelle
11.08.2002 20:22:57
Urs
Hallo Michael
etwas ungewöhnlich, aber es funktioniert..

Sub loeschen()
On Error GoTo errorhandler
Range("A1:F10").Clear
End
errorhandler:
Exit Sub
End Sub

Gruss Urs

Re: Prüfen ob Blattschutz wenn kein dann Lösche Zelle
11.08.2002 20:58:40
Michael Reuter
Hallo Urs,

vielen Dank für deine Hilfe.

Habe auch noch eine andere Lösung gefunden, mittels ProtectContents=True in Worksheets.Activate

aber trotzdem nochmal vielen Dank !

Gruß
Michael Reuter

329 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige