Как при защите листа разрешить пользование автофильтром с помошью VBS

[Vja4eslav]

Здравствуйте, у меня не получается разрешить использование автофильтра после защиты листа с помощью скрипта VBScript.
При помощи VBA это делается без проблем:
ActiveSheet.Protect "1234" DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True
Но в файле .vbs это не прокатывает.
Подскажите, пожалуйста, как прописать подобное в VBScript ?

[Скрипт]

Vja4eslav, попробуйте код ниже изменить под свою задачу. Недостающие команды можно получить сначала в программе "Excel", а затем уже команды переносить в VBS-файл.

Код вставляет число "1" в активную Excel-книгу в активный лист в ячейку "A1":

dim myExcel
dim bkActive
dim shActive
    
'1. Даём имя "myExcel" запущенной программе "Excel".
'Через это имя будем обращаться к программе "Excel".
Set myExcel = GetObject(,"Excel.Application")

'2. Даём имя "bkActive" активной Excel-книге.
set bkActive = myExcel.ActiveWorkbook

'3. Даём активному листу имя "shActive".
Set shActive = bkActive.Activesheet
    
'4. Помещаем в ячейку "A1" число "1".
shActive.Range("A1").Value = 1

Примечание:

Особенности "VBS" в отличие от "VBA":

1. Нельзя при создании переменных задавать тип данных переменных: "dim bkActive As Object".
2. Нельзя в коде указывать названия параметров функций. В функции "GetObject" я хотел так сделать, но "VBS" не разрешил:
   

   Set bkActive = GetObject(Class:="Excel.Application")

3. Сделал "Sub ... End Sub" - ничего не происходило.

[Vja4eslav]

Уважаемый СКРИПТ, Ваш код я прописал в VBS следующим образом:

Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Visible = True
ExcelApp.WorkBooks.Open "C:\Documents and Settings\Администратор\Рабочий стол\Новая папка\Лист Microsoft Excel.xls"
ExcelApp.Windows("Лист Microsoft Excel.xls").Activate
ExcelApp.ActiveSheet.Unprotect "1234"
ExcelApp.ActiveSheet.Range("A1").Va lue = 1
ExcelApp.ActiveSheet.Protect "1234"
ExcelApp.DisplayAlerts = False
ExcelApp.ActiveWorkbook.Close True
ExcelApp.Quit

With ExcelApp......End With забыл применить, ну да ладно.

Всё нормально отработало. А вот как правильно написать в VBScript разрешение использования автофильтра после защиты листа?

[Скрипт]

Пункт 1

Vja4eslav, здесь:

ActiveSheet.Protect "1234" DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True

имена параметров не пишите - "VBS" не воспринимает имена параметров. Если параметр вообще не нужен, то вместо параметра ставьте запятую. Если "VBS" не разрешит слово "True", то замените "True" числом "1".


Пункт 2

Vja4eslav: With ExcelApp......End With забыл применить, ну да ладно.

в сообщении #3 в коде не нужно использовать "With ... End With". Если хотите использовать "With ... End With", то код будет такой:

Set ExcelApp = CreateObject("Excel.Application")
With ExcelApp
    .Visible = True
    .Workbooks.Open "C:\Documents and Settings\Администратор\Рабочий стол\Новая папка\Лист Microsoft Excel.xls"
    .Windows("Лист Microsoft Excel.xls").Activate
    .ActiveSheet.Unprotect "1234"
    .ActiveSheet.Range("A1").Va lue = 1
    .ActiveSheet.Protect "1234"
    .DisplayAlerts = False
    .ActiveWorkbook.Close True
    .Quit
End With

[Vja4eslav]

Немножко не понял: вместо каких параметров ставить запятые?

[Скрипт]

Пункт 1

Vja4eslav, в этой команде:

ActiveSheet.Protect "1234" DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True

следующие параметры:
"1234"
DrawingObjects
Contents
Scenarios
AllowFiltering


Пункт 2

В сообщении #1 у вас неправильно записана команда, правильно так:

ActiveSheet.Protect "1234", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True

[Vja4eslav]

То есть надо написать:
ExcelApp.ActiveSheet.Protect 1, 1, 1, 1 ?

[Скрипт]

Vja4eslav, да. Если второй, третий и четвёртый параметр вообще не нужен, но нужно указать, например, пятый по счёту параметр, то нужно просто запятые ставить, например:

ExcelApp.ActiveSheet.Protect 1, , , , 1

[Vja4eslav]

В этом случае ставится пароль на защиту в виде "1", а применение автофильтра по прежнему не разрешено.
Может я туплю где-нибудь?

[Hugo121]

expression.Protect(Password, DrawingObjects, Contents, Scenarios, UserInterfaceOnly, AllowFormattingCells, AllowFormattingColumns, AllowFormattingRows, AllowInsertingColumns, AllowInsertingRows, AllowInsertingHyperlinks, AllowDeletingColumns, AllowDeletingRows, AllowSorting, AllowFiltering, AllowUsingPivotTables)

Запятые считайте сами