Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
780to784
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
780to784
780to784
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle Dateien in Verzeichnis Passwort entfernen

Alle Dateien in Verzeichnis Passwort entfernen
13.07.2006 10:29:40
Bernd
Hallo, verehrte Ecel-Profis,
ich habe ein Verzeichnis auf dem Abteilungsserver, in dem dutzende gleichartige Dateien liegen. Alle Blätter in den Dateien sind per gleichem Passwort von mir geschützt. Nun möchte ich dieses Passwort entfernen, also alle Blätter in jeder einzelnen Datei entsprerren.
Wie gesagt: kein Hacking, sondern Dateien, die ich erstellt und geschuetzt habe.
Wer kann/will mir denn ein Makro hierzu zur Verfügung stellen?
Erweiterung/Ergänzung: wenn sich nur die Blätter "Detail" und "Details" in den Dateien entsperren ließen, so wäre das eine super Sache. Wenn's zu komliziert ist, dann halt die gesamte Datei.
Grüße und vorab vielen Dank an Euch.
Bernd

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Dateien in Verzeichnis Passwort entfernen
13.07.2006 10:48:07
IngGi
Hallo Bernd,
so sollte das gehen. Passwortschutz wird nur bei den Blättern Detail und Details entfernt. Achte auf die notwendigen Anpassungen. 

