メインコンテンツへスキップ

Kutools for Office — 1つのスイート、5つのツールで、もっと多くのことを成し遂げましょう。

Excelでフォルダ内のすべてのワークブックを一度に保護するにはどうすればよいですか？

Author Sun Last modified

Excelでは、他のユーザーが編集できないようにするためにワークブックを保護できますが、複数のワークブックを一度に保護することを想像したことがありますか？ ここでは、フォルダ内のすべてのワークブックや、ワークブック内の複数のシートを保護するためのいくつかの方法を紹介します。

VBAを使用してフォルダ内のワークブックを一度に保護する

Kutools for Excelを使用して複数のシートを一度に保護する

VBAを使用してフォルダ内のワークブックを一度に保護する

特定のフォルダ内のワークブックを保護するには、マクロコードを使用して解決できます。

1. 新しいワークブックを有効にし、 Alt + F11キーを押してMicrosoft Visual Basic for Applicationsウィンドウを開き、挿入 > モジュールをクリックして、以下のコードを モジュールスクリプトに貼り付けます。

VBA: フォルダ内のワークブックを保護する

Sub ProtectAll()
    Dim xWorkBooks As Workbook
    Dim xExitFile As String
    Dim xPassWord As Variant
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    On Error Resume Next
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then
        Exit Sub
    Else
        xStrPath = xStrPath + "\"
    End If
    xPassWord = Application.InputBox("Enter password", "Kutools for Excel", , , , , , 2)
    If (xPassWord = False) Or (xPassWord = "") Then
        MsgBox "Password cannot be blank!", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xFile = "*.xls"
    xExitFile = Dir(xStrPath & xFile)
    On Error Resume Next
    Application.ScreenUpdating = False
    Do While xExitFile <> ""
        Set xWorkBooks = Workbooks.Open(xStrPath & xExitFile)
        Application.DisplayAlerts = False
        xWorkBooks.SaveAs Filename:=xWorkBooks.FullName, Password:=xPassWord
        Application.DisplayAlerts = True
        Workbooks(xExitFile).Close False
        Set xWorkBooks = Nothing
        xExitFile = Dir
    Loop
    Application.ScreenUpdating = True
    MsgBox "Successfully protect!", vbInformation, "Kutools for Excel"
End Sub

a screenshot showing how to ues the VBA code

2. 押す F5 キーを押し、「 フォルダを選択 」ウィンドウが表示され、保護したいフォルダ内のすべてのワークシートを選択できます。
doc protect all workbooks a folder 2

3. クリック OK すると、ワークブックを保護するためのパスワード入力用のダイアログが表示されます。
a screenshot of entering a password for pretecting the workbooks

4. クリック OKすると、選択したフォルダ内のすべてのワークブックが1つのパスワードで正常に保護されたことを知らせるダイアログが表示されます。
a screenshot of a prompt box showing the successfully protected of the workbooks

上記のコードで保護したワークブックを開くと、パスワード入力用のダイアログが表示されます。 スクリーンショットをご覧ください：
A screenshot of the password prompt box that appears when opening a workbook

ヒント: このコードはExcel 2007以降のバージョンで動作します。これを下位バージョンに適用したい場合は、コード内の xFile = "*.xls"をxFile = "*.xlsx"に変更してください。

Kutools for Excelを使用して複数のシートを一度に保護する

実際、日常業務では、ワークブック内の複数のシートを保護することがよくあります。しかし、Excelでは、組み込み機能を使用してシートを1つずつ保護する必要があります。しかし、強力なツールであるKutools for Excelには、 Protect Worksheetユーティリティがあり、これを使用すると、すべてのシートまたは選択したシートを一度に保護できます。

Kutools for Excelを無料インストール 後、以下のように操作してください：

1. 保護したいシートを持つワークブックを有効にし、 Kutools Plus > Protect Worksheet >Protect Worksheetsをクリックします。

2. Protect Worksheet ダイアログで、リストから必要なシートを選んでチェックします。 スクリーンショットをご覧ください：
a screenshot of selecting multiple worksheets you want to protect at once

3. クリック OKすると、パスワードの入力と再入力を行うための別のダイアログが表示されます。 スクリーンショットをご覧ください：
a screenshot of entering password

4. クリック OKすると、シートが正常に保護されたことを知らせるダイアログが表示されます。
a screenshot showing the success

最高のオフィス業務効率化ツール

🤖 Kutools AI Aide：データ分析を革新します。主な機能：Intelligent Execution｜コード生成｜カスタム数式の作成｜データの分析とグラフの生成｜Kutools Functionsの呼び出し……
人気の機能：重複の検索・ハイライト・重複をマーキング｜空白行を削除｜データを失わずに列またはセルを統合｜丸める……
スーパーLOOKUP：複数条件でのVLookup｜複数値でのVLookup｜複数シートの検索｜ファジーマッチ……
高度なドロップダウンリスト：ドロップダウンリストを素早く作成｜連動ドロップダウンリスト｜複数選択ドロップダウンリスト……
列マネージャー：指定した数の列を追加 ｜列の移動 ｜非表示列の表示/非表示の切替｜ 範囲＆列の比較……
注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブック＆ワークシートの管理｜オートテキスト ライブラリ｜日付ピッカー｜データの統合 ｜セルの暗号化/復号化｜リストで電子メールを送信｜スーパーフィルター｜特殊フィルタ（太字/斜体/取り消し線などをフィルター）……
トップ15ツールセット：12 種類のテキストツール（テキストの追加、特定の文字を削除など）｜50種類以上のグラフ（ガントチャートなど）｜40種類以上の便利な数式（誕生日に基づいて年齢を計算するなど）｜19 種類の挿入ツール（QRコードの挿入、パスから画像の挿入など）｜12 種類の変換ツール（単語に変換する、通貨変換など）｜7種の統合＆分割ツール（高度な行のマージ、セルの分割など）｜… その他多数
Kutoolsはお好みの言語で利用可能 ― 英語、スペイン語、ドイツ語、フランス語、中国語、その他40以上の言語に対応！

Kutools for ExcelでExcelスキルを強化し、これまでにない効率を体感しましょう。 Kutools for Excelは300以上の高度な機能で生産性向上と保存時間を実現します。最も必要な機能はこちらをクリック...

Office TabでOfficeにタブインターフェースを追加し、作業をもっと簡単に

  • Word、Excel、PowerPointでタブによる編集・閲覧を実現。
  • 新しいウィンドウを開かず、同じウィンドウの新しいタブで複数のドキュメントを開いたり作成できます。
  • 生産性が50%向上し、毎日のマウスクリック数を何百回も削減！

全てのKutoolsアドインを一つのインストーラーで

Kutools for Officeスイートは、Excel、Word、Outlook、PowerPoint用アドインとOffice Tab Proをまとめて提供。Officeアプリを横断して働くチームに最適です。

Excel Word Outlook Tabs PowerPoint
  • オールインワンスイート — Excel、Word、Outlook、PowerPoint用アドインとOffice Tab Proが含まれます
  • 1つのインストーラー・1つのライセンス —— 数分でセットアップ完了（MSI対応）
  • 一括管理でより効率的 —— Officeアプリ間で快適な生産性を発揮
  • 30日間フル機能お試し —— 登録やクレジットカード不要
  • コストパフォーマンス最適 —— 個別購入よりお得