Makro til at aktivere "Begræns redigering"

Se nedenfor. Du kan have brug for at lave noget fejlhåndtering, men det afhænger af, hvad der i øvrigt foregår i VBA-koden. I all tre kodestykker er det forudsat, at der ikke er defineret et password, dvs. at password er en tom streng.

Følgende slår beskyttelse for FormFields TIL for det aktive dokument, hvis det ikke allerede er beskyttet:

    With ActiveDocument
        If .ProtectionType = wdNoProtection Then
            .Protect Password:="", NoReset:=True, Type:=wdAllowOnlyFormFields
        End If
    End With


Følgede slår beskyttelse FRA for det aktive dokument, hvis det allerede er beskyttet - uanset typen af beskyttelse
    With ActiveDocument
        If .ProtectionType <> wdNoProtection Then
            .Unprotect Password:=""
        End If
    End With


Følgende slår beskyttelse FRA for det aktive dokument, hvis det allerede er beeskyttet for FormFields
    With ActiveDocument
        If .ProtectionType = wdAllowOnlyFormFields Then
            .Unprotect Password:=""
        End If
    End With

Tak for hjælpen. Jeg vil indarbejde de forskellige koder i mit dokument.