Folgethema "Kennwort ist nicht Korrekt"
08.04.2020 12:19:11
Hans
hier ist ein Folgethema zu dem Thread https://www.herber.de/forum/messages/1751383.html.
Volti und Regina Resch-Jansen haben mir hier schon sehr geholfen. Allerdings ist ein anderer Fehler aufgekommen.
Bei dem Code-Schnipsel:
Sub WordDokumentöffnen(ByVal Dokumente As String)
Const wdReplaceAll = 2
Dim AppWD As Object, AppDoc As Object
If Dir(Dokumente) "" Then
Set AppWD = CreateObject("Word.Application") 'Word als Object starten
If Not AppWD Is Nothing Then
AppWD.Visible = True
If AppWD.Options.AllowReadingMode = True Then
'Word nicht im Lesemodus starten bei Schreibgeschützten Dokumenten
AppWD.Options.AllowReadingMode = False
End If
Set AppDoc = AppWD.Documents.Open(Dokumente)
If AppWD.ActiveDocument.ProtectionType wdNoProtection Then
AppWD.ActiveDocument.Unprotect
End If
If Not AppDoc Is Nothing Then
With AppDoc.Range.Find
.Text = "Test"
.MatchCase = True
.Replacement.Highlight = True
.Replacement.Text = ActiveWorkbook.Sheets("Eingabefenster").Range("B5").Value
.Execute Replace:=wdReplaceAll
End With
AppWD.Documents.Close (Dokumente)
End If
End If
Else
MsgBox "Die zu öffnende Dokumentdatei wurde nicht gefunden!", vbCritical, "Word-Datei öffnen" _
End If
Set AppWD = Nothing
Set AppDoc = Nothing
End Sub
Wird bei mir als Fehler angezeigt, "Das Kennwort ist nicht Korrekt Laufzeitfehler 5485".
Ich habe keinerlei Ahnung welches Passwort ich setzen muss, bzw. wie diese Fehlermeldung zusammenkommt.
Da es sich hier um ein Gruppenprojekt handelt, hat mein Kollege zusätzlich in deinem Forum dazu gepostet, allerdings ohne Antworten.
http://www.vba-forum.de/forum/View.aspx?ziel=58481-Fehlermeldung_bei_Zugriff_von_Excel_VBA_auf_Word
Ich bin sehr froh um Antworten und danke euch im Voraus.
VG