單元格數(shù)值錄入并點保存后不能修改
保存后 保護 第1個工作表 有數(shù)據(jù)的單元格
一、編輯工作簿W(wǎng)orkbook_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個數(shù)據(jù)——保存——工作簿名——啟用宏的工作簿——保存
2、原有工作簿（第1個工作表有數(shù)據(jù)）
另存為——啟用宏的工作簿——保存
三,、編輯第1個工作表Worksheet_SelectionChange事件的代碼
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
***.protect DrawingObjects:=True, Contents:=True, Scenarios:=True
***.enableselection = xlUnlockedCells
End Sub
四,、代碼加密
打開工程屬性對話框設(shè)置密碼
