Modify "view only" setting of XLS file

[jsangradorp]

Hi! This is more of a feature request, so please feel free to ignore and/or close it 😄

I would like to be able to set an XLS file to view only mode, from the command line, so as to script it for a full directory tree.

Thanks for considering!

[tobya]

Thanks for the issue @JSangrador

If I get you right you would like to open each file in a dir tree modify the view only setting of the file and then resave?

If so, I think that's sort of outside the primary scope of DocTo or XLSTo, but I'll take a look.

[jsangradorp]

Yes that is the idea. I understand it is outside the primary scope of XLSTo, but thanks a lot for considering 😄 .

Although the directory traversal could obviously done outside, of course.

[tobya]

It is an interesting idea though so I'll look into it when i get a moment

[tobya]

@JSangrador I'm not sure I understand the exact setting you are asking for. Could you let me know what you do to set this value manually, or if you have a microsoft documenation page that explains the value setting that would be helpful.

[jsangradorp]

The thing is I am looking into this on behalf of a relative and me myself I never use Excel myself! Add to that his Excel is in Spanish. He says he opens a file, and inside the "Review" ("revisar") "tab" there is a "protect sheet" ("proteger hoja") option and a "protect book" ("proteger libro") option, and he says that any of the two options is good for him. I hope that helps.

[tobya]

I've recorded a macro for this to look ar the code that is used

Sub protect()
'
' protect Macro
'

'
    ActiveSheet.protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
        :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True
    Range("S20").Select
    Sheets.Add After:=ActiveSheet
    Sheets("Sheet2").Select
    Sheets("Sheet2").Name = "Workbook2"
    ActiveWorkbook.protect Structure:=True, Windows:=False
End Sub