[[20190515233000]]　『テキストボックスの編集制限』（MI）　ページの最後に飛ぶ

『テキストボックスの編集制限』（MI）

テキストボックスに文字を入れ、その内容を編集できないようにロックをかけたいと思っています。（上書き禁止にしたい）
ただし、そのテキストボックス内の文字列全体をコピー（Ctrl+A）出来るようにはしておきたいのですが、どのようにすればよいでしょうか。
フォームのテキストボックスも試してみましたが、編集不可（Enabledをfalse）にしてしまうと、コピーもできなくなってしまいました・・・。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

ラベルはNGですか？
（Sheet無限増殖） 2019/05/16(木) 01:26

EnabledプロパティはTrueのままにして、LockedプロパティをTrueにしてみてください。
（???） 2019/05/16(木) 10:10

Lockedプロパティは初めからtureになっていました。
また、ラベルの挿入も行ってみましたが、希望の状況には残念ながら至りませんでした。

上手いやり方はないのかもしれませんね。

ありがとうございました。
（MI） 2019/05/22(水) 21:39

ActiveXコントロールのテキストボックスをシートに貼っているのでしょうか？

ユーザーフォームに貼った場合は、Lockedプロパティが正しく機能するのですが、シートに貼ると駄目のようです。元々、シート用に作られたコントロールではないためですかね。残念。
（???） 2019/05/23(木) 09:55

ありがとうございます

おっしゃるとおり、ActiveXコントロールのテキストボックスをシートに貼っています。
なるほど、機能しないのですね。

ちなみに、通常のテキストボックスで希望の動作を行うことは、やはり出来ないのでしょうか。
（MI ） 2019/05/24(金) 08:50

フォームコントロールの方は、ロックする（シート保護する）と、文字列もサイズ等の変更も一切効かなくなっちゃいます。編集できないけど選択してコピーだけできる、という器用な使い方は想定していないのでしょう。

なので、例えばボタンコントロールを置いて、押すとテキストボックスの文字列をクリップボードにコピーするようなマクロを書くとか、コントロールのプロパティ以外の解決策を取るのが良いのではないでしょうか。

そもそもが、セルへ入力するのがExcelなので、コントロールを使って入力させるのは、使いにくいだけではないかと思いますよ。セルへの入力も、選択してコピーするのは編集扱いのようなので、ロックしていてもコピーできるようにするなら、マクロ実行になると思いますが。
（???） 2019/05/24(金) 09:17

ちょっと試してみたのですが、ActiveXのTextBoxをシートに貼っておいて、以下をシートモジュールに貼ってみてください。編集するとすぐ元に戻す、という感じです。範囲選択してコピーは可能。これで良かったりしますかね？

 Dim cOrg As String

 Private Sub TextBox1_Change()
    TextBox1.Text = cOrg
 End Sub

 Private Sub TextBox1_GotFocus()
    cOrg = TextBox1.Text
 End Sub
（???） 2019/05/24(金) 09:40

ありがとうございます！！！
週明けになりますが、試してみたいと思います！！！
（MI） 2019/05/25(土) 00:08

下記のような感じでどうでしょうか。

 Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Select Case KeyCode
    Case vbKeyA, vbKeyC
        If Shift = 2 Then Exit Sub
    Case vbKeyLeft, vbKeyRight
         Exit Sub
    End Select
    KeyCode = 0
 End Sub

Ctrl+C と Ctrl+A および左右キーの入力は許可して、
それ以外のキー入力はなかったことにします。

（hatena） 2019/05/25(土) 01:41

Ctrl+C と Ctrl+A および左右キーの入力は許可して、それ以外のキー入力はなかったことにします。

↑ありがとうございます！やりたかったのはこれです！
完璧です！助かりました！！！
（MI） 2019/05/30(木) 19:00

コメント返信：

[ 一覧(最新更新順) ]

[[20190515233000]] 『テキストボックスの編集制限』（MI） ページの最後に飛ぶ

[[20190515233000]]　『テキストボックスの編集制限』（MI）　ページの最後に飛ぶ