2013-02-08 6 views
0

Excel 2003을 사용하고 있습니다.Excel 2003 : 각각 암호가 다른 개별 시트를 잠 그거나 숨기려고 시도합니다.

통합 문서가 약 20 매 있습니다. 1. 통합 문서를 숨기거나 잠근 첫 번째 두 장이 항상 열리도록하고 싶습니다. 2. 암호를 입력하라는 메시지가 나타나면 관리자가 해당 시트를 숨기기를 원할 수 있습니다. 각 시트마다 다른 암호가 필요합니다. 3. 관리자가 편집하여 저장 한 다음 일반 사용자에게 전달한 후. 일반 사용자가 파일을 열면 1 단계와 마찬가지로 두 시트를 다시 숨겨야합니다.

이 코드는 거의 내가 원하는대로 처리하지만 시트 만 최소화하고 최대화합니다.

Private Sub Worksheet_Activate() 
ActiveWindow.WindowState = xlMinimized 
If InputBox("Enter Password for this sheet") <> "ABC" Then Sheets("Cust. Pricing").Activate 
ActiveWindow.WindowState = xlMaximized 
End Sub 

답변

0

사용이 조각 대신 숨길 각각 보여줍니다 :

Sheets("Cust. Pricing").Visible = xlSheetHidden 
Sheets("Cust. Pricing").Visible = xlSheetVisible 
+0

내가 열 대신 결코 볼 수 있도록 내가 암호가 시트에 잠금 팝업 할 윈도우 덤비는의 통합 문서를 잠글 수있는 시트를 클릭하면 즉시 숨겨져 다음 시트로 이동하고 암호를 묻습니다. "ABC"를 넣으면 아래에 시트가 다시 나타납니다. 그러나 그것을 보려면 클릭하면 다음 시트로 이동하고 암호를 묻습니다. 나는 시트에 접근 할 수 없다. 'Private Sub Worksheet_Activate() 시트 ("가격 책정") Visible = xlSheetHidden InputBox ("이 시트의 비밀번호 입력") <> "ABC"그 다음 시트 ("가격 책정"). 시트 . ". 커스트 가격") 표시 = xlSheetVisible 끝 Sub' – user2035740

+0

여기 내 코드입니다 : ". 커스트 가격".'개인 서브 Worksheet_Activate()'
'시트() 표시 = xlSheetHidden'
'에서 InputBox ("만약 (Cust. Pricing) "
Sheets ("Cust. Pricing ") Visible = xlSheetVisible'
'End Sub' – user2035740

+0

죄송합니다. 너는 왜 나를 시트에 넣지 않는지 아무 생각이 없다. 반복 및 반복. 항상 암호를 묻는 메시지를 표시하고 암호를 숨기지 않습니다. – user2035740