请高手帮忙写一个PUBLIC的参数来实现功能

lzczlch

请高手帮忙写一个PUBLIC的参数来实现功能

roych

不知道是不是这样：

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. On Error Resume Next
   
3. Sheet1.Unprotect Password:="12345"
   
4. If Target.Value <> "" Then
   
5. Target.Locked = True
   
6. Sheet1.Protect Password:="12345"
   
7. End If
   
8. End Sub
   

复制代码

一旦录入后即进行单元格保护。