VBA Schutz entsperren
17.03.2016 12:27:21
Thomas
ich hab da mal ne Frage...
Ich möchte bei ca 400 Dokumenten ein Modul austauschen, da habe ich schon mal gemacht und hat damals super funktioniert, mit dem selben Code und der selben Excel Version geht es plötzlich nicht mehr :(
Hier erstmal ein Teil des Codes :
Option Explicit
Public ApplicationFileSearch As New FileSearch
Sub Testmakro()
Dim i As Integer
Dim intIndex As Integer
Dim obWorkbook As Workbook
Dim strPfad As String
strPfad = ActiveWorkbook.Path & "\"
With Application
.DisplayAlerts = False
'.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
.AskToUpdateLinks = False
.CalculateBeforeSave = False
End With
With ApplicationFileSearch
.NewSearch
.LookIn = "Dateipfad....." 'wird angepasst....
.SearchSubFolders = True
.FileType = msoFileTypeExcelWorkbooks
.Execute
For intIndex = 1 To .FoundFiles.Count
If .FoundFiles(intIndex) ThisWorkbook.FullName Then
Set obWorkbook = Workbooks.Open(FileName:=.FoundFiles(intIndex))
'Versuch Nr.1
' SendKeys "%{F11} %Xi{TAB 9}" & "Passwort" & "{ENTER}{TAB 6}{ENTER}" '%{F5}", _
True
'Versuch Nr.2
' SendKeys "%{F11}%xi" & "Passwort" & "{ENTER}{ENTER}", True
'Versuch Nr.3
' SendKeys "%"
' SendKeys "W"
' SendKeys "V"
' SendKeys "%Xi"
' SendKeys "Passwort"
' SendKeys "{ENTER 2}"
With obWorkbook.VBProject
.VBComponents.Remove .VBComponents("Modul1")
.VBComponents.Import strPfad & "Modul1.1.bas"
End With
End Sub
Ich bekomme immer einen Fehler, da das Passwort nicht entfernt wird.
Mal öffnet sich das "Recherchieren" Fenster ( als wenn man Alt+Klick im Office drücken würde )
Mal schreibt er das Passwort einfach in die Zelle.
Anscheinend will er das VBA Fenster nicht mehr öffnen, deshalb hab ich mit Versuch Nr 3 auch schon versucht die ALT+F11 kombi zu umgehen, klappt aber auch nicht.
Hat jemand Rat ?
Vielen dank