以前介紹excel保護(hù)單元格的文章已經(jīng)有很多了,比如:《圖解excel鎖定單元格方法》等等。
本文介紹使用VBA代碼來進(jìn)行excel保護(hù)部分單元格的方法。
我們在需要進(jìn)行excel保護(hù)部分單元格的工作表標(biāo)簽中,單擊右鍵,選擇“查看代碼”,打開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" '撤消保護(hù)
If b = True Then
Target.Locked = True '鎖定單元格
ActiveSheet.Protect Password:="123" '保護(hù)工作表,密碼123
End If
End Sub
然后返回工作表中,當(dāng)我們在單元格輸入數(shù)據(jù),馬上就會(huì)對(duì)有數(shù)據(jù)內(nèi)容的單元格進(jìn)行保護(hù),當(dāng)我們試圖要修改編輯時(shí),只有通過撤銷保護(hù)才能修改。
通過上面代碼實(shí)現(xiàn)的excel保護(hù)部分單元格,就只對(duì)有數(shù)據(jù)內(nèi)容的單元格進(jìn)行保護(hù),而空單元格是不受任何保護(hù)的,也就是可以正常隨意的輸入內(nèi)容。
核心關(guān)注:拓步ERP系統(tǒng)平臺(tái)是覆蓋了眾多的業(yè)務(wù)領(lǐng)域、行業(yè)應(yīng)用,蘊(yùn)涵了豐富的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.ezxoed.cn/
本文標(biāo)題:excel保護(hù)部分單元格的方法
本文網(wǎng)址:http://www.ezxoed.cn/html/support/11139213942.html