No.1ベストアンサー
- 回答日時:
ツールバーですか?「書式」も質問に入っているので
メニューバーの話と理解しました。
メニューバーから、ファイル(F)の保存・上書き保存・印刷、書式、ツール(T)のマクロを選べなくする1つの方法です。
Sub auto_open()
'
Dim tmpCBar As CommandBar
Dim tmpCMenu As CommandBarControl
Set tmpCBar = Application.CommandBars("Worksheet Menu Bar")
Set tmpCMenu = tmpCBar.Controls("ファイル(&F)")
With tmpCMenu
.Controls("上書き保存(&S)").Enabled = False
.Controls("名前を付けて保存(&A)...").Enabled = False
.Controls("印刷(&P)...").Enabled = False
End With
tmpCBar.Controls("書式(&O)").Enabled = False
Set tmpCMenu = tmpCBar.Controls("ツール(&T)")
With tmpCMenu
.Controls("マクロ(&M)").Enabled = False
End With
'
End Sub
Sub auto_close()
'
Application.CommandBars("Worksheet Menu Bar").Reset
'
End Sub
あと、VBAがこけるのを制御するときは、on error 文を
使います。
制御をどうしたいかによりますので、あとはヘルプを参照してください。
この回答への補足
VBAがこけ場合、exit sub をしたいのです。
どこでこけるかというと
acount(0) = Format(Cells(i + 1, 6).Value) * Format(Cells(i + 1, 7).Value)
acount(1) = acount(0) + acount(1) '原価*数量=部品原価
acount(2) = Format(Cells(i, 6).Value) * Format(Cells(i, 7).Value)
acount(3) = acount(2) + acount(3) '売上単価*数量=部品代
acount(4) = Format(Cells(i, 9).Value)
acount(5) = acount(4) + acount(5) '工賃(売上)
acount(6) = Format(Cells(i + 1, 9).Value)
acount(7) = acount(6) + acount(7) '工賃(原価)
というような計算式において、数値が入力されていないと
計算ができず、こけてしまいます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの条件付き書式を崩された...
-
excelで選択範囲の反転をしたい...
-
Excel 書式を関数で判断。
-
EXCEL 表の書式のみ変更不可(...
-
excel関数式の一部を太字にする
-
エクセルのピボットテーブルの...
-
エクセルで重複データを行ごと...
-
エクセルで、書式は変えずに連...
-
エクセル:一定以上の数値にな...
-
条件付き書式が選択できない?!
-
Excel 2007: 条件付き書式を一...
-
Excel 条件付書式で土日の左・...
-
文字の色を変える関数を探して...
-
条件付き書式 A1,B1,C1の何れ...
-
エクセルで2つのシートで重複し...
-
EXCEL IFの判定式の答...
-
年間カレンダーの休日を数える方法
-
Excel 条件付書式で二つの条件...
-
エクセルで列の中に同じ数字が...
-
EXCEL 条件付書式で1つの条件欄...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの条件付き書式を崩された...
-
excel関数式の一部を太字にする
-
Excel 書式を関数で判断。
-
EXCEL 表の書式のみ変更不可(...
-
excelで選択範囲の反転をしたい...
-
エクセルのピボットテーブルの...
-
エクセルで、書式は変えずに連...
-
Excel 条件付書式で土日の左・...
-
エクセル:一定以上の数値にな...
-
【マクロ】色のついている行を...
-
Excel 条件付書式で二つの条件...
-
条件付き書式(色変更)は、予...
-
条件付き書式が選択できない?!
-
エクセルで重複データを行ごと...
-
エクセルで1年前の日付になった...
-
VBAでシート書式の自動変換を作...
-
条件付き書式の条件に時刻を指...
-
Excel2003 の条件付き書式、「...
-
VBAで転記すると元のシートの条...
-
エクセルで2つのシートで重複し...
おすすめ情報