---

Hallo Excel-Kollegen,

ich möchte ein Blatt schützen, so weit kein Problem. Zur Info meine Vorgehensweise:
- Menü Extras, Blattschutz
- Lege die erlaubten Funktionen fest
- WICHTIG: ich vergebe ein Passwort

So weit so gut. Jetzt besteht meine Arbeitsmappe aus 13 Tabellen, die ich alle mit den exakt gleichen Einstellungen schützen möchte. Über die Mehrfach-Auswahl der Tabellen funktioniert der Befehl aber nicht.

Frage:
kann ich mit den Standard-Excel-Funktion rasch und komfortabel alle Blätter schützen oder muss ich das für jedes Blatt einzeln machen? Bzw. brauche ich wirklich ein Makro dafür?

Besten Dank und ciao,
WolfgangE

------------------
An Optimist Is A Person Who Has Not Been Shown All The Facts Yet!!!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Wolfgang,

verwende doch die Option Extras---Schutz---Arbeitsmappe schützen.
Das müsste doch ausreichen, wenn nicht poste noch einmal.

Gruß

------------------
Gazelle

"Gilde der Erfinnder"

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Gazelle,

bringt leider nichts. Mit dem Schutz der Arbeitsmappe kann nur die Struktur derselben gesperrt werden. Damit wird verhindert, dass z.B. neue Tabellen angelegt oder bestehende Tabellen umbenannt werden.
Die Arbeitsblätter selbst bleiben davon unberührt.

Ciao,
WolfgangE

------------------
An Optimist Is A Person Who Has Not Been Shown All The Facts Yet!!!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Sorry Wolfgang,

richtig lesen sollte man können.

Sub AlleBlaetter_Schuetzen()
Dim s
Dim Name As Variant
Name = ActiveSheet.Name
Application.ScreenUpdating = False
For s = 1 To Sheets.Count
Sheets(s).Select
ActiveSheet.Protect "Gazelle"
Next s
Sheets(Name).Select
Application.ScreenUpdating = True

End Sub

Als Passwort habe ich Gazelle verwendet, kannst du natürlich jederzeit durch ein anderes ersetzten.

------------------
Gazelle

"Gilde der Erfinnder"

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Auch Hallo,

kleine Ergänzung, wenns nicht alle sein sollen, dann gehts auch so:

Code:

---

Sub y()
  Dim ws As Worksheet
  'For Each ws In ThisWorkbook.Worksheets 'alle Blätter
  For Each ws In Sheets(Array("Tabelle1", "Tabelle2")) 'einzelne Blätter
    ws.Protect "susi" 'unprotect "susi"
  Next
End Sub

---

lg Nancy
   

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@ WolfgangE

Es sollte allerdings klar sein, daß dieser Schutz nur
gegen Erna Krause bzw. Wilfried Krause (wegen der Gleichberechtigung) was taugt, die (der) weder von Internet oder irgendwelchen anderen Sachen was gehört hat.
Wer hier nur einen Funken Energie investiert, findet abgesehen von selbst zu programmierenden Sachen sogar fertige Add-Ins mit denen man jeden Schutz wieder aufheben und aushebeln kann.
Diese Art des Schutzes taugt gegen das unbeabsichtigte Verändern von Tabellen und Formeln durch die Benutzer, mehr nicht.

Tschüß Frank!

[Diese Nachricht wurde von melzig am 28. Okt. 2004 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Na denn danke auch, werd's bei Gelegenheit ausprobieren.

@Frank,
ist mir klar, danke für den Hinweis. Weißt, muss das Formual im ganzen Haus verteilen und möchte einfach nicht, dass die Berechnungen mehr oder weniger versehentlich umgeschrieben werden.

Ciao,
WolfgangE

------------------
An Optimist Is A Person Who Has Not Been Shown All The Facts Yet!!!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP