Hi all, What I need: A given XLSX file should be write-protected in some columns, while others should be changeable. In addition I need an Autofilter which should be applied on the protected range. So filtering and sorting must be possible after adding the protection. What I have: I've wrote a VBS which can be run from a SAS programm using: X d:\mypath\vbs_script.vbs
RUN; This script you can find here in detail: Set oexcel= CreateObject("Excel.Application")
oexcel.Visible = False
'Open File
Set ThisWorkbook = oexcel.Workbooks.Open("d:\mypath\test.xlsx")
Set sheet = ThisWorkbook.Worksheets("Tabelle1")
'Define write protected range
Set rng = sheet.Range("D:BE")
'Random Password
For x=1 To 15
Randomize
vChar = Int(89*Rnd) + 33
If vChar = 34 Then vChar = 39
RndPassword = RndPassword & Chr(vChar)
Next
'Lock write protected range
rng.Locked = True
sheet.Protect RndPassword
'save File
ThisWorkbook.SaveAs("d:\mypath\test_2.xlsx")
oexcel.Quit It works for the protection part but now I'm stuck with adding the AutoFilter options. I've googled a lot, but I failed with any attempt so far. Someone here who can help? Thank you, KR Bernd
... View more