Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
828to832
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
828to832
828to832
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blattschutz für mehrere Dateien

Blattschutz für mehrere Dateien
22.12.2006 09:23:50
Marcel
Hallo,
ich nutze Excel 2002 und möchte für einige Dateien (die ggf. mehrere Tabellenblätter haben) einen Blattschutz einfügen. Da es relativ viele Dateien sind, möchte ich die Eingabe des Blattschutzes gerne automatisieren. Geht so etwas? Wenn Ja, wie?
Vielen Dank für Eure Hilfe.
Marcel

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blattschutz für mehrere Dateien
22.12.2006 09:52:58
Heinz
Hallo Marcel
Ich habe in meiner Mappe es so gemacht.
In einem Tab.Blatt 2 Command Button gesetzt.
Command Button 1 Setzt den Blattschutz.
Command Button 2 hebt den Schutz wieder auf.
ABER OHNE PASSWÖRTER:
Gruß Heinz

Private Sub CommandButton1_Click()
'Sub Blattschutz_alle_Tabellen_gesetzt()
Dim i As Worksheet
Dim z As Integer
z = 0
For Each i In ActiveWorkbook.Worksheets
i.Protect
z = z + 1
Next i
'MsgBox z & " Tabellen geschützt"
End Sub



Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
'Sub Blattschutz_alle_Tabellen_aufheben()
Dim i As Worksheet
For Each i In ActiveWorkbook.Worksheets
i.Unprotect
Next i
End Sub

Anzeige
AW: Blattschutz für mehrere Dateien
22.12.2006 10:09:39
haw
Hallo Marcel,
hier eine Möglichkeit in allen Dateien des angegebenen Ordners und seiner Unterordner alle Tabellenblätter mit einem Passwort zu schützen.
Zum Aufheben des Schutzes einfach Protect durch Unprotect ersetzen:

Sub BlattschutzSetzen()
Dim sSource$, iCount%, iCounter%
Dim wks As Worksheet
sSource = "C:\Daten\"
With Application.FileSearch
.NewSearch
.LookIn = sSource
.Filename = "*.xls"
.SearchSubFolders = True
.Execute
iCount = .FoundFiles.Count
For iCounter = 1 To iCount
Workbooks.Open Filename:=.FoundFiles(iCounter)
For Each wks In ActiveWorkbook.Worksheets
wks.Protect Password:="xxx"
Next wks
ActiveWorkbook.Close True
Next iCounter
End With
End Sub

Gruß Heinz
Anzeige
AW: Blattschutz für mehrere Dateien
22.12.2006 11:20:13
Marcel
Hallo,
vielen Dank für Eure Antworten.
Ich habe noch einmal nachgesehen, der Blattschutz liegt schon vor, ich müßte "nur" noch die Passwörter vergeben.
Wie sieht dann das Script von Heinz aus und was muss ich noch manuell anpassen (z.B. den Pfadnamen)?
Viele Grüße.
Marcel
AW: Blattschutz für mehrere Dateien
22.12.2006 11:26:27
haw
Hallo Marcel,

Sub BlattschutzSetzen()
Dim sSource$, iCount%, iCounter%
Dim wks As Worksheet
sSource = "C:\Daten\"
With Application.FileSearch
.NewSearch
.LookIn = sSource
.Filename = "*.xls"
.SearchSubFolders = True
.Execute
iCount = .FoundFiles.Count
For iCounter = 1 To iCount
Workbooks.Open Filename:=.FoundFiles(iCounter)
For Each wks In ActiveWorkbook.Worksheets
wks.Unprotect
wks.Protect Password:="xxx"
Next wks
ActiveWorkbook.Close True
Next iCounter
End With
End Sub

Hier einfach den Pfad unter sSource und das Passwort (dein Passwort anstatt xxx) anpassen
Gruß Heinz
Anzeige
AW: Blattschutz für mehrere Dateien
22.12.2006 11:38:45
Marcel
Hallo Heinz,
super vielen Dank. Jetzt muss ich mich noch mehr als Laie outen. Gebe ich die Befehle als Makro in einer der Dateien ein, oder wo? Ich möchte ja mehrere Dateien eines Pfades gleichzeitig ändern.
Marcel
AW: Blattschutz für mehrere Dateien
22.12.2006 11:45:05
haw
Hallo Marcel,
den Code gibst du in den Visual Basic Editor ein. In diesen kommst mit Alt und F11.
Du änderst die entsprechenden Strings (Pfad, Passwort)
Du setzt den Cursor in den Code und drückst die Taste F5. Dadurch wird das Makro gestartet. Wenn du einen gültigen Pfad eingegeben hast, wird in allen Excel-Dateien (wegen .Filename = "*.xls") jede Tabelle mit dem angegebenen Passwort geschützt. Sollten aber Dateien dabei sein, in denen es Tabellen gibt, die mit einem Passwort geschützt sind, entsteht ein Laufzeitfehler, aber laut deiner Aussage, sind ja alle ohne Passwort geschützt.
Gruß Heinz
Anzeige
AW: Blattschutz für mehrere Dateien
22.12.2006 12:00:14
Marcel
Hallo Heinz,
vielen Dank und viele Grüße.
Marcel

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige