因工作需要，我們常常需要對(duì)工作表的某一范圍設(shè)置訪問(wèn)權(quán)限，禁止別人改動(dòng)該單元格區(qū)域的內(nèi)容。這里向大家介紹實(shí)現(xiàn)這一目標(biāo)的3種方法。

　　一、設(shè)置ScrollArea屬性

　　如果要使工作表的A1:E10單元格區(qū)域不被改動(dòng)(下同)，可以采取限定垂直滾動(dòng)條范圍的辦法，隱藏A1:E10單元格區(qū)域，從而達(dá)到限定使用范圍的目的。具體步驟如下：

　　1、執(zhí)行“視圖→工具欄→控件工具箱”命令，在打開(kāi)的“控件工具箱”工具欄中，單擊“屬性”按鈕，顯示如圖一所示的“屬性”對(duì)話框。

　　2、在“屬性”對(duì)話框的ScrollArea一欄里輸入“A45:E45”(該范圍可自己選定)，然后按Enter鍵。

　　執(zhí)行上述步驟后，我們發(fā)現(xiàn)A1:E10單元格區(qū)域不再出現(xiàn)在工作表中窗口中了，而且也無(wú)法移動(dòng)垂直滾動(dòng)條。由于ScrollArea屬性不是永久的，關(guān)閉了文件，下次再打開(kāi)時(shí)又可隨意選擇編輯上述區(qū)域。因此還需在ThisWorkbook代碼模塊中添加下面一段代碼。

　　Private Sub Workbook_Open()

　　Worksheets("sheet1").ScrollArea = "A45:E45"

　　End Sub

　　這樣，每次打開(kāi)工作簿時(shí)，上述代碼自動(dòng)運(yùn)行，并設(shè)定ScrollArea屬性。作為保護(hù)工作表內(nèi)容，這種方法是個(gè)不錯(cuò)的選擇。

　　二、使用工作表保護(hù)

　　1、激活Sheet1表，選中允許填充數(shù)據(jù)的單元格區(qū)域，右擊選擇“設(shè)置單元格格式”，在“保護(hù)”選項(xiàng)卡中取消“鎖定”復(fù)選項(xiàng)，單擊“確定”按鈕退出。然后依次單擊菜單“工具→保護(hù)→保護(hù)工作表”，在彈出的對(duì)話框列表中，輸入保護(hù)密碼，勾選“選定未鎖定的單元格”選項(xiàng)，其他選項(xiàng)全部清除(如圖2所示)，點(diǎn)擊“確定”返回。

　　2、保護(hù)工作表后，再按回車鍵或按方向鍵，光標(biāo)則只能在原來(lái)取消鎖定的單元格之間來(lái)回移動(dòng)，而被鎖定A1:E10單元格區(qū)域單元格則不能激活，從而達(dá)到了限制訪問(wèn)的目的。

　　三、利用VBA設(shè)置訪問(wèn)權(quán)限

　　我們也可以利用VBA代碼，設(shè)置權(quán)限密碼，當(dāng)編輯Sheet1工作表A1:E10單元格區(qū)域時(shí)，自動(dòng)彈出輸入密碼提示框，密碼正確時(shí)，該單元格被激活，否則，單元格內(nèi)容不能被改動(dòng)。具體方法如下：

　　執(zhí)行“工具→宏→Visul Basic編輯器”命令或按下Alt+F11組合鍵，在代碼窗口左側(cè)的“工程資源管理器”窗口中，雙擊Excel對(duì)象下的Sheet1工作表，在右側(cè)的代碼窗口中輸入以下代碼：

　　Private Sub Worksheet_Change(ByVal Target As Range)

　　X = Target

　　End Sub

　　Private Sub Worksheet_SelectionChange(ByVal Target As Range)

　　If Target.Column <= 5 And Target.Row <= 10 Then

　　Y = InputBox("請(qǐng)輸入密碼：")

　　If Y <> 123 Then

　　MsgBox "密碼錯(cuò)誤，你無(wú)編輯權(quán)限!"

　　Range("A11").Select

　　End If

　　End If

　　End Sub

最新評(píng)論