Makro til fjernelse af password i wordfiler

Hviken type beskyttelse snakker vi om:

Filbeskyttelse eller dokumentbeskyttelse?

Vi snakker om -> Funktioner -> Indstillinger -> Sikkerhed

Word 2003

Værsgo :-)

Sub fjernBeskyttelse()

With Application.FileSearch
    .NewSearch
    .SearchSubFolders = True
    .LookIn = "C:\Sikkerhed"
    .FileName = "*.doc"
    .Execute
    .FileType = msoFileTypeWordDocuments
   
    For i = 1 To .FoundFiles.Count
        navn = .FoundFiles(i)
        Documents.Open FileName:=navn, PasswordDocument:="rvm"
        ActiveDocument.Password = "1234"
        ActiveDocument.SaveAs FileName:=navn, Password:=""
        ActiveDocument.Close True
    Next
End With

End Sub

Husk at ændre sti og password (rvm) - ikke 1234, da det bare er et dummy, der forsvinder igen.

Den kører filerne igennem ok, men den beder mig om password i alle tilfælde (jo jeg har ændret rvm til mit). Jeg indtaster så passwordet (ctrl-v), og den kører videre til slut efter, at jeg har gjort dette en del gange..

Problemet er så bare, at det ikke er fjernet, når jeg prøver at åbne de redigerede filer...

Så er vi tilbage ved udgangspunktet :-)

Hvilken type beskyttelse har du brugt?  - det tyder lidt på redigeringsbeskyttelse... og ikke filbeskyttelse

Jamen, du har vist fuldstændig ret.

-> Funktioner -> Indstillinger -> Sikkerhed :
Fildelingsindstillinger for dette dokument:
Adgangskode til redigering: *****

Så beklager forvirringen, håber stadig på en lille fiks makro ;)

/Morten

Så ser den bare således ud :-)

Sub fjernBeskyttelse()

With Application.FileSearch
    .NewSearch
    .SearchSubFolders = True
    .LookIn = "C:\Sikkerhed"
    .FileName = "*.doc"
    .Execute
    .FileType = msoFileTypeWordDocuments
   
    For i = 1 To .FoundFiles.Count
        navn = .FoundFiles(i)
        Documents.Open FileName:=navn, WritePasswordDocument:="rvm"
        ActiveDocument.WritePassword = ""
        ActiveDocument.SaveAs FileName:=navn, WritePassword:=""
        ActiveDocument.Close True
    Next
End With

End Sub

Det hjalp.. Var lidt bange for at den kollapsede lidt på et tidspunkt, pc'en :)

Men mange tak, 1234 væk...