title image


Smiley Re: Sammeländerung Excel-Passwort in allen Dateien ?
HalloNachfolgender VBA-Prozess wechselt Passwörter für nicht schreibgeschützte Excel-Mappen aus.Die Konstanten im Kopf des Codes müsstest Du noch anpassen.GrussSilviaPrivate Const Verzeichnis = "C:\Temp"Private Const Filter = "*.xls"Private Const UnterverzeichnisseDurchsuchen = FalsePrivate Const PasswortAlt = "Litium"Private Const PasswortNeu = "Berilium" Sub PasswortÄndern() Dim oMappe As Workbook With Application.FileSearch .LookIn = Verzeichnis .Filename = Filter .SearchSubFolders = UnterverzeichnisseDurchsuchen .Execute SortBy:=msoSortByFileName Anzahl = .FoundFiles.Count i = 0 For Each eMappe In .FoundFiles On Error Resume Next Set oMappe = Workbooks.Open(Filename:=eMappe, Password:=PasswortAlt) Fehler = Err.Number On Error GoTo 0 If Fehler = 0 Then If oMappe.ReadOnly = False Then If oMappe.HasPassword = True Then i = i + 1 StatusBar = "Das Passwort für " & eMappe & " wird geändert." DoEvents Application.DisplayAlerts = False oMappe.SaveAs Filename:=eMappe, Password:=PasswortNeu Application.DisplayAlerts = True End If End If oMappe.Close End If Next End With MsgBox Anzahl & " Mappen durchsucht." & vbCrLf & i & " Mappen verarbeitet." DoEventsEnd Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: