Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6556 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【44557】ブックを保護せずシートを削除させない けんけん 06/11/21(火) 19:51 質問[未読]
【44579】Re:ブックを保護せずシートを削除させない 飛ばない豚 06/11/22(水) 11:09 回答[未読]
【44588】Re:ブックを保護せずシートを削除させない けんけん 06/11/22(水) 17:26 お礼[未読]
【44557】ブックを保護せずシートを削除させない
質問  けんけん  - 06/11/21(火) 19:51 -
引用なし
パスワード
   いつもお世話になっております。

初歩的な質問で大変恐縮なのですが、
シートの追加を許可しつつ、既存のシートの削除は
許可させない方法というのはあるのでしょうか。

ブックやシートのイベントを見てみても該当するようなものはなさそうですし、
もし何か方法をご存知の方がいらっしゃいましたら
ご教授願えませんでしょうか。

よろしくお願いいたします。
【44579】Re:ブックを保護せずシートを削除させない
回答  飛ばない豚  - 06/11/22(水) 11:09 -
引用なし
パスワード
   ▼けんけん さん：
とりあえず、シートの削除のメニューを使用禁止にしてみてはいかがでしょう。


[編集(E)]-[シートの削除(L)]の使用禁止
Application.CommandBars("Worksheet Menu Bar") _
　　　　　 .Controls("編集(E)") _
　　　　　 .Controls("シートの削除(L)") _
　　　　　 .Enabled = FALSE

シート名タブでの右クリック-->削除の使用禁止
Application.CommandBars("Ply") _
　　　　　 .Controls(3) _
　　　　　 .Enabled = FALSE

これでシートの削除は防げるかと思います（たぶん）


これらは一度設定すると、他のBookを開いたときも
使えなくなるので、該当のBook使用終了時には、
.Enabled = TRUE として戻すようにして下さい。


参考までに(^･ω･^)
【44588】Re:ブックを保護せずシートを削除させない
お礼  けんけん  - 06/11/22(水) 17:26 -
引用なし
パスワード
   ご返信ありがとうございます！
教えて頂いた方法で実現できそうです。
どうもありがとうございました！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6556 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free