Excel을 사용하면 워크 시트를 보호 및 보호 해제 할 수 있습니다. 물론 목적은 다른 사람이 통합 문서를 사용할 수 있도록 허용하지만 각 워크 시트 내의 특정 셀을 수정하는 것은 아닙니다.

보호는 워크 시트 수준에서 수행되기 때문에 통합 문서의 각 워크 시트를 단계별로 살펴보고 보호하거나 보호 해제하는 것은 큰 고통이 될 수 있습니다. 25 개의 워크 시트가있는 경우 각 워크 시트를 활성화하고 보호 또는 보호 해제를 수행 한 후 다음 워크 시트로 이동해야합니다.

통합 문서의 각 워크 시트를 보호하는 시간이 덜 소요되는 방법은 매크로를 사용하여 실제 작업을 수행하는 것입니다. 다음 매크로가 트릭을 수행합니다.

Sub ProtectAllSheets()

Dim ws As Worksheet     Dim sOrigSheet As String     Dim sOrigCell As String

Application.ScreenUpdating = False     sOrigSheet = ActiveSheet.Name     sOrigCell = ActiveCell.Address

For Each ws In Worksheets         ws.Select         ws.Protect Password:="Password"

Next ws

Application.GoTo Reference:=Worksheets("" _       & sOrigSheet & "").Range("" & sOrigCell & "")

Application.ScreenUpdating = True End Sub

모든 워크 시트의 보호를 해제하는 매크로는 약간 다릅니다.

Sub UnProtectAllSheets()

Dim ws As Worksheet     Dim sOrigSheet As String     Dim sOrigCell As String

Application.ScreenUpdating = False     sOrigSheet = ActiveSheet.Name     sOrigCell = ActiveCell.Address

For Each ws In Worksheets         ws.Select         ws.Unprotect Password:="Password"

Next ws

Application.GoTo Reference:=Worksheets("" _       & sOrigSheet & "").Range("" & sOrigCell & "")

Application.ScreenUpdating = True End Sub

이러한 매크로는 잘 작동하지만 몇 가지주의 사항이 있습니다.

먼저 각 매크로의 Password 변수가 워크 시트에 적합한 암호로 설정되어 있는지 확인해야합니다. (물론 모든 워크 시트가 동일한 passwords를 사용한다고 가정합니다.)

두 번째주의 사항은 매크로에 암호가 포함되어야하기 때문에 통합 문서의 전체 보안이 손상 될 수 있다는 것입니다. 매크로를 표시 할 수있는 사람은 누구나 통합 문서의 암호를 알 수 있습니다.

이 마지막 문제에 대한 해결책으로 매크로를 수정하여 작업에 사용할 암호를 요청할 수 있습니다. 다음은 워크 시트를 보호하는 매크로 버전입니다.

Sub ProtectAllSheetsPass()

Dim ws As Worksheet     Dim sOrigSheet As String     Dim sOrigCell As String     Dim sPWord As String

Application.ScreenUpdating = False     sOrigSheet = ActiveSheet.Name     sOrigCell = ActiveCell.Address

sPWord = InputBox("What password?", "Protect All")

If sPWord > "" Then         For Each ws In Worksheets             ws.Select             ws.Protect Password:=sPWord         Next ws     End If     Application.GoTo Reference:=Worksheets("" _       & sOrigSheet & "").Range("" & sOrigCell & "")

Application.ScreenUpdating = True End Sub

매크로는 암호를 묻는 입력 상자를 표시합니다. 그런 다음 동일한 암호를 사용하여 통합 문서의 모든 워크 시트를 보호합니다. 모든 워크 시트의 보호를 해제하는 매크로에 동일한 종류의 변경을 수행 할 수 있습니다.

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (13075)은 Office 365의 Microsoft Excel 2007, 2010, 2013, 2016, 2019 및 Excel에 적용됩니다. 여기에서 Excel의 이전 메뉴 인터페이스에 대한이 팁 버전을 찾을 수 있습니다.

link : / excel-Unprotecting_Groups_of_Worksheets [Unprotecting Groups of Worksheets].