Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
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

Passwort per VBA aus Excel entfernen

Passwort per VBA aus Excel entfernen
12.12.2006 12:16:26
Markus
Hi Jungs,
habe viele Dateien die alle das selbe Passwort haben.
Das Passwort soll entfernt werden und ist bekannt.
Erste Hürde die ich habe:
Wie öffne ich automatisch nen Excel mit Passwortschutz ohne das Popup zur Eingabe kommt. ?
Workbooks.Open(DIR & "\" & strDatei, 0) geht leider nicht
Zweite Sache, wie setze ich das Passwort zurück?
Workbook.Unprotect "Pass"
geht leider net :-(
Danke

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

Betreff
Datum
Anwender
Anzeige
Problem1 datei öffnen gelöst, bleibt noch entferne
12.12.2006 12:23:22
Markus
Datei öffnen geht nun, PAssword ist der fünfte Parameter.
WIe krieg ich es jetzt gelöscht?
Danke
AW: Problem1 datei öffnen gelöst, bleibt noch entf
12.12.2006 12:38:58
Reinhard
Hi Markus,
ActiveWorkbook.Unprotect password:="Geheim"
Gruß Reinhard ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Geht leider nicht..Code inside...
12.12.2006 13:22:09
Markus
Hi Geht leider auch nicht,
das Passwort bleibt weiterhin bestehen...
ganzer Code:

Sub EntfernePasswort()
Const PFAD As String = "u:\Temp\"
Const PASSWORT As String = "TEST"
Dim wbDatei As Workbook
Dim strDatei As String
Dim Counter As Integer
On Error Resume Next
strDatei = Dir(PFAD & "\*.xls")
Do While strDatei <> ""
Set wbDatei = Workbooks.Open(PFAD & strDatei, 0, 0, 0, PASSWORT)
Workbooks(strDatei).Select
Workbooks(strDatei).Unprotect Password:="TEST"
Workbooks(strDatei).Close True
strDatei = Dir()
Counter = Counter + 1
Loop
MsgBox "FERTIG ,  " & Counter & " Dateien bearbeitet", vbInformation
End Sub

Anzeige
AW: Geht leider nicht..Code inside...
12.12.2006 13:55:11
Matthias
Hallo Markus,
hier geht es scheinbar nicht um den Arbeitsmappenschutz, sondern um das Datei-Lesekennwort:

Sub EntfernePasswort()
Const PFAD As String = "D:\Temp"
Const PASSWORT As String = "TEST"
Dim wbDatei As Workbook
Dim strDatei As String
Dim i As Integer
With Application.FileSearch
.LookIn = PFAD
.FileType = msoFileTypeExcelWorkbooks
.Execute
Application.DisplayAlerts = False
For i = 1 To .FoundFiles.Count
Debug.Print .FoundFiles(i)
Workbooks.Open Filename:=.FoundFiles(i), Password:=PASSWORT
ActiveWorkbook.SaveAs Filename:=.FoundFiles(i), Password:=""
ActiveWorkbook.Close False
Next i
Application.DisplayAlerts = True
MsgBox "FERTIG ,  " & .FoundFiles.Count & " Dateien bearbeitet", vbInformation
End With
End Sub

Gruß Matthias
Anzeige
Vielen Dank
12.12.2006 14:30:14
Markus
Vielen Dank,
wusste nicht das das verschiedene Dinge sind.
Funktioniert super
THX
Geht leider nicht da @ work und nix installen kann
12.12.2006 12:39:55
Markus
geht leider nicht.
Kann at work nix installen.

18 Forumthreads zu ähnlichen Themen

Word Passwort entfernen
Holger

Hallo zusammen,
wie ich ein Excel-Passwort deaktieviere weiss ich, aber geht das auch bei Word ? Und wenn ja, wie ?
Gruss
Holger
06.02.2009 12:17:00
Thread-ID: 1047714
5 Beiträge
Anzeige
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
Kennwort zum Öffnen per VBA setzen
Arthur
Hi Excelianer.
Da denkt man es ist einfach und dann möchte es nicht ...
Ich möchte ein gerade frisch erzeugtes Workbook (Excelmappe) mit einem Lesekennwort versehen ("Kennwort zum Öffnen" in den Speichern unter->Tools->Allgemeine Optionen).
Application.Workbooks.Add
ActiveWork...
10.07.2014 11:53:03
Thread-ID: 1369656
6 Beiträge
Anzeige
VBA Passwort vergessen
Michel

Hallo zusammen
Ich Dummkopf habe in meiner Excel das VBA Passwort vergessen und komme nun nicht mehr zu dem Code.
Kann mir hier jemand helfen?
Hier wäre noch meine File:
https://www.herber.de/bbs/user/95639.xlsm
Danke vorbau für eure Hilfe
Gruss
Michel
09.02.2015 14:53:16
Thread-ID: 1408201
5 Beiträge
VBAProjekt Passwort vergessen
Chris

Hallo Leute,habe mal vor langer Zeit ein kleines VBAProjekt mit Passwort geschützt.
Jetzt müsste ich das Projekt erweitern und mir fällt das Passwort nicht mehr ein.
Kan mir da jemand Helfen?
Gruß
Chris
20.08.2002 10:52:46
Thread-ID: 150507
3 Beiträge
Kennwort zum Öffnen + Makros aktivieren
Kisska

Hallo allerseits,
wieso werden Makros deaktiviert, wenn man eine Datei mit dem Kennwort zum Öffnen verseht? Kann man dies irgendwie umgehen?
Viele Grüße
Kisska
28.05.2017 17:29:12
Thread-ID: 1560766
6 Beiträge
VBA-Passwort vergessen!
Nadine

Hallo zusammen!

Ich habe vor einiger Zeit ein VBA-Projekt (Add-In) per Passwort geschützt, und habe dieses nun vergessen!

Gibt es irgendeine Möglichkeit, es wiederzufinden? Das Paswort bestand aus einem Wort und Ziffern.
Ich weiß noch...
...das Wort (aber nicht, ob Groß- o...
30.06.2003 13:58:40
Thread-ID: 275418
6 Beiträge
VBA Passwort vergessen
Carsten Kramer
Hallo,
Habe meine Makros und Autotexte in Word geschützt und kann mich nicht mehr an mein Passwort erinnern. Kann mir jemadn helfen wie ich mein Passwort rauskriege? ich habe es bereits mit AVPRo probiert aber es erschein nur " Password unavailable"
Danke.
Carsten
16.11.2003 00:00:32
Thread-ID: 338770
4 Beiträge
Anzeige

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
4
6
18
5
2
4
2
5
5
3
7
1
10
8
4
3
2
13