vbs ブック共有を解除

vbsでドラッグアンドドロップしたExcelファイルのブック共有解除
　 ActiveWorkbook.UnprotectSharing
ActiveWorkbook.ExclusiveAccess
を行いたいのですがうまくいきません
ご教示いただけますと幸いです。

▼ VBScriptを使ってExcelファイルを開き、共有を解除

' エラーハンドリングを有効にする
On Error Resume Next

' Excelアプリケーションオブジェクトを作成する
Set objExcel = CreateObject("Excel.Application")

' Excelアプリケーションの警告を表示しないように設定
objExcel.DisplayAlerts = False

' コマンドライン引数（ドラッグアンドドロップ）からファイルパスを取得
Set objArgs = WScript.Arguments
If objArgs.Count = 0 Then
' Excelアプリケーションを終了し、オブジェクトを解放
objExcel.Quit
Set objExcel = Nothing
WScript.Quit
End If

filePath = objArgs(0)

' ファイルが存在するか確認
If CreateObject("Scripting.FileSystemObject").FileExists(filePath) Then
' Excelファイルを開く
　 ' 共有を解除
Set objWorkbook = objExcel.Workbooks.Open(filePath)
ActiveWorkbook.UnprotectSharing

' ワークブックを閉じる
objWorkbook.Close False
End If
' Excelアプリケーションを完全に終了する
objExcel.Quit
Set objWorkbook = Nothing
Set objExcel = Nothing

' エラーハンドリングを解除
On Error GoTo 0