1.  数据有效性，限制输入和修改

By:gvntw
‘http://club.excelhome.net/dispbbs.asp?boardID=2&ID=249448&page=1&px=0
Private Sub Worksheet_Change(ByVal Target As Range)
'如果目标行不是B列就不执行此代码，否则如果A列单元格不等于当前系统日期，则：
'不能输入或者修改。也即只能当日输入和修改。
    If Target.Column <> 2 Then Exit Sub
    Application.EnableEvents = False
    If Target.Offset(, -1) <> Date Then Application.Undo
    Application.EnableEvents = True
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'如果目标行不是B列就不执行此代码，否则设置数据有效性为：
'只能输入整数，介于1－50
    If Target.Column <> 2 Then Exit Sub
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateWholeNumber, Operator:=xlBetween, Formula1:="1", Formula2:="50"
    End With
End Sub