.Enableをボタンに対して設定したいが、ボタン名が日本語だからか設定ができません。

https://teratail.com/questions/93921
以前の質問で重ねてお聞きします。

実行ボタンを押下したら、内部の処理がすべて終わるまで、
ボタンの押下権限をなくしたいのですが、可能でしょうか。

VBA
1Sub 実行()
2    実行.Enabled = False
3    '入力された日付を指定のフォーマットに変更する。
4    Call FormatEditor
5    'Eセル、Fセルに文字列をセットする。
6    Call CellSetter
7    'Eセル、Fセルの文字色を初期化する。
8    Call ColorReset
9    'Eセル、Fセルから遅れのパラメータを持つデータの文字を赤字に変換する。
10    Call ColorSetting
11    'A1セルをセレクト状態にする。
12    Range("A1").Select
13    実行.Enabled = True
14End Sub

イメージはこんな感じかなあと思っているのですが、
EXCELのボタン名が日本語だからか、
上記のコードではできないようでした。

行動規範の内容に同意します

回答1件

ベストアンサー

そもそもですが

ExcelVBAはシングルスレッドでの実行しかできなかったと思います。
ボタンを押してマクロの処理中に、もう一度ボタンを押すということができないような気がするのですが。
※少なくとも自分の環境Windows7/Office2010ではできなさそうでした。

それはさておき

シート上のボタンを操作する、という意味でアドバイスさせていただきます。

どのようにボタンを作成されたのか記載がありませんが、マクロ名などから察するに、おそらくフォームコントロールのボタンを配置し、そのボタンに「実行」というマクロを割り付けたのではないかと推測します。
さらにそのボタンに表示する文字を「テキストの編集」で「実行」という表示に変えているのではないでしょうか。

上記であると仮定してアドバイスを進めますが、この場合、ボタンの名称はおそらく「実行」ではありません。
表示名（.Caption）は「実行」かもしれませんが、オブジェクト名(.Name)はこれとは別です。
なので実行.Enabled = Falseは関数に対してプロパティを指定しているような解釈となり、そんなものはないと怒られているのではないでしょうか？

試ににボタンのあるシートがアクティブな状態で、以下のマクロを実行してみてください。

Sub 確認()
    Dim sht As Worksheet
    Dim btn As Button
    'Dim i As Integer
    
    Set sht = Worksheets("sheet1")
    
    '■コメントアウトされているコードをコメント解除すると、ボタン名などをセルに出力できます。
    'i = 1
    'sht.Cells(1, i) = "Index："
    'sht.Cells(2, i) = "表示名："
    'sht.Cells(3, i) = "ボタン名："
    
    'Sheet1上のボタンをループ処理
    For Each btn In sht.Buttons
        'i = i + 1
        'sht.Cells(1, i) = btn.Index
        'sht.Cells(2, i) = btn.Caption
        'sht.Cells(3, i) = btn.Name
        MsgBox "Index：" & btn.Index & vbCr & _
               "表示名：" & btn.Caption & vbCr & _
               "ボタン名：" & btn.Name
    Next
End Sub

シート上にあるボタンのインデックス番号と表示名称、ボタンのオブジェクト名称がそれぞれ表示されると思います。

VBAの中では、
Worksheets("sheet1").Buttons(1).Caption = "hoge"
Worksheets("sheet1").Buttons("Button 2").Caption = "hoge"
といったようにインデックス番号、またはオブジェクト名を指定して目的のボタンを操作します。

ボタンの無効化

今回行いたいのはボタンの無効化ということですが、結論から言うと残念ながらできないようです。

・btn.Captionで表示名の変更
・btn.Visibleで表示/非表示の変更
など他のプロパティは問題なく変更できるのですが、
・.EnabledIで有効/無効の変更
は変更してもなぜか効果がでないようです。

代案

有効/無効の制御方法が見つからないので代替え案を考えてみます。
①.Visible=Falseとしてボタン自体を消してしまうことで物理的に押せなくする
表示/非表示のプロパティは普通に反映されるようですので、ボタンを消してしまうという方法です。
処理中はシート上から実行ボタンが消えてしまいますので、見た目が気に入らないなどの理由で却下ということもあるかもしれません。

②共通変数として実行中フラグを用意し、実行中にボタンが押されても処理を開始しないようにする。
例えば

Private blnJikko As Boolean     '実行中フラグ

Sub 実行()
    '既に実行中の場合は処理中止
    If blnJikko = True Then Exit Sub
    '処理開始時にフラグを立てる
    blnJikko = True
    
    '---ここから本来の実行処理（省略）---
    
    '処理を抜ける前にフラグを落とす
    blnJikko = True
End Sub

のように記述し、実行フラグが立っている状態で重ねて処理が起動されるのを防ぐ方法もあります。

参考になれば幸いです。

投稿2017/09/28 09:20

jawa

総合スコア3013

King_of_Flies

2017/09/28 09:25

②の案で実装してみようと思います。下記その通りです。どのようにボタンを作成されたのか記載がありませんが、マクロ名などから察するに、おそらくフォームコントロールのボタンを配置し、そのボタンに「実行」というマクロを割り付けたのではないかと推測します。さらにそのボタンに表示する文字を「テキストの編集」で「実行」という表示に変えているのではないでしょうか。上記であると仮定してアドバイスを進めますが、この場合、ボタンの名称はおそらく「実行」ではありません。今回マクロ実行でボタンの実際の名前を取得するようなことをしてますが、プロパティなどの参照で物理名を確かめる方法は存在しないのでしょうか。

jawa

2017/09/28 09:45 編集

＞プロパティなどの参照で物理名を確かめる方法は存在しないのでしょうか。 VBAからではなくシート上の書式設定などで、ということですよね。ボタンを右クリックなどで選択状態にしたときにシート左上(名前ボックス)に表示される名称がオブジェクト名です。ここからコピペもできるのでそのままButtonsの引数に貼り付ければ操作対象になると思います。

King_of_Flies

2017/09/28 23:34

右クリックしたときのホンの一瞬だけbutton1って見えるのですが、表示がすぐに実行に変わりますね。

King_of_Flies

2017/09/28 23:35

ゆえにコピペはできなそうです　。・