工作表保护密码:123 你可以在代码中自己更改
工作表中只要单元格不为空程序就会锁定保护单元格
右键单击工作表标签,在右键菜单中选择“查看代码”,然后在出现的工作表代码编辑窗口复制粘贴以下代码:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If TargetCount = 1 Then
Unprotect Password:=123
CellsLocked = False
Set rng = UsedRange
For i = 1 To rngCellsCount
If rng(i) <> "" Then
rng(i)Locked = True
End If
Next
Protect Password:=123
EnableSelection = xlUnlockedCells
End If
End Sub
另外说明:如果要修改原有数据是要解除工作表保护后才能修改。打开cmd,输入sqlplus /nolog,回车。(2)输入“conn / as sysdba”;(3)输入“alter user sys identified by 新密码”,注意:新密码最好以字母开头,否则可能出现错误Ora-00988。有了这个方法后,只要自己对oracle服务器有管理员权限,不记得密码的时候就可以随意修改密码
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)