[[20050615120953]]　『保護をした後にセルの塗りつぶしの色を変えたい』（くどう）　ページの最後に飛ぶ

『保護をした後にセルの塗りつぶしの色を変えたい』（くどう）

[シートの保護をした後にセルの塗りつぶしの色を変えたいのですが可能でしょうか]

　始めまして。
会社で使用しているデータについて教えて頂きたい事があります。
サーバーに保管してらるデータを見る場合、ある一部のパソコンから以外は読取専用になります。
これだとデータの更新が他のパソコンからはできないので、全てのパソコンからアクセス出きる様にしました。
ただ、全てのデータが必要なではないので、一部を保護しました。ところがデータの変更は出来るのですが、セルの塗りつぶしが出来なくなりました。
以下に今の状況までの手順を書きますので、その上でセルの塗りつぶしが出来るのかご指導頂けないでしょうか。
宜しくお願いします。

1、変更出きる様にしたいセルを選択し、ツールバーの「書式」からセルを選択。
　　保護を選択してロックを外しました。

2、ツールバーの「ツール」から保護を選択し保護をかけました。

3、1で選択したセル以外は加工出来るようになりましたが、セルの塗りつぶしが出来ません。

宜しくお願いします。

 こんにちは
 シートの保護をするときに、セルの書式設定にチェックを入れてください。
　　　　　　　　　　　　　　　　　　　　　(oni)

早速のご返事ありがとうございます。
理解力が低く申し訳ありませんが、
シートの保護の時の書式設定ということですが、
どこにチェックを入れたら良いのでしょうか。
（工藤）

 oniさんこんにちは(*^^*)
 エクセル2000にはチェック項目がないようです。
 2003だとありました。
 (代奈)

 代奈さぁーん(^_^)お久しぶりー　お帰りなさーい
 ちょっと胸騒ぎがして戻ったら、やっぱり2000
 でしたか？2000だと、保護してあるシートに色を付けるのは
 無理のようです。
 (oni)

皆様ありがとうございます。
2000では無理ですか・・・・。
仕方がないです。別の方法で管理していきます。
ありがとうございました。

 こんばんは
 くどうさんもうご覧になってないかもしれませんが、
 無理矢理ですが、マクロで
 シート保護の解除＞ダブルクリックでセルに色つけ＞シートの保護
 なんてやってみました。
 ご希望のこととは違うかもしれませんが、ご参考まで
 シートモジュールに貼り付けてください。
 ダブルクリックでセルに色が付きます。色の付いているセルは色を消します。

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 ActiveSheet.Unprotect
 If Target.Interior.ColorIndex = xlColorIndexNone Then
        Target.Interior.ColorIndex = 6　　　　'←色を変える場合はこの数字を変える
    ElseIf Target.Interior.ColorIndex <> xlColorIndexNone Then
        Target.Interior.ColorIndex = xlColorIndexNone
    End If
 ActiveSheet.Protect
End Sub

 尚、マクロをここに書くのは初めてで、何か不具合があるかもしれません。
 諸先輩方の鋭いつっこみ御願いします。　　　　　　　　　　(oni)

 oniさん、おはようございます。
先輩でもありませんが、ちょっと軽く突っ込みです。(^^;
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Me.Protect , , , , True 'UserInterFaceOnlyだけをTrueにして
With Target.Interior 'Withでくくって
    If .ColorIndex = xlNone Then '色が付いていなかったら色をつけて
        .ColorIndex = 6        '←色を変える場合はこの数字を変える
    Else 'それ以外だから色が付いて（る？）たら、色をけす
        .ColorIndex = xlNone
    End If
End With
End Sub
（SoulMan）

 こんばんは
 早朝からSoulManさんありがとうございます。 朝からお仕事で今戻ったので返事
遅くなりました。m(_ _)m 
ご指導ありがとうございます。
Me 使い方
UserInterFaceOnly　ヘルプで見たときは、理解できなかった内容
With　知ってても使いこなせない
ご丁寧にコメントを入れて頂き、いずれもすっきりと理解できました。
今後もよろしく御願いします。

コメント返信：

[ 一覧(最新更新順) ]

[[20050615120953]] 『保護をした後にセルの塗りつぶしの色を変えたい』（くどう） ページの最後に飛ぶ

[[20050615120953]]　『保護をした後にセルの塗りつぶしの色を変えたい』（くどう）　ページの最後に飛ぶ