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
- 画像を添付する (ファイルサイズ:10MB以内、ファイル形式:JPG/GIF/PNG)
- 今の自分の気分スタンプを選ぼう!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) VBS Bookを閉じるコード 1 2023/02/16 17:31
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Visual Basic(VBA) wordのマクロで思うように行きません(ファイル削除ができない) 3 2023/09/12 08:34
- Visual Basic(VBA) xmlドキュメントから別拡張子で保存したい 4 2023/09/12 11:08
- Visual Basic(VBA) VBA 1 2024/02/03 22:51
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2024/03/26 18:09
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
vbs ブック共有を解除
-
Wordのプロパティ・総ページ数...
-
VBからExcelファイルを開くとき...
-
動かなくなってしまった古いVBA...
-
vbaサブフォルダーをワイルドカ...
-
ファイルへのハイパーリンクで...
-
ExcelVBA 文字コード変換
-
更新日が指定日以降のファイル取得
-
ファイルのアクセス回数について
-
エクセルVBAで一つ上の階層...
-
同じファイル名 上書きしないフ...
-
カンマ区切りのCSVファイルから...
-
最新更新日のBATファイルコピー...
-
マインクラフトPCをプレイしよ...
-
EXCEL(VBA)で指定フォルダ内の...
-
【VB6】デバイスマネージャを表...
-
frxファイルの役目
-
Windows10でコマンドプロンプト...
-
csvファイルでの日付設定「yyyy...
-
ワード 一部のページだけをpdf...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
FileDialog オブジェクトでファ...
-
動かなくなってしまった古いVBA...
-
vbaサブフォルダーをワイルドカ...
-
ffftpでファイル取得が0バイト...
-
サブフォルダ含むフォルダ内の...
-
VBAでフォルダ内のhtmlファイル...
-
excel マクロ PDF化の際のエラ...
-
Wordのプロパティ・総ページ数...
-
Accessのウインドウサイズの固定
-
VB6でUTF-8ファイルの読取りを
-
フォルダ階層・ファイル名・ペ...
-
「エクセルファイルが開いてい...
-
ExcelVBA 文字コード変換
-
エクセルのVBAで開いている...
-
「AccessViolationException」...
-
ファイルを開く時間測定のスク...
-
AccessからOLEオブジェクト型の...
-
vbsでのアスタリスクとファイル...
-
VBからExcelファイルを開くとき...
-
【ACCESS VBA】アクセスからデ...
おすすめ情報