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

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

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

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

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

上記のコードで保護したワークブックを開くと、パスワード入力用のダイアログが表示されます。 スクリーンショットをご覧ください：

ヒント: このコードは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 ダイアログで、リストから必要なシートを選んでチェックします。 スクリーンショットをご覧ください：

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

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