No.1ベストアンサー
- 回答日時:
こんばんは。
たぶん、検索すれば出てくるような気がしますが、有名な海外の掲示板でも、あれこれやっていましたので、以下が正しいのか分りませんが、試してみてください。
UnprotectSharing 自体は正しいです。なお、以下は、ActiveWorkbook にしてありますので、適当に直してください。
Sub BookSharingUnProtecting()
'パスワード
Const PSW As String = "00"
With ActiveWorkbook
.UnprotectSharing PSW
Application.DisplayAlerts = False
.ExclusiveAccess
Application.DisplayAlerts = True
End With
End Sub
この回答へのお礼
お礼日時:2006/03/08 09:52
Wendy02 さん お世話になっています。
>.ExclusiveAccess
この1行が効きました。
無事に解除が出来ます。
ちなみに "00" は Filename になるようです。
有難う御座いました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
String""から型'Double'への変...
-
マクロで"#N/A"のエラー行を削...
-
文字列内で括弧を使うには
-
実行時エラー'-2147467259(8000...
-
SQLでエラーです。
-
実行時エラー 438 の解決策をお...
-
お助けください!VBAのファイル...
-
IISの仮想ディレクトリ作成がわ...
-
VBAでfunctionを利用しようとし...
-
インポート時のエラー「データ...
-
【VBA】ワークブックを開く時に...
-
マクロの「SaveAs」でエラーが...
-
WindowsでのPythonの挙動について
-
エクセルVBAでApplication.Sum...
-
VBAのエラーについて
-
VBA データ(特定値)のある最...
-
エクセル関数を教えてください
-
ActiveCell.FormulaR1C1の変数
-
On ErrorでエラーNoが0
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
String""から型'Double'への変...
-
VBAでfunctionを利用しようとし...
-
お助けください!VBAのファイル...
-
文字列内で括弧を使うには
-
実行時エラー 438 の解決策をお...
-
マクロで"#N/A"のエラー行を削...
-
On ErrorでエラーNoが0
-
エクセルVBA 「On Error GoTo...
-
VBA データ(特定値)のある最...
-
実行時エラー'-2147467259(8000...
-
【VBA】ワークブックを開く時に...
-
VBでSQL文のUPDATE構文を使った...
-
ACCESSで値を代入できないとは?
-
マクロの「SaveAs」でエラーが...
-
Excel vbaについての質問
-
インポート時のエラー「データ...
-
Filter関数を用いた結果、何も...
-
「実行時エラー '3167' レコー...
-
バッチファイルで、あるスクリ...
おすすめ情報