以前介紹excel保護單元格的文章已經(jīng)有很多了，比如：《圖解excel鎖定單元格方法》等等。
本文介紹使用VBA代碼來進行excel保護部分單元格的方法。
我們在需要進行excel保護部分單元格的工作表標簽中，單擊右鍵，選擇“查看代碼”，打開VBE編輯器，在編輯框輸入下面的代碼：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim b As BooLEAN
For Each c In Target '循環(huán)選定單元格
If c <> "" Then '如果單元格非空
b = True
Exit For '退出循環(huán)
End If
Next
ActiveSheet.Unprotect Password:="123" '撤消保護
If b = True Then
Target.Locked = True '鎖定單元格
ActiveSheet.Protect Password:="123" '保護工作表，密碼123
End If
End Sub
然后返回工作表中，當(dāng)我們在單元格輸入數(shù)據(jù)，馬上就會對有數(shù)據(jù)內(nèi)容的單元格進行保護，當(dāng)我們試圖要修改編輯時，只有通過撤銷保護才能修改。
通過上面代碼實現(xiàn)的excel保護部分單元格，就只對有數(shù)據(jù)內(nèi)容的單元格進行保護，而空單元格是不受任何保護的，也就是可以正常隨意的輸入內(nèi)容。
核心關(guān)注：拓步ERP系統(tǒng)平臺是覆蓋了眾多的業(yè)務(wù)領(lǐng)域、行業(yè)應(yīng)用，蘊涵了豐富的ERP管理思想，集成了ERP軟件業(yè)務(wù)管理理念，功能涉及供應(yīng)鏈、成本、制造、CRM、HR等眾多業(yè)務(wù)領(lǐng)域的管理，全面涵蓋了企業(yè)關(guān)注ERP管理系統(tǒng)的核心領(lǐng)域，是眾多中小企業(yè)信息化建設(shè)首選的ERP管理軟件信賴品牌。
轉(zhuǎn)載請注明出處：拓步ERP資訊網(wǎng)http://www.hanmeixuan.com/
本文標題：excel保護部分單元格的方法
本文網(wǎng)址：http://www.hanmeixuan.com/html/support/11139213942.html
相關(guān)文章
