单元格数值录入并点保存后不能修改
保存后 保护 第1个工作表 有数据的单元格
一、编辑工作簿Workbook_BeforeSave事件的代码
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If ***.name <> Sheets(1).Name Then Exit Sub
***.enableevents = False
***.unprotect
activesheet.***.locked = False
activesheet.***.formulahidden = False
activesheet.***.specialcells(xlCellTypeConstants, 23).Locked = True
activesheet.***.specialcells(xlCellTypeFormulas, 23).Locked = True
activesheet.***.specialcells(xlCellTypeFormulas, 23).FormulaHidden = True
***.protect DrawingObjects:=True, Contents:=True, Scenarios:=True
***.enableselection = xlUnlockedCells
***.enableevents = True
End Sub
二、保存
1、新建工作簿
在第1个工作表输入至少1个数据——保存——工作簿名——启用宏的工作簿——保存
2、原有工作簿(第1个工作表有数据)
另存为——启用宏的工作簿——保存
三、编辑第1个工作表Worksheet_SelectionChange事件的代码
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
***.protect DrawingObjects:=True, Contents:=True, Scenarios:=True
***.enableselection = xlUnlockedCells
End Sub
四、代码加密
打开工程属性对话框设置密码