[[20060131122124]]　『セルの保護をかけたときのメッセージについて』（evian) 　ページの最後に飛ぶ

『セルの保護をかけたときのメッセージについて』（evian)

よろしくおねがいいたします。

 セルの保護をかけたときにでるメッセージボックスに追加のメッセージを加えることってできますか？

 「変更しようとしているセルまたはグラフ は保護されているため、
 　読み取り専用となっています…」でしょうか。
 おそらく、無理だと思います（あきお）
 でも、参考になりそうな情報がありましたので、よろしければ、ドゾ
 ワークシートの保護を設定・解除する - Excel VBA モーグ即効テクニック集
http://www.moug.net/tech/exvba/0040004.htm

(あきお様）
どうもありがとうございました。参考情報もありがとうございました。

 「変更しようとしているセルまたはグラフ は保護されているため、
 　読み取り専用となっています」
 はい。このメッセージのことです。
 このメッセージに、追加でメッセージを入れたかったのですが、やっぱり
 無理みたいですね。どうもありがとうございました。

 近そうなコトは、できそうです（あきお）
 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If ActiveSheet.ProtectContents = False Or _
        Target.Locked = False Then
        Exit Sub
    End If

    Dim Msg, Style, Title, Response
    Msg = "読み取り専用のセルにカーソルが移動しました" & Chr(13)
    Msg = Msg & "このセルへの入力はできません" & Chr(13) & Chr(13)
    Msg = Msg & "（入力可能なセルに移動してください）"
    Style = vbOKOnly + vbExclamation
    Title = "入力できません"
    Response = MsgBox(Msg, Style, Title)
 End Sub

あきお様

 ありがとうございます。
 なんですが、全然詳しくないのでよくわからないのですが、
 上記はマクロとして利用するんでしょうか？
 どうしたら上記を使う事ができるのかおしえてください。

 どうぞよろしくおねがいいたします。m(__)m（evian)

 こちらをご確認くださいませ～（あきお）
 エクセル・マイスター(9)　Worksheet_selectionchange
https://www.excel.studio-kazu.jp/mag2/backnumber/mm20040727.txt

 ありがとうございました。
 おしえてくださいましたマクロを
 ワークシートselectionChangeでコピーしました。
 今、ワークシートのＣ列の5行目から25行目まで
 保護がかかってるんですが、その場所に入力をしようと思っても
 前と同じエラーメッセージがでます。
 なにか違う操作をしてるのでしょうか・・？

 保護されたセルを選択したときに、
 Worksheet_SelectionChange が自動的に呼ばれるはずなのですが、
 だめでしょうか。。う～ん。　
 マクロを貼り付けたシートは該当シートですよねん。。う～ん。
 コードを全部コピペしてますよね。（マクロ名は変えてないですよね）
 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  （略）
 End Sub
 すみません、なぜかわかりません。。（あきお）

すみません。確認させてください。

マクロ名ってのはどの部分の事ですか？

保護っていうのは、ツール⇒保護でいいんですよね？
evian

あきおさま：

一度保存して、閉じてからやってみたら今度はできました。
すごい大感激です。ありがとうございました！

 よかったです～♪
 マクロ名は、Worksheet_SelectionChange です
 「保護されたセル」は、セルの書式設定→保護で、ロック（デフォルト）で、
 実行時のシートの保護は、ツール→保護→シートの保護　です（あきお）

いろいろお世話になりました。ありがとうございました。
また教えてください。m(__)m　evian

コメント返信：

[ 一覧(最新更新順) ]

[[20060131122124]] 『セルの保護をかけたときのメッセージについて』（evian) ページの最後に飛ぶ

[[20060131122124]]　『セルの保護をかけたときのメッセージについて』（evian) 　ページの最後に飛ぶ