单元格数值录入并点保存后不能修改

更新时间2022-07-29 08:03:10

保存后    保护  第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

四、代码加密

打开工程属性对话框设置密码