통합 문서 내의 개봉지에서 시트 보호

Question

여러 시트가있는 Excel 통합 문서가 있습니다. 사용자가 통합 문서 내의 시트를 열지 못하도록 암호를 보호 할 수있는 방법이 있습니까? 시트에는 큰 그래프가있어서 모든 사람이보고 싶지는 않지만 편집 할 수는 없습니다. 당신의 도움이

편집

에 미리

덕분에 나는 사용자가 문제의 시트에 액세스 할 formcontrol 버튼을 클릭 할 수 있도록 다음과 같은 코드를 사용했다.

Sub ShowHeatMap() 
Dim S As String 
S = InputBox("Enter Password") 
If S = vbNullString Then 
    Exit Sub 
ElseIf S <> "wiretransfer" Then 
    Exit Sub 
Else 
    Worksheets("Training Heat Map").Visible = xlSheetVisible 
End If 
End Sub 

이것은 통합 문서에 추가 한 일종의 "homepage"시트에있는 내 단추와 관련이 있습니다.

그러나 통합 문서를 다시 열면 시트가 숨겨진 상태로 유지되지 않습니다. 이 코드를 시도 :

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
ThisWorkbook.Worksheets("Training Heat Map").Visible = xlSheetVeryHidden 
End Sub 

아이디어가 있으십니까? 이 코드는 일반적인 선언하에 시트에 대한 모듈에 입력됩니다.

Answer 1

통해 this answer, 나는 이것이 당신을 위해 트릭을 할 것 같아요. VBA 내에서 ThisWorkbook 이내에 넣어 :

Private Sub Workbook_SheetActivate(ByVal Sh As Object) 
Dim MySheets As String, Response As String 
MySheet = "Sheet1" 
If ActiveSheet.Name = MySheet Then 
ActiveSheet.Visible = False 
    Response = InputBox("Enter password to view sheet") 
     If Response = "MyPass" Then 
      Sheets(MySheet).Visible = True 
      Application.EnableEvents = False 
      Sheets(MySheet).Select 
      Application.EnableEvents = True 
     End If 
End If 
Sheets(MySheet).Visible = True 
End Sub 

을 분명히 여러분의 필요에 맞게 약간 필요합니다. 또한 VBA 코드를 암호로 보호해야합니다. 그렇지 않으면 누구나 암호를 볼 수 있고 암호를 찾을 수 있습니다.