以前介紹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
然后返回工作表中,當我們在單元格輸入數(shù)據(jù),馬上就會對有數(shù)據(jù)內容的單元格進行保護,當我們試圖要修改編輯時,只有通過撤銷保護才能修改。
通過上面代碼實現(xiàn)的excel保護部分單元格,就只對有數(shù)據(jù)內容的單元格進行保護,而空單元格是不受任何保護的,也就是可以正常隨意的輸入內容。
核心關注:拓步ERP系統(tǒng)平臺是覆蓋了眾多的業(yè)務領域、行業(yè)應用,蘊涵了豐富的ERP管理思想,集成了ERP軟件業(yè)務管理理念,功能涉及供應鏈、成本、制造、CRM、HR等眾多業(yè)務領域的管理,全面涵蓋了企業(yè)關注ERP管理系統(tǒng)的核心領域,是眾多中小企業(yè)信息化建設首選的ERP管理軟件信賴品牌。
轉載請注明出處:拓步ERP資訊網(wǎng)http://www.vmgcyvh.cn/
本文標題:excel保護部分單元格的方法
本文網(wǎng)址:http://www.vmgcyvh.cn/html/support/11139213942.html