マクロでファイルの共有設定をしたい

Question

エクセルのマクロでファイルの共有設定をしたい
下記のマクロで「ActiveWorkbook.Close」を設定をすると共有設定がされません
設定しなければ共有設定がされます。
何が原因でこのような処理が行われるのかが不明です。
原因がわかる方が居ましたら教えてください。
Sub ファイル()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveWorkbook.ProtectSharing '共有設定
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

Comments

[radames1000]

こちらでは特に問題なく共有設定がされるのですが、
どのようなファイルで実行されてもうまくいきませんか？

[ttyp03]

Officeのバージョンはもしかしたら365ですか？

Answer 1

再現できましたので対応版を記載しておきます

Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.FullName, AccessMode:=xlShared
Application.DisplayAlerts = True
ActiveWorkbook.Close SaveChanges:=False

追記

ActiveWorkbook.ProtectSharing '共有設定 

これだけで共有設定とセーブ再立ち上げが行われます
なので

ActiveWorkbook.Save

こちらは不要

で問題がこちらを実行すると(セーブキャンセルしても)内容を共有前に上書きします。

ActiveWorkbook.Close 

なので方法を変えて

ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.FullName, AccessMode:=xlShared
ActiveWorkbook.Close 

ポイントはFilenameで同じ名前で上書き保存することで
Excel上の展開しているファイルと別と認識させています。
Closeの場合はすでにセーブ済みなのでなにもなく終了されます。

Comments

[hara9393]

すごいっす！
どこで聞いても解決しなかったので！
まさに！神！
本当にありがとうございました。