云南首富董胜的妻子:Excel如何实现单元格输入数据后就不能修改

来源：百度文库编辑：偶看新闻时间：2024/05/05 06:29:17

要求在一张EXCEL工作表中，空白的单元格能够输入数据，但是输入任何数值或公式以后就不能修改，除非提供正确的密码。

　　右键点击需要实现此功能的工作表标签名，按“查看代码”（或者按ALT+F11进入VBA编辑器).

1、双击工程窗口中的工作表名字如“Sheet1”，在其代码窗口中输入以下代码（全部蓝色字体）：

　　'作者：QSDDZ 2009-11-19 QQ：380725227

　　Private Sub WorkSheet_SelectionChange(Byval Target as Range)

　　Const Ps="123456" '这是保护工作表时用的密码,可修改

　　If Target.Count=1　And Not Iserror(Target)　 then

　　　　If Target="" Then

　　ActiveSheet.UnProtect PassWord:=Ps

　　Exit Sub

　　End If

　　ActiveSheet.Protect DrawingObjects:=True, Contents:=True,Scenarios:=True, PassWord:=Ps

　　End Sub

2、双击工程窗口中的“ThisWorkbook”，在其代码窗口中输入以下代码（此代码使得每次保存文件时，自动保护工作表，所起作用是防止他人打开文件时不启用宏时，造成上面设置无效,因为如果禁用宏，所有单元格将不能修改）：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Const Ps="123456" '这是保护工作表时用的密码,与上面工作表中使用的密码要求一致

Sheet1.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=Ps

'注意：这行最左边的“Sheet1”与上面第一步所设置的被保护工作表的名称要相同。

End Sub

3、保存文件,再打开试一试。

excel工作表中A1单元格输入数据后,在B1单元格可自动输入对应的数据,如何做在EXCEL中如何实现在多个单元格中输入相同的数据？ Excel如何设置权限（数据输入后就不能被修改）在EXCEL表格中，如何能把公式区域的单元格设成不能输入数据和改动如何在Excel中实现"a1:b10"区域中不能输入重复数据 excel中如何实现一个单元格中输入两行文字 Excel表的单元格内输入数据后将格式改为文本格式为什么数据以科学记数法表示? 斜分Excel单元格如何输入文字如何设置EXCEL的单元格，使其只能输入特定数据，当输入其它类型数据时会提示只能输入特定数据，谢谢。 Excle单元格数据如何选择输入？ excel中除了条件格式还有没有其他方法实现对单元格中的数据进行判断后自动改变格式 EXCEL:如何实现点击某单元格，当前日期时间就上去了？ excel筛选后如何快速输入连续递增的数据? 在Excel中如何实现点击一个按钮后使当前单元格自动加1？局域网共享EXCEL表格后,为何合并单元格等功能不可以实现,如何能够克服? 想在excel中快速输入月日，但进行单元格日期设置后，例如4.3不能显示4月3日，该如何设置？如何在EXCEL的单元格中输入01234567后还显示01234567 在Excel中在A1中输入2+3*5*(6+8)而在单元格中得答案，如何实现为什么Excel表格不能输入数据 EXCEL中如何实现某单元格中数值为偶数在excel中，如何在一个单元格实现换行操作？如何让Excel中数据与单元格的宽度相同如何让Excel中数据与单元格的宽度相同如何让Excel中数据与单元格的宽度相同