Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
16.10.2025 13:18:36
Übersicht von Excel Konstanten
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
944to948
944to948
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei sperren

Forumthread: Datei sperren

Datei sperren
29.01.2008 14:10:00
Gordon
Moin,
ich weiß zwar wie ich ein Tabellenblatt in VBA sperre, aber wie sperre ich alle Tabellenblätter aufeinmal bzw. die ganze Datei?
Gruß
Gordon

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei sperren
29.01.2008 14:19:00
Beverly
Hi Gordon,
laufe in einer Schleife über alle Tabellenblätter.

AW: Datei sperren
29.01.2008 14:42:00
Gordon
Und wie mache ich das?
Habe 13 Tabellenblätter mit verschiedenen Namen...wie spreche ich die in einer Schleife an?

Anzeige
AW: Datei sperren
29.01.2008 14:58:31
Jan
Hi,

Sub t()
Dim Ws as worksheet
For each Ws in ThisWorkbook.Worksheets
Ws.Protect
Next
End Sub


mfg Jan

AW: Datei sperren
29.01.2008 15:08:00
Beverly
Hi Gordon,
noch eine andere Möglichkeit

Sub blattschutz()
Dim inTabellen
For inTabellen = 1 To ThisWorkbook.Worksheets.Count
Worksheets(inTabellen).Protect
Next inTabellen
End Sub



Anzeige
AW: Datei sperren
29.01.2008 15:39:00
Gordon
Hat super geklappt, danke!
Mal eine Frage nebenbei: Was wäre wenn ich eines oder mehrere bestimmte Blätter der 13 Blätter nicht sperren wollte. Was müßte ich da noch einfügen?
Gruß
Gordon

AW: Datei sperren
29.01.2008 15:53:40
Daniel
Hi

Sub blattschutz()
Dim inTabellen
For inTabellen = 1 To ThisWorkbook.Worksheets.Count
select case worksheets(inTabellen).Name
Case "Tabelle1", "Tabelle3"
Case Else
Worksheets(inTabellen).Protect
end select
Next inTabellen
End Sub


würde alles schützen, außer Tabelle 1 und Tabelle 3
Gruß, Daniel

Anzeige
AW: Datei sperren
29.01.2008 16:30:18
Beverly
Hi Gordon,

Sub blattschutz()
Dim inTabellen
For inTabellen = 1 To ThisWorkbook.Worksheets.Count
Select Case Worksheets(inTabellen).Name
Case "Tabelle1", "Tabelle2"
Case Else
Worksheets(inTabellen).Protect
End Select
Next inTabellen
End Sub


Bis später,
Karin

Anzeige
AW: Datei sperren
29.01.2008 16:48:00
Gordon
Hat alles geklappt. Danke
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige