Hej!
Jag måste loopa igenom alla word-dokument på en filserver där jag öppnar, sparar som och stänger filerna.
En del av filerna har användaren dock lösenordskyddat. Dvs man får när man öppnar den upp en ruta att ange lösenord i alternativt öppna filen read-only.
Dessa filer skulle jag vilja att mitt script bara struntar i och fortsätter med resten. Som det är nu står scriptet och väntar på ett svar och då detta ska köras nattetid fungerar det inget bra...

Finns det något sätt att kolla om filen är lösenordsskyddad eller inte?
Jag använder filesystemobject för att öppna, spara,stänga. Bifogar koden för säkerhets skull.

Dim Directory
Directory = "c:/test/"
Set fso = CreateObject("Scripting.FileSystemObject")
Set Folder = fso.GetFolder(Directory)
Set Documents = Folder.Files
Set objApp = CreateObject("Word.Application")
objApp.Visible = False

'Loops through files in current subfolder to open, save and close
For Each doc In Documents
    Dim currentDoc As String
    currentDoc = Directory & doc.Name
'Här någonstans skulle jag vilja kolla om den är lösenordsskyddad, innan jag öppnar den...
    objApp.Documents.Open fileName:=currentDoc
    objApp.ActiveDocument.Save
    objApp.ActiveDocument.Close
    
Next

Har svarat dig i den gamla tråden