- ベストアンサー
excelのセルの保護をした後で・・・
nishi6の回答
- nishi6
- ベストアンサー率67% (869/1280)
>例えば一色しか指定出来ないようにする方法はないでしょうか '==================================最初の回答をアレンジ=== 'シートの保護、非保護にかかわらず塗りつぶし可能にする Public Sub PatternSet() With ActiveSheet If .ProtectContents Then .Unprotect PatternSetSub 'パターン色を指定する .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True Else PatternSetSub 'パターン色を指定する End If End With End Sub 'パターン色を指定する(Sub)<赤=3のみ使える例> 'ColorIndexの意味はVBE画面のHELPで、ColorIndex→ColorIndexプロパティで分かるでしょう Public Sub PatternSetSub() Dim curPattern As Integer '現在のパターン色 With ActiveCell.Interior curPattern = .ColorIndex '現在の色を待避 Application.Dialogs(xlDialogPatterns).Show '色を指定する '指定色か色なし以外は再度入力する。 While Not (.ColorIndex = 3 Or .ColorIndex = xlNone) MsgBox "赤しか使えません。", vbOKOnly + vbExclamation, "禁止の色" .ColorIndex = curPattern '元の色に戻す Application.Dialogs(xlDialogPatterns).Show '再度設定する Wend End With End Sub '==================================================別法=== '1色しか使えないならダイアログを出す必要はないかも '下記は、赤色を塗るマクロと色を消すマクロ。セットで使います。 Public Sub 色を塗る() With ActiveSheet If .ProtectContents Then .Unprotect Selection.Interior.ColorIndex = 3 .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True Else ActiveCell.Interior.ColorIndex = 3 End If End With End Sub Public Sub 色を消す() With ActiveSheet If .ProtectContents Then .Unprotect Selection.Interior.ColorIndex = xlNone .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True Else ActiveCell.Interior.ColorIndex = xlNone End If End With End Sub >ツールバーにあるボタンの様なものを作ることは出来ないでしょうか まず、新しいツールバーを作成します。 (1)表示→ツールバー→ユーザー設定。 (2)→新規作成ボタンを押して自分で名前を入力します。 これで小さなツールバーができます。 (3)ユーザー設定ダイアログでコマンドタブをクリック。 (4)分類の枠内でマクロをクリック。 (5)コマンド欄の『ユーザー設定ボタン』をクリックして、(2)のツールバーにドラッグ&ドロップ。 (6)ドロップしたアイコンを右クリックしてマクロの登録を選択。 ボタンイメージの変更もできます。 (7)マクロを選択してok。ユーザー設定ダイアログを閉じます。 (8)作ったツールバーを既存のツールバーが並んだ箇所の空いた所にドラッグ&ドロップ。 この作ったツールバーを表示したくない時は、表示→ツールバーでチェックをはずします。
関連するQ&A
- エクセル2000でセルの完全保護ッテできるのですか
エクセル2000です(^。^;) 色々しらべて、検索してもわからなかったので質問させてください。 セルの保護をしようと、色んな質問サイトなどをみましたが 回答はあるけど、試してみてもセルのデータが簡単に変更できます。 もしかしてエクセル2000ではそんな機能がないのかな(^。^;) まずは、シートの保護を取り消して、次に保護したいセルを選択していきました。 (青色反転になってる) だったかな? 色々やって混乱しています。 しかし、なにをやっても、保護したいセルの文字は消えるし、書き足せるし、計算式のは行ったセルも 消えちゃうし。。。 指定したセルの文句や数字など、またセルの大きさなどの変更がでいないように出来るのでしょうか? 難しいことはわからないのですが(^。^;) そういえば、やっていた方法でセルのおおきさなどの変更はできなかったです。 でもデータが変わってしまうのです
- 締切済み
- オフィス系ソフト
- エクセルの1つのセルだけを保護したい
エクセル2010でシートの保護と編集可能なセルの指定方法(セルのロックを外してシート全体を保護する)は知っているのですが、計算式の入った数個のセルだけを保護したいのですが。 一応、セルの書式設定で1つのセルだけロックを外して、シート全体を保護してみたのですが、この方法では駄目でした。 簡単に目的の(飛び飛び)のセルだけを保護する方法を教えてください。
- ベストアンサー
- Excel(エクセル)
- Excelのセルの保護
Excelで自治会の会計処理する表を作成しています。 表はフィルタを使ってサブトータルで科目別に集計出来るようにしています。 また、報告書作成時に必要のない列と行を非表示にして印刷します。 大勢の人が使うために数式、他シートの参照いているセルなどを保護し変更できないようにしたいのですが、セルの書式設定⇒保護⇒ロック してシート保護をかけるとフィルタ機能や列、行の非表示などができなくなります。 特定のセルだけ変更できないようにして、フィルタや列、行の非表示などは可能なセルの保護方法があったら教えてください。
- 締切済み
- ボランティア・寄付
- エクセルでセルの保護方法はありますか?
エクセルで計算式等を入れているセルのみを保護する方法は ありますか?(個人で使用している場合は、問題ないが、共有していると、計算式のセルへ入力してたりして、式が消えてしまう為、各セルごとに保護する方法がありませんか?)
- 締切済み
- その他(データベース)
- セル保護してしない部分のみ、エンターキーを押して移動するようにする方法は?
エクセル2003の保護の機能について、セルの書式設定から保護タブでロックしてからシートの保護を行いましたが、セルの保護していないセル以外にセル保護した箇所にもエンターキーを押したら移動してしまいます。セル保護していないセルにのみカーソルを移動させる方法ないでしょうか? それとセルの書式設定から保護タブでロック下に表示しないにチェックするとどういう影響があるのでしょうか?
- ベストアンサー
- オフィス系ソフト
- エクセルの保護について
エクセルの保護に付いて教えて下さい。 あるSheetを入力テンプレートとして使用しています。(多数の人が使用します。) sheet中の特定のセルのみに入力してもらい、それ以外のセルはいじられたくないのでシートの保護をかけました。 ただ、要件上、行がものすごく多いのである単位でグループ化をしています。 この設定を行ったところ、シートの保護をするとグループ化の+、-ボタンも保護対象となってしまい行を展開したり圧縮したりする事が出来なくなってしまいました。 この問題を解決する事は出来ますでしょうか?? 出来ればエクセルの標準機能で対応したいのですが、、、 もし、マクロでしか出来ないのであればそれでも結構です。 よろしくお願いします。
- 締切済み
- オフィス系ソフト
- エクセルで指定したセルを保護することはできますか?
エクセルなんですが、指定したセル内の数字が変えられないように、保護というか変更できないように固定できますか? ファイルやシートの保護というのはありますが、指定したセルの保護というものができたら助かります。 エクセルの達人の方、ご存知でしたら是非教えていただけませんでしょうか。 お願いします。
- ベストアンサー
- オフィス系ソフト
お礼
先日マクロのプログラムを作成していただきましたが、ユーザ設定のボタンを作った際にこのボタンが全てのファイルで有効になってしまうため、このファイルの場合だけ表示させるようにしたいのですが、どのようにしたらよいのでしょうか。
補足
たびたびすみません。 上記の別法をコピーして使うことは出来たのですが、excelを閉じて再度このマクロ機能を使おうとすると次のエラーが出てしまいます。 ”このプロジェクトのマクロは無効に設定されています。”というウィンドウが表示されてしまうのですが、マクロを有効にする方法を教えて下さい。 よろしくお願いいたします。