利用宏設(shè)置工作表打開時(shí)的密碼,如名為獎(jiǎng)金的工作表不希望讓他人隨意打開,為此可設(shè)里密碼來保護(hù)。操作步驟如下: 1.打開工作表獎(jiǎng)金。 2.單擊菜單欄中工具→宏→Visual Basic編輯器,在Microsoft Visual Basic窗口的菜單欄中單擊工程資源管理器圖標(biāo)(見圖7-17)。 3.在窗口左側(cè)彈出工程-V來自BAProjict窗口,雙擊Sheet3(獎(jiǎng)金)(見圖7-18)。 4.在彈出的代碼編輯窗口左框中選擇Worksheet,右框中選擇Activat政川殺完科朝始重振e(見圖7-19)。 5.設(shè)置密碼為110,在編輯窗口中輸入如下代碼(見圖7-20): Private Su課市b Worksheet_Activa密了名和開求te() Sheets(獎(jiǎng)金).Cells.Font.ColorIndex=2 If Application.InputBox(盡歡亞隨二耐故考說情雖請輸入密碼:)=110 Then Range(Al).Select ActiveSheet.Cells.Font.Colorl夠百ndex=56ElseMsgBox密碼錯(cuò)誤,即將退出! Sheets(日常考勤表).SelectEnd IfEnd Sub 上述代碼的含義是激活工作表獎(jiǎng)金時(shí),爾工作表顯示空白并彈出密碼輸入框。輸入的密碼為110時(shí),工作表獎(jiǎng)金被打開。如果輸入的密碼錯(cuò)誤,返回工作表日常考勤表。 6.單擊菜單欄中文件→關(guān)閉并返回到Microsoft Excel(見圖7-21)。 從Microsoft Visual Basic窗口返回到工作表窗口。 7.單擊工作表標(biāo)簽獎(jiǎng)金,工作表顯示為空白,并彈出密碼的輸人對(duì)話框(見圖7-22)。 8.在對(duì)話框中輸入密碼110,單擊確定按鈕,工作表獎(jiǎng)金被打開(見圖7-23)。