VBA 共有保護の解除

質問

会社PC　XP　Excel2003　です。

ProtectSharing　で共有保護を掛けたら解除出来なくなりました。

UnprotectSharing　を記述してロードするのに、解除されません。
（　UnprotectSharing　実行してエラーにはならないので記述エラーではない？・・・　）
Helpも確認、サイト（本サイト含め）確認しましたが不明です。
どなたかご存知でしょうか？

質問文は文字数を制限されるとの事ですので、コード必要であれば補足致します。

回答No.1

Wendy02 · ベストアンサー

こんばんは。

たぶん、検索すれば出てくるような気がしますが、有名な海外の掲示板でも、あれこれやっていましたので、以下が正しいのか分りませんが、試してみてください。

UnprotectSharing 自体は正しいです。なお、以下は、ActiveWorkbook にしてありますので、適当に直してください。

Sub BookSharingUnProtecting()
'パスワード
Const PSW As String = "00"
　With ActiveWorkbook
　 .UnprotectSharing PSW
　Application.DisplayAlerts = False
　 .ExclusiveAccess
　Application.DisplayAlerts = True
　End With
End Sub

お礼

Wendy02 さん　お世話になっています。

＞.ExclusiveAccess

この１行が効きました。
無事に解除が出来ます。

ちなみに "00" は　Filename になるようです。

有難う御座いました。