Word document starten vanuit Excel

[bullenpees]

Hoi,

Een paar dagen geleden stelde ik een vraag en legde deze bij de Word-kant van dit forum.
Om de kans van oplossen te verhogen leg ik het nu ook bij de Excel-kant.


Het volgende is het geval.
Vanuit Excel moet er een Wordbestand worden geopend via een hyperlink.
Op het moment dat het Wordbestand geopend wordt, wordt er in dit document een aantal gegevens vanuit het Excelbestand synchroniseren.
De plek waar deze gegevens terecht komen is in de kop van het Worddocument.
Komt nog bij dat het Worddocument is beveiligd.

De door mij gemaakte macro zorgt ervoor dat (bij starten van het Wordbestand) de beveiliging wordt verwijderd en de gegevens in de kop worden gesynchroniseerd. Daarna gaat alles weer op slot.

Nu het rare.
Start ik het Wordbestand vanuit verkenner op dan is er geen probleem. Echter doe ik dit met de hyperlink vanuit Excel dan loopt de macro vast bij het verwijderen van de beveiliging.

Iemand enig idee wat dit kan zijn?

Grt BP
--------------------
Private Sub Document_Open()


'Beveliging_opheffen
ActiveDocument.Unprotect ("0000")

'Selectie_kop
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader


'update kop
Selection.Fields.Update


'Terug_naar_document
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.EscapeKey

'Beveliging aanzetten
ActiveDocument.Protect wdAllowOnlyFormFields, True, ("0000")


End Sub