Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
828to832
828to832
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
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.

14 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige