word2003で、常にデザインモードオフにしようとしています。
マクロを有効にしないで開くと、デザインモードで開かれてしまい、
チェックボックスが押せません。
VBEにて、Normalの標準モジュールに以下のコードを記述しましたが、
セキュリティレベルを最高状態でファイルを開いても実行され、
デザインモードのボタンが押せることに気づきました。
Sub AutoOpen()
Application.CommandBars.FindControl(ID:=1605).Execute
End Sub
どなたか、現状がデザインモードTrueなのかFalseなのかを検知するコードを知りませんでしょうか?
よろしくお願いします。
No.1ベストアンサー
- 回答日時:
>現状がデザインモードTrueなのかFalseなのかを検知する...
Office.CommandBarButtonオブジェクトのStateプロパティで判断できます。
msoButtonUp、msoButtonDown、msoButtonMixed の定数があります。
ヘルプ参照してください。(値の取得のみ可能)
目的のオブジェクトがどんなプロパティを持っているか調べるには、
Dim x As Object
Set x = Application.CommandBars.FindControl(ID:=1605)
Stop
'ここで[ローカルウィンドウ]の x を展開して探ってみる。
Set x = Nothing
こんな感じで調べると手っ取り早いです。
それに一旦Object型に格納して[ローカルウィンドウ]をチェックすると
型がCommandBarButtonである事もわかります。
Dim c As CommandBarButton
Set c = Application.CommandBars.FindControl(ID:=1605)
としてCommandBarButton型にちゃんと格納してあげると
c.
の後で[入力候補]にStateが表示されるようになります。
Dim c As CommandBarButton
Set c = Application.CommandBars.FindControl(ID:=1605)
If c.State = msoButtonDown Then
c.Execute
End If
Set c = Nothing
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Visual Basic(VBA) InputBoxでキャンセルボタンを押したらファイル自体を閉じたい 3 2022/07/23 17:52
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
- Excel(エクセル) Excelのマクロコードについて教えてください。 1 2022/03/27 10:47
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2022/03/31 12:46
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/10 14:24
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 12:30
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ミンサガ モードの切り替え方法
-
吉宗の4号機について質問です。...
-
ドライブモード?というのをAnd...
-
IC-2720のメモリー登録
-
pc版シージをしているのですが...
-
ps4ってスタンバイモードで一定...
-
ウルトラマン・ファイティング...
-
Minecraft 統合版でこのPcだと...
-
【Access2000】テーブルリンク...
-
PS5ライダーズリパブリックはオ...
-
ポケモンコロシアムのホウオウ...
-
炊飯器って早炊きと、普通モー...
-
DEAD OR ALIVE Xtreme 2 で
-
Excel2003でデザインモードを終...
-
Accessを開くと「排他モードじ...
-
Outlookで、文途中から字を挿入...
-
空気清浄機の静音運転とおやす...
-
DSライト初期化について
-
楽天viberはpovoの低速モードで...
-
ACCESS2000にてIME入力モードが...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ミンサガ モードの切り替え方法
-
Access フォームのテキストボ...
-
ドライブモード?というのをAnd...
-
Accessを開くと「排他モードじ...
-
pc版シージをしているのですが...
-
Excelでチェックボックスにチェ...
-
吉宗の4号機について質問です。...
-
炊飯器って早炊きと、普通モー...
-
ps4ってスタンバイモードで一定...
-
PS5ライダーズリパブリックはオ...
-
シークレットモード表示を画面...
-
なぜ sftp には ASCIIとBINARY...
-
Google Earthが表示されないん...
-
PS5のFF7 reverseの設定でグラ...
-
Excel2003でデザインモードを終...
-
空気清浄機の静音運転とおやす...
-
IC-2720のメモリー登録
-
日立のテレビ23LCD-1のホテルモ...
-
エクセルVBAのデザインモードと...
-
共有モードと排他モードとどち...
おすすめ情報