
EnabledプロパティにFalseを設定した
コマンドバー、コマンドバーコントロールは、使用できない状態になると思いますが、
その際、表示を"標準"か"改ページ プレビュー"を変えることで
使用不可になったり、ならなかったりすることはありますでしょうか。
知人からもらったマクロを起動したところ、
"挿入"を使用不可にしたいのですが、"標準"表示では使用可能となり、
"改ページ プレビュー"表示では、コマンド通り使用不可になっています。
現在は、表示を切り替えて使用しているのですが、
何かご存知の方がいらしたら、ご教授ください。
No.1ベストアンサー
- 回答日時:
こんにちは。
エクセルのワークシート上で右クリックしたときに出てくる、コマンドバーの中の"挿入(&I)..."のことでしょうか?
そういう前提で回答します。
おそらく、
Application.CommandBars("Cell").Controls("挿入(&I)...").Enabled = False
のようにして使用不可にしていると思いますが、標準の時と改ページプレビューの時では右クリックで出てくるコマンドバーが違うので、どちらかの"挿入(&I)..."だけしか使用不可にならないのでしょう。
コマンドバーをIndexで指定するか、すべてのコマンドバーをループして、名前で判断するようにすれば良いと思いますが、Indexはエクセルのヴァージョンによって違うと思うので、ループさせるのが良いと思います。
Sub Test()
Dim cb As CommandBar
For Each cb In Application.CommandBars
If cb.Name = "Cell" Then
cb.Controls("挿入(&I)...").Enabled = False
End If
Next
End Sub
こうすれば、標準でも改ページプレビューでも"挿入"を使用不可にできると思います。
返事が遅くなってすみません。
回答ありがとうございます。
ご指摘の通りループさせずに一回だけFalse設定にしていました。
右クリックで出てくるコマンドバーが2種類あるのは知りませんでした。
メニュー内容が標準時と改ページプレビューで違うとは思ってはいましたが。。。
やりたいこともでき、しかも、
コマンドバーが2種類あったということまで分かり、
とてもすっきりしました。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Teratermマクロの戻り値の取得失敗
-
データリーダーからのデータ読...
-
system関数のエラー検出
-
Visual C++からftpを使う
-
ネットワークフォルダの中身を...
-
コマンドでweb接続を確認する方...
-
Windowsのバッチファイルでcall...
-
linux duコマンドで困っています。
-
PCに保存していた写真を見られ...
-
拡張子をつくる
-
リカバリーディスクのコピーの...
-
<a href="file:///フォルダ名/...
-
Outlookで添付ファイルの貼り付...
-
EPSON emqファイルをPrint CDで
-
Git bashが開かなくなってしま...
-
Excelで外部のファイルの場所を...
-
メルカリを退会して再登録した...
-
OpenFileDialogを使った後にも...
-
telnetでサーバー上のファイル...
-
ExcelのVBProjectがExcelを開く...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Teratermマクロの戻り値の取得失敗
-
Visual C++からftpを使う
-
system関数のエラー検出
-
ネットワークフォルダの中身を...
-
テキストボックスのフォーカス...
-
ユーザーフォーム内のテキスト...
-
バッチファイル pause時の文字...
-
telnetで接続した先のコマンド...
-
コマンドプロンプトで印刷実行
-
Windowsのバッチファイルでcall...
-
EXCELで右クリックメニューの追加
-
シリアル通信でのread関数の戻り値
-
データリーダーからのデータ読...
-
バッチ(Windows2000)での解析エ...
-
FlashROMにデータを書き込むに...
-
ぱそこん、スマホのos、アプリ...
-
VBAチェックボックスで有効無効...
-
VBA チェックボックスの設定に...
-
コマンドボタンテキストの改行
-
SDカードの初期化について
おすすめ情報