
エクセル2007で、ファイルを閉じるとその状態が全部保存されるように下記VBAを使ったファイルを作りました。
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Save
End Sub
ファイルのシート数は全部で6枚です。ファイルを開くとsheet5だけが表示します。マクロを有効にするとそのシートを非表示にしてsheet1からsheet4が表示するようにしてあります。
リボンは非表示にして操作できないようにしてあります。この状態でもファイルを開いている間に誰かがシート挿入タブ等でシートを挿入して閉じてしまうとその分も保存されてしまい、シートがどんどん増えてしまいます。ブックの保護をするとシート表示切り替えがうまくいかないみたいです。シート挿入タブを非表示にする方法はありますか。なければVBAでシート挿入禁止はどのように書くのでしょうか。
No.3
- 回答日時:
こういう問題を考えるときには、シート挿入のイベントがあるかどうかを調べると良かろう。
あるとその機会をとらえて、手を打てる。本件は「ThisWorkbook」のイベントに、たまたま下記があるので、下記を入れておくと、質問の要求にこたえられるのではないか。
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Application.DisplayAlerts = False
MsgBox "シート挿入禁止"
Sh.Delete
Application.DisplayAlerts = True
End Sub
私には初めてのイベント。こういうのもあるんですね。
かわいらしいメッセージボックスが出てきました。参考になりありがとうございました。
No.2
- 回答日時:
EXCEL 2003 の場合
ツール → オプション
のオプションダイアログに
シート見出しというチェックボックスが有ります
ActiveWindow.DisplayWorkbookTabs = true
エクセル2007の場合はシート見出しを非表示にするチェックボックスは見当たりませんでした。
教えていただいたtrueをfalseで試してみました。
見出しがないのでシートの切り替えがうまくいくか不安でしたがうまくいったのでありがたいです。切り替えはボタンにマクロの登録でやろうと思います。ありがとうございました。
No.1
- 回答日時:
>ファイルを開くとsheet5だけが表示します。
マクロを有効にするとそのシートを非表示にしてsheet1からsheet4が表示するようにしてあります。このマクロの前後でブックの保護解除と設定が近道かと思います。
ActiveWorkbook.Unprotect’ここでブック保護解除
お使いのシート表示のコード
ActiveWorkbook.Protect’ここでブック保護設定
そうですよね、最も基本ができていませんでした。他のマクロを実行させるときはシート保護の解除と設定を入れていたのに。ブックの保護は初めてだったので気が付きませんでした。ありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelマクロのエラーを解決した...
-
XL:BeforeDoubleClickが動かない
-
ExcelのVBAのマクロで他のシー...
-
excelのマクロで該当処理できな...
-
VBA 指定した回数分、別シート...
-
エクセルVBAで。
-
Excel VBA リンク先をシート...
-
実行時エラー'1004': WorkSheet...
-
VBA 検索して一致したセル...
-
実行時エラー1004「Select メソ...
-
エクセルVBA Ifでシート名が合...
-
特定の文字を含むシートだけマ...
-
EXCELVBAを使ってシートを一定...
-
別のシートを参照して計算する方法
-
ExcelVBA シート名を複数セルか...
-
ブック名、シート名を他のモジ...
-
【Excel VBA】Worksheets().Act...
-
【VBA】色のついたシート名を取得
-
Excel VBA で自然対数の関数Ln...
-
ユーザーフォームに入力したデ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelマクロのエラーを解決した...
-
excelのマクロで該当処理できな...
-
特定の文字を含むシートだけマ...
-
実行時エラー'1004': WorkSheet...
-
ユーザーフォームに入力したデ...
-
【ExcelVBA】全シートのセルの...
-
エクセルVBA Ifでシート名が合...
-
実行時エラー1004「Select メソ...
-
VBA 存在しないシートを選...
-
エクセルで通し番号を入れてチ...
-
VBA 検索して一致したセル...
-
XL:BeforeDoubleClickが動かない
-
VBA 指定した回数分、別シート...
-
VBAマクロでシートコピーした新...
-
シートが保護されている状態で...
-
ブック名、シート名を他のモジ...
-
【VBA】全ての複数シートから指...
-
別のシートから値を取得するとき
-
ExcelのVBAのマクロで他のシー...
-
Excel チェックボックスにチェ...
おすすめ情報