保住Excel2000文件的秘密

一般保護工作表采取的方法是用Excel 2000菜單中的“保護”命令，有時這尚嫌不足，比如一些機密文件不能讓某些使用者看到，但又需要他來操作工作簿中的某些表，怎么辦？可利用VBA設立工作表的使用權限，使他只能看到和其工作有關的部分。
    在Excel 2000中，單擊“工具”，再單擊下拉菜單中的“宏”，點擊“Visual Basic編輯器”，打開“工程資源管理器”，雙擊該工作表，現(xiàn)在出現(xiàn)的是設置該表的屬性的編輯窗口，單擊窗口左上的下拉列表框，選擇“worksheet”，這時再從該窗口右上方的列表框中選擇Active(激活)，這時自動顯示如下的語句塊：
    Private Sub Worksheet_Activate( )
    End Sub
    在其中加入代碼(假設用“123”作為密碼,Sheet“機密文檔”為限制權限文檔，Sheet“普通文檔”為工作簿中可以讓他人操作的工作表)，程序如下：
    Private Sub Worksheet_Activate( )If Application.InputBox(″請輸入操作權限密碼:″) = 123 ThenRange(″A1″).SelectSheets
    (″機密文檔″).Cells.Font.ColorIndex = 56Else
    MsgBox ″密碼錯誤,即將退出!″
    Sheets(″普通文檔″).Select
    End If
    End Sub
    Private Sub Worksheet_Deactivate( )
    Sheets(″機密文檔″).Cells.Font.ColorIndex = 2
    End Sub