Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1036to1040
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
Inhaltsverzeichnis

Schutz-Funktion

Schutz-Funktion
05.01.2009 11:45:21
Gorkij
Ich erstelle eine Excel-Tabelle mit ca. 30 Arbeitsblättern, in denen Formeln gegen versehentliches oder dusseliges Ändern geschützt werden sollen. Die Excel-Schutzfkt. reicht für diesen Zweck aus, ích habe aber noch keinen Weg gefunden, alle 30 Blätter in einem Zug zu schützen, bzw., den Schutz wieder aufzuheben, wenn ich die Tabelle verändere. Strg + Bätter anklicken funktioniert nicht.
Hat jemand eine Idee?

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schutz-Funktion
05.01.2009 11:54:00
Hajo_Zi
Hallo Gorkij,

Option Explicit
Dim WsTabelle As Worksheet
Private Sub Aufheben()
For Each WsTabelle In Sheets
WsTabelle.Unprotect ("Passwort")
Next WsTabelle
End Sub
Private Sub Schutz()
For Each WsTabelle In Sheets
WsTabelle.Protect ("Passwort")
Next WsTabelle
End Sub



Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige