[[20130919133916]]　『チェックボックスを利用して編集をon/offしたい』（栗吉）　ページの最後に飛ぶ

『チェックボックスを利用して編集をon/offしたい』（栗吉）

sheet1,sheet2からsheet3へ転記するマクロを使用しているのですが、

sheet3を複数で使用のため、編集できないようにロックをかけたいのですが、

チェックボックスを利用して、チェックを入れたら編集ができ、

はずしたら編集ができないというような、チェックボックスを作成したいのですが、

やり方を教えて下さい。お願いします。

Excel2010　WindowsXP

 状況がよく分からないので教えてください。
 Sheet1及びSheet2のデータを、Sheet3に転記する。
 Sheet3は「誰or何」が複数で「どのように」使用している？

 「誰or何」が編集できないように「どのような」ロック？
 「どこに」チェックボックスを置いて、「いつ」チェックを入れる？
 （稲葉）

 シートの保護では駄目なんでしょうか？
 チェックボックスをクリックするのと、保護を解除するのとではそう手間は変わらない気がするのですが…
 （コナミ）

説明不足ですみません。
sheet1,sheet2は複数の人が日報を入力して、それをまとめるためにsheet3に転記するマクロを作成してあります。

他の人が作成したのをみたのですが、保護がかかっていて詳しくはみれないのです。
ただその人のは、多分そのsheet全体に保護をかけて、それをチェックボックスで
編集できる、出来ないをやってるみたいなのです。

チェックボックスは、sheet3に設定して、sheet3全体を編集できる、できないというように簡単にしたいのです。

(栗吉)

 それならなおさらシートの保護でいいのではないですか？
 チェックボックス使う必要がないような・・・

 どうしてもチェックボックスじゃなければならない理由は何ですか？

 （稲葉）

チェックボックスがあればクリック一つで、編集できる・できないが出来ると思ったので。

何度も編集したい場合、シートの保護は解除してまた全体を指定して、ロックをかけてと手間がかかりませんか？　すみませんよくわかってないかもです。
(栗吉)

 他のマクロとの競合や、やり方の良し悪しは考えず、とりあえずサンプルです。
 (Mook)

 Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
        ActiveSheet.Protect Password:="open marron"
    Else
        ActiveSheet.Unprotect Password:="open marron"
    End If
 End Sub

 データを転記する場所として、繰り返し編集が必要な作りの方が問題だと思いますが・・・
 それにチェックボックス付けたらだれでも編集できちゃいますよね？
 ならロックの意味がないと思うのですが。

 開け栗！しゃれがきいてますね！
 （稲葉）

 マロン、私もウケました。

 で、稲葉さんの書かれているチェックボックスだと誰でも…
 というのは私も引っかかっていて。
 一度シートの保護について検索して調べてみた方がいいと思います。
 多分、思っているよりニーズに合っていますよ。

 それから、書き込むときは編集ではなくコメント欄へ書いて下さい。
 (コナミ)

ありがとうございました。

(栗吉)

コメント返信：

[ 一覧(最新更新順) ]

[[20130919133916]] 『チェックボックスを利用して編集をon/offしたい』（栗吉） ページの最後に飛ぶ

[[20130919133916]]　『チェックボックスを利用して編集をon/offしたい』（栗吉）　ページの最後に飛ぶ