上書き保存しかできないようにできますでしょうか

質問

何度もすみません、こちらで質問させていただいた者です。
http://okwave.jp/qa3987988.html

ブックを保存するときに、絶対にファイル名を変えられないようにできますでしょうか。

上書き保存はできるけれども、名前を変えて保存はできないようなイメージです。

ブックを上書き保存するSaveメソッドを使って保存してからファイルを閉じるような
マクロを実行させる感じかとも思ったのですが、ファイルメニューから
「名前を変えて保存」もできないようにしたいのです。

そんなことはできますでしょうか。

回答No.1

imogasi

知識も不十分、１からの説明も大変ですが、下記色々やってみました。
test05（）のコードで、メニューが見えなくなり、ResetMenuBar()で復活すると思います。ブックをＯｐｅｎするイベントででも入れるのはどうでしょう。
最後に復活しておく。これとてもＶＢＡを知っている人は破ることが出来るが。
現状依存型のコードですので、良く勉強して使ってください（Ｉｎｄｅｘ値が動くことなど）
ーー
Sub test03()
Dim b As menubar
For i = 1 To 10
MsgBox Application.MenuBars(xlWorksheet).Menus(i).Caption
Next i
End Sub
Sub test04()
Dim b As menubar
For i = 1 To 10
Cells(i, "C") = i
Cells(i, "D") = Application.MenuBars(xlWorksheet).Menus(1).MenuItems(i).Caption
Next i
End Sub
Sub test05()
Dim b As menubar

MsgBox Application.MenuBars(xlWorksheet).Menus(1).MenuItems(6).Caption
Application.MenuBars(xlWorksheet).Menus(1).MenuItems(6).Delete
End Sub
Sub ResetMenuBar()

Application.CommandBars("Worksheet Menu Bar").Reset

End Sub

お礼

コメントありがとうございます。
すみません、実行してみたのですが、何が起きているのかよくわかりませんでした。

もう少し勉強させていただきます。
どうもありがとうございましたm(_ _)m。