Datum

Titel

16.04.2024 19:22:16

Von exceltabelle in word per steuerelement temarker

16.04.2024 18:50:53

Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle

16.04.2024 17:18:01

Projektplan-Tabelle oder Gantt ohne Balken

16.04.2024 17:05:25

formatierten Text direkt in Zelle einfügen

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

600to604

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

alle Blätter zusammen schützen und aufheben

Forumthread: alle Blätter zusammen schützen und aufheben
4 Beiträge zu diesem Forumthread
Anzeige
300 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

26.04.2005 13:27:07

ömer

Hallo,
diese Frage hatte ich einmal gestellt, aber ich finde es nicht mehr.
Wie kann ich alle Blätter zusammen mit einme Befehl schützen und aufheben.
Ohne Password und bitte auch mit Password
Vielen vielen Dank im voraus
MFG
ömer

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: alle Blätter zusammen schützen und aufheben

26.04.2005 13:33:27

=Peter=
AW: alle Blätter zusammen schützen und aufheben

26.04.2005 14:04:31

Hajo_Zi
Alles OK danke Peter und Hajo

26.04.2005 14:27:00

ömer
AW: alle Blätter zusammen schützen und aufheben

26.04.2005 15:24:31

=Peter=

AW: alle Blätter zusammen schützen und aufheben

26.04.2005 13:33:27

=Peter=

Hallo,
eine Möglichkeit:


Sub AlleBlaetterSchuetzen()
'Autor: Unbekannt
' AlleBlaetterSchuetzen Makro
' Alle Blätter einer Arbeitsmappe werden geschützt
Dim s
Dim Name As Variant
Name = ActiveSheet.Name
Application.ScreenUpdating = False
For s = 1 To Sheets.Count
Sheets(s).Select
ActiveSheet.Protect
Next s
Sheets(Name).Select
Application.ScreenUpdating = True
End Sub

Um die Blätter mit einem Passwort zu schützen, muss hinter der Zeile ActiveSheet.Protect noch folgender Text eingefügt werden:
Password:="test".
Damit werden die Blätter mit dem Passwort "test" geschützt.
Um den Schutz für alle Blätter wieder aufzuheben muss ein weiteres Makro erstellt werden und dabei die Zeile "ActiveSheet.Protect" durch "ActiveSheet.UnProtect" ersetzt werden.
HTH
Gruß
Peter

AW: alle Blätter zusammen schützen und aufheben

26.04.2005 14:04:31

Hajo_Zi

Hallo Peter,
das geht aber auch ohne select!
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

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.

"Wer Rechtschreibfehler findet, darf sie behalten!" Dies gilt auch für Bert.

Alles OK danke Peter und Hajo

26.04.2005 14:27:00

ömer

Alles ok , Vielen Dank

AW: alle Blätter zusammen schützen und aufheben

26.04.2005 15:24:31

=Peter=

Hallo Hajo,
der Code kommt zwar nicht von mir, aber Danke für die Verbesserung.
HTH
Gruß
Peter