VBA Word hoe kan ik controleren of document beveiligd is

[xceland]

Als ik de volgende functie aanroep, terwijl het bestand niet beveiligd is, krijg ik een foutmelding.
Daarom wil ik vooraf afvragen of het document beveiligd is of niet.
De If-regel werkt niet, maar zoiets zoek ik.
Alvast bedankt.

Function vrijgeven()
    'If ActiveDocument.Protection = False Then Exit Function
    ActiveDocument.Unprotect ""
End Function

 

[OctaFish]

Bijna goed; je checkt verkeerd.

    If ActiveDocument.ProtectionType = wdNoProtection Then
        ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
    Else
        ActiveDocument.Unprotect
    End If

Overigens is dit voorbeeld letterlijk uit de Help te halen; die zit er niet voor niks bij

 

[xceland]

de oplossing voor mij

Wat betreft de Helpfunctie: natuurlijk in gekeken, maar niet gevonden wat ik zocht.
Jouw oplossing klopt volgens mij niet helemaal, deze oplossing werkt voor mij:

Function BEVEILIGEN()
If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then Exit Function
    ActiveDocument.Protect wdAllowOnlyFormFields, , ""
End Function


Function VRIJGEVEN()
If ActiveDocument.ProtectionType = wdNoProtection Then Exit Function
    ActiveDocument.Unprotect
End Function

 

[OctaFish]

Mijn oplossing werkt prima, en houdt alles binnen éénf unctie. Een document is namelijk beveiligd, of niet. Je kunt dus echt met één functie af.