VBAのマクロをVBSに変換し実行したいです。

前提・実現したいこと

VBAのマクロをVBSに変換して実行したいです。
実行内容としては、
1.シートの保護を解除
2.特定の行を削除
3.シートの保護(特定の操作を許可)

発生している問題・エラーメッセージ

実行できない内容として3.シートの保護(特定の操作を許可)の部分になります。
VBSで記述した際「sheet.Protect」までだとシートの保護はされます。「sheet.Protect」以降の処理がされない状況です。

該当のソースコード

VBA
1Sub Macro1()
2    ActiveSheet.Unprotect
3    Rows("17:20").Select
4    Selection.Delete Shift:=xlUp
5    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
6        , AllowInsertingColumns:=True, AllowInsertingRows:=True, _
7        AllowDeletingColumns:=True, AllowDeletingRows:=True
8End Sub

上記のコードを下記へ変更し、「sheet.Protect」の続きが書けず悩んでいます。
VBA通りに記述してもシートの保護すらかからない状況です。

VBS
1path = "Excelファイル"
2
3Set obj = CreateObject("Excel.Application")
4Set oXlsx = obj.WorkBook.Open(path)
5obj.Visible = True
6Set sheet = oXlsx.WorkBook.Item(1)
7  sheet.Unprotect
8  sheet.rows("17:20").delete
9  sheet.Protect　DrawingObjects=True, Contents=True, Scenarios=True _
10        , AllowInsertingColumns=True, AllowInsertingRows=True, _
11        AllowDeletingColumns=True, AllowDeletingRows=True

試したこと

記述方法を変えてみたりなどしてみましたが、上手くいきませんでした。
その他調べたりもしたのですが、VBAの情報しか出てこず行き詰っている状況です。

補足情報（FW/ツールのバージョンなど）

Windows10

備考

業務上VBSで実行できるようにしたい為、お手数ですがよろしくお願いします。

行動規範の内容に同意します

回答1件

ベストアンサー

メソッド名が間違っている、全角空白が紛れ込んでいるなど、いろいろ間違ってますが、コピペミスでしょうか？

VBScriptだと名前付きでパラメーターを渡せないので、位置で。

VBScript
1Set obj = CreateObject("Excel.Application")
2Set oXlsx = obj.WorkBooks.Open(path)
3obj.Visible = True
4Set sheet = oXlsx.Sheets(1)
5  sheet.Unprotect
6  sheet.rows("1:1").delete
7  sheet.Protect Null,True,True,True, _
8                Null,Null, _
9                Null,Null,True,True, _
10                Null,True,True

expression.Protect (Password, DrawingObjects, Contents, Scenarios,

UserInterfaceOnly, AllowFormattingCells,
AllowFormattingColumns, AllowFormattingRows, AllowInsertingColumns, AllowInsertingRows,
AllowInsertingHyperlinks, AllowDeletingColumns, AllowDeletingRows, AllowSorting,
AllowFiltering, AllowUsingPivotTables)

投稿2020/11/08 16:33