Tilføjelse af password i et Word VBA Project

Hej
Hvad med følgende? Jeg har taget alle opsætnings mulighederne med..

Sub Gem_Mig()
With Options
        .AllowFastSave = False
        .BackgroundSave = True
        .CreateBackup = False
        .SavePropertiesPrompt = False
        .SaveInterval = 10
        .SaveNormalPrompt = False
        .OptimizeForWord97byDefault = False
    End With
    With ActiveDocument
        .ReadOnlyRecommended = False
        .EmbedTrueTypeFonts = False
        .SaveFormsData = False
        .SaveSubsetFonts = False
        .Password = \"password\"
        .WritePassword = \"password\"
        .OptimizeForWord97 = False
    End With
    Application.DefaultSaveFormat = \"\"
    ActiveDocument.SaveAs FileName:=\"Test Name.doc\", FileFormat:= _
        wdFormatDocument, LockComments:=False, Password:=\"password\", _
        AddToRecentFiles:=True, WritePassword:=\"password\", ReadOnlyRecommended:= _
        False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, _
        SaveFormsData:=False, SaveAsAOCELetter:=False
End Sub

Desværre hjælper dette svar mig ikke, idet det omhandler dokument passwords. Det jeg eftersøger er, en rutine til at sætte VB projektet password, således at brugerne ikke kan redigere i VB koden.

Jeg mener desværre ikke det kan lade sig gøre!
Men gidder i kigge på http://www.eksperten.dk/spm/58251.

Jeg har bevidst ladet problemet ligge lidt for at se om der kom flere bud. Jeg har i mellemtiden nu løst problemet selv og spørgsmålet kan derfor lukkes.