Password
tonihome0
ich habe vor ein paar Jahren von jemanden diese Mappe bekommen zur Änderung von mehreren Passwörtern in verschiedenen Dateien .
Jetzt möchte ich diese in Excel 2007 nutzen, aber es klappt nicht mehr. Da ich keine Ahnung von VBA habe
weis ich nicht wie das geht. Nun möchte ich 10 der 20 Mappen die das gleiche Password haben durch ein anderes ersetzen ist das möglich.
Dim TargetDir
Dim OldPassword
Dim NewPassword
Sub ChngPassw()
'TargetDir = CurDir()
TargetDir = "C:\Dokumente und Einstellungen\Toni\Eigene Dateien"
MsgBox ("Die Passwortänderungen beziehen sich auf folgendes Verzeichnis: " & TargetDir)
With Application.FileSearch
.NewSearch
.LookIn = TargetDir
.SearchSubFolders = True
.Filename = "*.XLS"
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
End With
With Application.FileSearch
If .Execute() > 0 Then
MsgBox "Es wurden " & .FoundFiles.Count & " Datei(en) gefunden, die von der Passwortä _
nderung betroffen sind!"
OldPassword = InputBox("Bitte geben Sie das bisher verwendete Passwort ein:")
NewPassword = InputBox("Geben Sie das neue Password ein:")
Form1.Label1.Caption = "Aktuelles Password: " & OldPassword
Form1.Label2.Caption = "Neues Password: " & NewPassword
Form1.Show
Else
MsgBox "There were no files found."
End If
End With
End Sub
Function GetTargetDir()
GetTargetDir = TargetDir
End Function
Function GetOldPassword()
GetOldPassword = OldPassword
End Function
Function GetNewPassword()
GetNewPassword = NewPassword
End Function
Sub Test2()
'
' Test2 Makro
' Makro am 25.01.2003 aufgezeichnet
'
'
Workbooks.Open Filename:="M:\Eigene Dateien\Frühstück.xls"
ActiveWindow.Close
End Sub
Sub Test()
'
' Test Makro
' Makro am 25.01.2003 aufgezeichnet
'
'
Application.WindowState = xlMinimized
Application.WindowState = xlNormal
End Sub
mfg.tonihome0