Excel VBA テキストボックスの入力を使用不可にした場合

質問

Excel VBA テキストボックスの入力のプロパティのEnabledをFalseにする使用不可になるのですが、グレーで薄くなってしまい見にくいのですが、何か良い方法はないでしょうか？
黒文字にしたいのですが・・・。
よろしくお願い致します。

回答No.2

dsuekichi · ベストアンサー

> コンパイルエラーがでます。
> Label1.Value =

ラベルの文字列を指定するプロパティは「Value」ではなく「Caption」ですよ。

補足

そうでした。(^^;;
ご指摘ありがとうございます。

回答No.6

sgwjn

別にコントロールを重ねて配置しなくても、ラベルのプロパティ[SpecialEffect]を2-fmSpacialEffectSunkenに設定すれば、見た目TextBoxで操作不可になりませんか？

ラベルには、ClickイベントもMouseMoveイベントも設定できるはずですし。

補足

はい、ありがとうございます。
ラベルですることにしました。

回答No.5

dsuekichi

ANo.4です。

解釈を間違ったかも・・・

> ユーザーフォームのプロパティのCaptionなしは、ブランクと言うことですか？

ユーザフォームの上に、新たに「フレーム」（Frameコントロール）を配置してください。
で、フレームコントロールに対して、設定を行ってください。

お礼

初心者の私にいろいろありがとうございました。
お返事遅くなりましたが、結局ラベルですることにしました。
ありがとうございました。

補足

ありがとうございます。
新しいフォームを重ねるということですね。

回答No.4

dsuekichi

> ユーザーフォームのプロパティのCaptionなしは、ブランクと言うことですか？
そうです。

> BorderStyleのを1にすることですか？
「BorderStyle プロパティ」と「SpecialEffect プロパティ」の両方を０にすると、枠が消えると思います。
（Excel2003で確認）

＃見た目の問題なので、枠が見えても良いなら、残していても構いません。

補足

やってみました。テキストボックスはうまくいきましたが、
MOVEMOUSEとボタンがクリックできませんでした。ので無理みたいです。ありがとうございます。

回答No.3

dsuekichi

ANo.2です。

> EnabledをFalseにする使用不可になるのですが、グレーで薄くなってしまい見にくいのですが

裏技っぽい方法ですが・・・

テキストボックスを、『Captionなし、枠無しの指定をしたフレーム』の上に配置して、
フレームのEnabledをFalseにする。

と言う方法があります。

補足

『Captionなし、枠無しの指定をしたフレーム』と言うのは、ユーザーフォームのプロパティのCaptionなしは、ブランクと言うことですか？
BorderStyleのを1にすることですか？

回答No.1

pbforce

文字を入れられたくないのなら、ラベルを使用するのはダメでしょうか？

補足

ラベルでもかまいませんが、コンパイルエラーがでます。
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label1.Value = "リスクを見られる場合は、こちらのボタン押してください。"
End Sub
たぶん、MouseMoveにしているからと思いますがここははずしたくないので・・・。