Excel에서 한 번에 폴더 내의 모든 워크북을 보호하는 방법은 무엇입니까?

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. 클릭 확인 그리고 워크북을 보호하기 위한 비밀번호를 입력하는 대화상자가 나타납니다.

4. 클릭 확인, 선택한 폴더 내의 모든 워크북이 하나의 비밀번호로 성공적으로 보호되었음을 알려주는 대화상자가 나타납니다.

위의 코드로 보호한 워크북을 열 때 비밀번호를 입력하는 대화상자가 나타납니다. 스크린샷 참조:

팁: 이 코드는 Excel 2007 이상 버전에서 작동합니다. 낮은 버전에 적용하려면 코드에서 xFile = "*.xls"를 xFile = "*.xlsx"로 변경할 수 있습니다.

Kutools for Excel을 사용하여 여러 시트를 한 번에 보호하기

실제로 일상적인 작업에서 워크북 내의 여러 시트를 보호하는 일이 더 자주 발생할 수 있습니다. 하지만 Excel에서는 기본 제공 기능으로 시트를 하나씩 보호해야 합니다. 그러나 Kutools for Excel이라는 강력한 도구가 있으며, 이 도구의 시트 보호 기능을 사용하면 워크북의 모든 시트 또는 선택한 시트를 한 번에 보호할 수 있습니다.

Kutools for Excel을 무료로 설치 한 후, 아래 단계를 따라주세요:

1. 보호하려는 워크북을 열고 Kutools Plus > Protect Worksheet > Protect Worksheets를 클릭합니다.

2. Protect Worksheet 대화상자에서 목록에서 보호하고자 하는 시트를 필요에 따라 선택할 수 있습니다. 스크린샷 참조:

3. 클릭 확인, 그리고 비밀번호를 입력하고 다시 입력하는 대화상자가 나타납니다. 스크린샷 참조:

4. 클릭 확인, 그리고 시트가 성공적으로 보호되었음을 알려주는 대화상자가 나타납니다.