轉來的方法,請試試。方法是有的。用VBA解決。工作表保護密碼:123 你可以在程式碼中自己更改工作表中只要單元格不為空程式就會鎖定保護單元格右鍵單擊工作表標籤,在右鍵選單中選擇“檢視程式碼”,然後在出現的工作表程式碼編輯視窗複製貼上以下程式碼:Private Sub Worksheet_Change(ByVal Target As Range)Dim rng As Range If Target.Count = 1 Then Unprotect Password:=123 Cells.Locked = False Set rng = UsedRange For i = 1 To rng.Cells.Count If rng(i) <> "" Then rng(i).Locked = True End If Next Protect Password:=123 EnableSelection = xlUnlockedCells End IfEnd Sub另外說明:如果要修改原有資料是要解除工作表保護後才能修改。
轉來的方法,請試試。方法是有的。用VBA解決。工作表保護密碼:123 你可以在程式碼中自己更改工作表中只要單元格不為空程式就會鎖定保護單元格右鍵單擊工作表標籤,在右鍵選單中選擇“檢視程式碼”,然後在出現的工作表程式碼編輯視窗複製貼上以下程式碼:Private Sub Worksheet_Change(ByVal Target As Range)Dim rng As Range If Target.Count = 1 Then Unprotect Password:=123 Cells.Locked = False Set rng = UsedRange For i = 1 To rng.Cells.Count If rng(i) <> "" Then rng(i).Locked = True End If Next Protect Password:=123 EnableSelection = xlUnlockedCells End IfEnd Sub另外說明:如果要修改原有資料是要解除工作表保護後才能修改。