保住Excel2000文件的秘密

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