Wordmacro loopt vast bij opstarten Wordbestand vanuit Excel (hyperlink) Office 2010

[bullenpees]

Hoi,

Een hybrideprobleem denk ik (hoort het bij Word of Excel).
Geen idee. Ik kies even voor Word.

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 Excel 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 eer 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?

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