Åben word via excel

Sub Voice()

Hej

Jeg har følgende script, som jeg gerne vil have åbner word filen skrivebeskyttet.

Selve wordfilen er skrive beskyttet med kodeord, kan nedstående script åbne wordfilen ud alligevel uden skrivebekyttelse.

Jeg har forsøgt at indsætte ", , True) efter voice.doc i scriptet, men det virker heller ikke.

Er der en som har et godt råd.


Sub Åbenword()

Dim wdapp As Object
Set wdapp = GetObject("", "word.application")
Set wdapp = GetObject("C:\Documents and Settings\snr\Desktop\TM - Voice.doc")
wdapp.Application.Visible = True
wdapp.Application.Run MacroName:="Kør_flet"

Exit Sub
End Sub