限定Excel工作表可用編輯范圍的幾種方法

只看不做 2010-09-26

展開全文

限定Excel工作表可用編輯范圍的幾種方法

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

　　一、設(shè)置ScrollArea屬性

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

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

　　限定Excel工作表可用編輯范圍的幾種方法

　　圖1

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

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

　　Private Sub Workbook_Open()
　　Worksheets("sheet1").ScrollArea = "A45:E45"
　　End Sub

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

　　二、使用工作表保護

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

　　限定Excel工作表可用編輯范圍的幾種方法

　　圖2

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

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

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

　　執(zhí)行“工具→宏→Visul Basic編輯器”命令或按下Alt+F11組合鍵，在代碼窗口左側(cè)的“工程資源管理器”窗口中，雙擊Excel對象下的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("請輸入密碼：")
If Y <> 123 Then
MsgBox "密碼錯誤，你無編輯權(quán)限!"
Range("A11").Select
End If
End If
End Sub