Sub Passwort_entfernen()
Dim fso As Object
Dim fo As Object
Dim f As Object
Dim ws As Worksheet
Set fso = CreateObject("Scripting.FileSystemObject")
Set fo = fso.GetFolder("C:\Temp\") 'Verzeichnis anpassen
For Each f In fo.Files
If Right(f.Name, 4) = ".xls" Then
Workbooks.Open Filename:=f.Path
For Each ws In Workbooks(f.Name).Worksheets
If ws.Name = "Detail" Or ws.Name = "Details" Then
ws.Unprotect Passwort:="xy" 'Passwort anpassen
End If
Next 'ws
Workbooks(f.Name).Close True
End If
Next 'f
End Sub
Gruß Ingolf
Anzeige
AW: Alle Dateien in Verzeichnis Passwort entfernen
13.07.2006 11:08:04
UweD
Hallo
so?
Verzeichnis noch anpassen


      
Sub alle_Dateien_Verzeichnis_Passwort_raus() '
    Dim strFile$, strPath$, strExt$, Pass$
    Pass = InputBox("Welches Passwort soll verwendet werden?", "Passwort entfernen")
    strPath = "C:\Temp\" 'Pfad des Verzeichnisses ggf. anpassen
    strExt = "*.xls"       'Dateiextension ggf. anpassen
    If strPath = "" Then
        Exit Sub
    Else
        strFile = Dir(strPath & strExt)
        Do While Len(strFile) > 0
            Workbooks.Open Filename:=strPath & strFile
            'Befehle für jede Datei
            '***
            On Error GoTo Fehler
            ActiveWorkbook.Sheets("Detail").Unprotect Password:=Pass
            ActiveWorkbook.Sheets("Details").Unprotect Password:=Pass
            '****
            Workbooks(strFile).Close SaveChanges:=True ' Datei wird wieder geschlossen mit Speichern
            strFile = Dir() ' nächste Datei
        Loop
    End If
Fehler:
    If Err.Number = 9 Then 'Wenn die beiden Tabellenblätter nicht existieren
        Err.Clear
        Resume Next
    ElseIf Err.Number <> 0 Then
        MsgBox "Fehler: " & Err.Number & vbLf & Err.Description
    End If
End Sub 


Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: Alle Dateien in Verzeichnis Passwort entfernen
13.07.2006 21:33:26
Bernd
Hallo Ingi,
hallo Uwe,
leider funktionieren beide Makros nicht. Ich habe auch eine Testdatei mit sehr einfach Pfad auf meiner Festplatte angelegt und trotzdem funktioniert die Makros nicht. Die Datei wird zwar bearbeitet, aber das Passwort in der Datei nicht gelöscht.
Grüße
Bernd
AW: Alle Dateien in Verzeichnis Passwort entfernen
13.07.2006 22:08:32
Kurt
Die Dateien müssen gespeichert werden.
mfg Kurt
AW: Alle Dateien in Verzeichnis Passwort entfernen
14.07.2006 08:35:24
IngGi
Hallo Bernd,
kleiner Fehler, große Wirkung. In meinem Makro muss es "Password" mit "d" am Ende heissen, nicht "Passwort". Nach Änderung hat das Makro bei mir funktioniert.
Gruß Ingolf
IngGis Makro funktioniert mit "Update" vom 14.7..
15.07.2006 22:56:00
Bernd
Hallo, liebe Helfer.
Also Fazit: Das Makro von IngGI funktioniert nun einwandfrei. Deshalb meinen tiefen Dank an IngGI.
Das maro von UweD trotz aller Versuche nicht. Uwe, bitte nicht verärgert sein. Vielleicht liegt es auch an mir. Ich kann nur sagen, dass ich in beiden Makros den gleichen Pfad (mit Copy und Paste) eingetragen habe. Trotzdem auch meinen Dank an dich.
Grüße
Bernd
Anzeige

27 Forumthreads zu ähnlichen Themen

Tabellenblatt einblenden mit Passworteingabe
Claudia

Hallo guten Morgen zusammen,
ich habe eine Datei mit einigen ausgeblendetetn Tabellenblättern. WEnn ich diese einblende werde ich nach einem Passwort abgefragt und dann blendet es auch ein. Code nachstehend. Das Passwort ist bekannt und lautet test.
Private Sub Gesamt() If InputBox("B...
14.12.2008 11:48:00
Thread-ID: 1032748
3 Beiträge
Anzeige
Nur eine Zelle mit Passwort schützen
Horst

Hallo!
Ich möchte nicht ein ganzes Excelblatt mit einem Passwort schützen, sondern nur eine Zelle innerhalb eines Blattes.
Kann man dieses?
Und wenn ja wie?
Tabelle1.Range("A1").Protect Password:="123" oder
ActiveCell.Protect Password:="123" oder
Selection.Protect Passwo...
26.11.2009 08:53:47
Thread-ID: 1120172
3 Beiträge
Makro Passwortschutz entfernen
Joni

Hallo,
ich habe über 5 Ecken eine Excel-Tabelle mit Makros erhalten. Bevor ich diese ausführe würde ich mir die Makros gerne ansehen. Das Projekt ist aber geschützt. Gibt es eine Möglichkeit den Code trotzdem einsehen zu können bzw. den Schutz abzuschalten? Ausführen ohne den Inhalt zu kenn...
07.11.2010 21:09:11
Thread-ID: 1185586
19 Beiträge
Anzeige
cells.find auf mehrere Blätter gleichzeitig
ptonka

Hallo zusammen,
mit dem VBA-Befehl cells.find ....... kann ich ein bestimmtes Suchkriterium auf einem Tabellenblatt finden.
Ich möchte die Suche jedoch auf 5 Tabellenblätter ausweiten.
Wie kann ich das realisieren, ohne jeweils jedes einzelne Blatt per select auswählen zu müssen u...
16.06.2011 23:07:57
Thread-ID: 1218545
2 Beiträge
mehrere Tabellenblätter gleichzeitig sortieren
Dirk73

Hallo zusammen,
ich habe eine Excel 2010 Tabelle. Darin sind 6 Tabellenblätter enthalten. Jede hat ca. 300.000 Zeilen. Alle in ein Tabellenblatt passen leider nicht.
Ich möchte gerne alles sortieren, sprich Excel soll ausgehend von Tabellenblatt 1 bei A anfangen und über alle 6 Blätter...
14.01.2013 10:28:57
Thread-ID: 1294142
6 Beiträge
mehrere Blätter auf einmal schützen
Sven

Hallo,
ich kapier´s nicht.
Ich möchte in meiner Arbeitsmappe alle Blätter auf einmal mit Blattschutz versehen und auch wieder aufheben.
Ich habe diesen gefunden:
Option Explicit
Dim WsTabelle As Worksheet Private Sub Aufheben() For Each WsTabelle In Sheets WsTabelle.Unprotec...
01.10.2015 17:51:27
Thread-ID: 1450372
4 Beiträge
alle Arbeitsblätter gemeinsam schützen
Andreas

Hallo und guten morgen,
ich wollte mal was nachfragen.
Gibt es eine Möglichkeit einen Blattschutz auf alle Arbeitsblätter, bei mir 5 Stck,
gleichzeitig anzuwenden. Ich möchte, das meine Kollegen die Datei öffnen können, die Daten sehen können, aber nix ändern dürfen.
Da ich abe...
21.01.2016 09:05:44
Thread-ID: 1470136
13 Beiträge
Blatt mittels Passwort schützen
Frank

Hallo und Guten Abend!
Allen vorab ein schönes WE.
Ist es möglich dass innerhalb einer Arbeitsmappe ein einzelnes Blatt so geschützt werden kann, dass es nur nach Eingabe eines Passwortes geöffnet werden kann? Wenn ja, wie muss ich das denn machen? Für Hilfe schon jetzt dankbar!
Gru...
07.10.2016 18:28:16
Thread-ID: 1518624
3 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
10
2
18
2
1
5
3
12
2
5
16
3
1
9
2
1
8
12
3
7
3
3
4
2