excel工作表保护后，记录单就不能新建和修改了，有什么办法

这是由于单元知格被锁定导致的。
解决办法：
1.建立一张空白表；
2.选中A1单元格，点击“格式”->“单元格”->“保护”->“锁定”前面的√取消->“确定”
3.“工具”->“宏”->“visual Basic 编辑器”，点击“Microsoft excel对象”->“sheet1 ”在空白的编辑器中输入下列代码：
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect "pw"
Target.Locked = True
ActiveSheet.Protect "pw"
End Sub
4.返回sheet1表点击保存.
5.关闭道excel窗口。
6.重新打开excel窗口。在A1中输入1，同时可以内测试下别的单元格能否输入，答案肯定是：受保护的单元格不能改容写警告
7.点击“保存”，关闭窗口
8.重新打开excel窗口。在A1中输入1，看看能否改变，答案是：受保护的单元格不能改写警告
上面的文档是已经编辑好的文档，所以不能输入！

excel工作表保护，保抄护的是工作表中被锁定的单元格。

选中单元格，右键，设置单元格格式，保护，看锁定前是知否勾选。在保护中，不允许修改的单元格就需要锁定。

另外，在保护工作表时，在“允许此工作表的所有用户进行”下边方框中有很多选项，勾选的内容就是在保护状态下，也能进行的一些编辑。道

你可以添加两个按钮，如果打算用一个按钮实现，那就按一次变一次吧。我给你两个按钮的宏代码。这两个按钮一个名称是保护，另一个是解除e799bee5baa6e79fa5e98193e58685e5aeb9366保护。这里给了你三个表的，多个表你自己添加几行就行了，Sheets("Sheet1").Select这个语句里面双引号中的是工作表名称，如果你的名称不同就自己调整一下，这样可以随意选择了。Password:="test"参数的双引号中是保护工作表的密码，这里用了test。

保护按钮代码如下：
Private Sub 保护_Click()
Sheets("Sheet1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="test"
Sheets("Sheet2").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="test"
Sheets("Sheet3").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="test"

End Sub
解除保护代码如下：
Private Sub 解除保护_Click()
Sheets("Sheet1").Select
ActiveSheet.Unprotect Password:="test"
Sheets("Sheet2").Select
ActiveSheet.Unprotect Password:="test"
Sheets("Sheet3").Select
ActiveSheet.Unprotect Password:="test"
End Sub

你的问题不够详细, 而我理解能力差,下面的答案希望可以帮到你.
保护工作表-加密代码7a64e59b9ee7ad94330:
ActiveSheet.protect "123"
解除保护代码:

ActiveSheet.Unprotect "123"
'123是密码
每次关闭表格之前自动保护工作表;
教程: 打开VBA 双击左边的thisworkbook,在右边空白窗口输入
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveSheet.Protect "123" '123是密码
End Sub
按保存
关闭表格后再打开,你试下修改工作表,会提示已保护
'BeforeClouse 是关闭表格事件,你也可以设置在 OPEN事件里,每次打开表格会自动保护工作表.
如果在切换工作表时加密,在VBA 双击左侧想要加密的工作表 输入代码
Private Sub Worksheet_Activate()
ActiveSheet.protect "123"
End Sub
这样切换工作表的时候就会加密
如果想有些工作表不加密(自动解除保护)
VBA里选择指定工作表 输入
Private Sub Worksheet_Activate()
ActiveSheet.Unprotect "123"
End Sub
保存