シート保護でユーザー操作を制限する
ユーザーがあちこち触って計算式を壊されないようしたり、
セルの境界をダブルクリックして最終行に飛んでしまい迷子になったりしないように、
シートを保護して、ユーザー操作を制限します。
無用なセルはクリックもできない、スクロールすることもできなくしてしまいます。
セルのロック → シートの保護 → ScrollArea の設定
順に説明します。
セルのロックと解除：Locked
セルの初期は、「ロック」されています。
操作可能にするセルのロックだけを解除しておきます。
全セルを一旦ロックした後に、A2:B10の範囲だけをロック解除しています。
Range("A2:B10").Locked = False
これでロックを外します。
Range("A2:B10").Locked = False
これでロックします。
セルの範囲は適切に設定してください。
操作可能にするセル全てに対して行います。
これは手動での、以下の画面に相当します。
操作可能にするセルのロックだけを解除しておきます。
Dim ws As Worksheet
Set ws = ActiveSheet
With ws
.Cells.Locked = True
.Range("A2:B10").Locked = False
End With
全セルを一旦ロックした後に、A2:B10の範囲だけをロック解除しています。
これでロックを外します。
Range("A2:B10").Locked = False
これでロックします。
操作可能にするセル全てに対して行います。
これは手動での、以下の画面に相当します。
シートの保護：Protect
当該シートを保護します。
シート.Protect
シートには、ワークシートのオブジェクトを指定してください。
※Worksheets("Sheet1")、ActiveSheet、Worksheetオブジェクト変数等々
※Protectプロパティの詳細は「第68回.シートの保護（Protect）」
初めて保護設定するシートの場合は、
以下の「シートの保護」のダイアログで初期選択されているオプションが選択された状態となります。
この状態ですと、保護してあるセルも選択（クリック）出来てしまいます。
クリックも許可しない場合は、
「シートの保護」のダイアログの一番上の
「ロックされたセル範囲の選択」のチェックを外します。
これだけを別途VBAで設定するには、
シート.EnableSelection = xlUnlockedCells
このように記述します。
このEnableSelectionプロパティは、シートのプロパティの
下から5番目のプロパティを設定しているわけです。
※Worksheets("Sheet1")、ActiveSheet、Worksheetオブジェクト変数等々
※Protectプロパティの詳細は「第68回.シートの保護（Protect）」
以下の「シートの保護」のダイアログで初期選択されているオプションが選択された状態となります。
「シートの保護」のダイアログの一番上の
「ロックされたセル範囲の選択」のチェックを外します。
これだけを別途VBAで設定するには、
シート.EnableSelection = xlUnlockedCells
このように記述します。
このEnableSelectionプロパティは、シートのプロパティの
スクロール範囲：ScrollArea
上記までを設定すれば、
セルをダブルクリックする時に境界をクリックしてしまって、最終行に飛んでしまったりは無くなります。
それでも間違ってスクロールして画面に何も表示されていない、といった状態にはなってしまう事はあります。
そこで、不必要な範囲にはスクロールもできなくしてしまうことができます。
シート.ScrollArea = "セル範囲"
シートには、ワークシートのオブジェクトを指定してください。
※Worksheets("Sheet1")、ActiveSheet、Worksheetオブジェクト変数等々
セル範囲には、"A1:B10"のように指定します。
これは、シートのプロパティの
下から3番目のプロパティを設定しているものになります。
ただし、このプロパティは保存されません。
ブックを開き直した場合は、設定が消えてしまいます。
そこで、ブックのOpenイベントで毎回設定するようにします。
イベントについては以下を参照してください。
第124回.Workbookのイベントプロシージャー
セルをダブルクリックする時に境界をクリックしてしまって、最終行に飛んでしまったりは無くなります。
それでも間違ってスクロールして画面に何も表示されていない、といった状態にはなってしまう事はあります。
そこで、不必要な範囲にはスクロールもできなくしてしまうことができます。
※Worksheets("Sheet1")、ActiveSheet、Worksheetオブジェクト変数等々
セル範囲には、"A1:B10"のように指定します。
ただし、このプロパティは保存されません。
ブックを開き直した場合は、設定が消えてしまいます。
そこで、ブックのOpenイベントで毎回設定するようにします。
Private Sub Workbook_Open()
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")
ws.ScrollArea = "A1:B10"
End Sub
イベントについては以下を参照してください。
・Workbookのイベント一覧 ・イベントプロシージャー追加のVBE操作 ・Workbook_Open：Workbookのイベント ・Workbook_BeforeClose：Workbookのイベント ・Workbook_SheetChange：Workbookのイベント
第125回.Worksheetのイベントプロシージャー・Worksheetのイベント ・イベントプロシージャー追加のVBE操作 ・Activate：Worksheetのイベント ・BeforeDoubleClick：Worksheetのイベント ・BeforeRightClick：Worksheetのイベント ・Change：Worksheetのイベント ・SelectionChange：Worksheetのイベント ・全てのシートまたは複数のシートに対するイベント
シート保護でユーザー操作を制限する
ここまでやればね間違った操作でシートを壊してしまったり、
「画面に何もなくなった」と言って途方に暮れるExcel初心者もいなくなると思います。
とはいえ、本質論を言うなら、
エクセル操作するなら、最低限の操作くらいは覚えましょう。
つまり逆に言えば、マクロを書く立場の人は、Excel初心者の人に、やさして教えてあげてください。
最初は誰だって知らないのですから。
「画面に何もなくなった」と言って途方に暮れるExcel初心者もいなくなると思います。
エクセル操作するなら、最低限の操作くらいは覚えましょう。
つまり逆に言えば、マクロを書く立場の人は、Excel初心者の人に、やさして教えてあげてください。
最初は誰だって知らないのですから。
同じテーマ「マクロVBA技術解説」の記事
空白セルを正しく判定する方法（IsEmpty,IsError,HasFormula）
・セルの値が空白の判定 ・計算式が入っていない判定 ・エラー値の判定 ・IsEmpty関数：空白を判定するVBA関数 ・TypeName関数：データ型を判定するVBA関数 ・RangeオブジェクトのFormulaプロパティ ・空白セルを正しく判定する方法続編
空白セルを正しく判定する方法2空白セルの判定について、いろいろな方から意見を頂きました。やはり、空白判定は奥が深く結構難しいものとなっています。ここでは、各プロパティや関数が、セルの状態によって返す値を再確認してみます。元記事は、空白セルを正しく判定する方法（IsEmpty,IsError,HasFormula） 上記の記事では、
Rangeオブジェクト.Valueの省略についてエクセルVBAを教えていて、これほど多く聞かれる質問はないでしょう、RangeやCellsの.Valueは省略したほうが良いか、書いた方が良いか、当然、省略出来ない場合もあれば、オブジェクトとして扱うために.Valueは書けない場合もあります。ですので、結論から言えば、書きたければ書けば良いし、書きたくなければ書か…
シート保護でユーザー操作を制限するシートに数式を設定する時のセル参照の指定方法
シートに計算結果ではなく、計算式を設定する場合の、セル参照の記述方法について解説します、マクロVBAでは多くの場合、計算結果をセルに入れる事が多いのですが、時に計算式を設定する必要があります、その時の、セル参照の記述が以外に面倒なものです。下の表で説明していきます。
標準モジュールとシートモジュールの違い・書かれている場所と概要 ・シートを省略してRangeやCellsと記述した時 ・他モジュールから使う時 ・デバッグ時の違い ・標準モジュールとシートモジュールの使い分け方
オートフィルタ（AutoFilter）の使い方まとめオートフィルタはエクセルの中でもデータ処理において非常に強力なものです、特に大量データの処理には書くことのできない機能となっています。しかし、使い方が難しく、またバージョン違いの影響が大きく、使いずらい物となっていて、問い合わせを受ける事も多いです。
複雑な条件（複数除外等）のオートフィルター（AutoFilter）・"A","C"で絞り込む場合 ・"A","C"以外で絞り込む場合 ・"A","C","E"以外で絞り込む場合 ・作業列を追加
クリップボードを使わないセルのCopy・セルのコピーの基本 ・「マクロの記録」のコピー ・Destinationを指定したコピー ・クリップボードを使わないセルのCopy ・値と書式のコピー ・書式以外のコピー ・クリップボードを使わないセルのCopyのまとめ
Rangeの使い方：最終行まで選択を例にRangeの使い方・書き方について、データ最終行まで選択する場合を例に説明します、Rangeの書き方なので、RangeオブジェクトではなくRangeプロパティの解説という事になります。最近続けざまに、以下のようなコードを見かけました。Range("A2",Range("A2"…
フルパスをディレクトリ、ファイル名、拡張子に分けるファイルのフルパスを、ディレクトリ、ファイル名、拡張子に分けます。FileSystemObjectを使う方法と、VBA関数（InStrRev）で分けるVBAのサンプルコードになります。FileSystemObject 順に、C:\Users\hogehoge\Desktop サンプル.txt サンプル txt と表…
新着記事NEW ・・・新着記事一覧を見る
ブール型（Boolean）のis変数・フラグについて｜VBA技術解説(2024-04-05)
テキストの内容によって図形を削除する｜VBA技術解説(2024-04-02)
ExcelマクロVBA入門目次｜エクセルの神髄(2024-03-20)
VBA10大躓きポイント（初心者が躓きやすいポイント）｜VBA技術解説(2024-03-05)
テンキーのスクリーンキーボード作成｜ユーザーフォーム入門(2024-02-26)
無効な前方参照か、コンパイルされていない種類への参照です。｜エクセル雑感(2024-02-17)
初級脱出10問パック｜VBA練習問題(2024-01-24)
累計を求める数式あれこれ｜エクセル関数応用(2024-01-22)
複数の文字列を検索して置換するSUBSTITUTE｜エクセル入門(2024-01-03)
いくつかの数式の計算中にリソース不足になりました。｜エクセル雑感(2023-12-28)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
3.RangeとCellsの使い方｜VBA入門
4.ひらがな⇔カタカナの変換｜エクセル基本操作
5.繰り返し処理（For Next)｜VBA入門
6.変数宣言のDimとデータ型｜VBA入門
7.ブックを閉じる・保存（Close,Save,SaveAs）｜VBA入門
8.並べ替え（Sort）｜VBA入門
9.セルのクリア（Clear,ClearContents）｜VBA入門
10.Findメソッド（Find,FindNext,FindPrevious）｜VBA入門
- ホーム
- マクロVBA応用編
- マクロVBA技術解説
- シート保護でユーザー操作を制限する
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。