1.Необходимо чтобы при выборе сотрудника (столбец A) автоматом проставлялась текущая дата (столбец B), которую в последствии не было возможности изменить.
защита листа - пароль 123
в модуль листа:
[vba]Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A65536")) Is Nothing Then
If Target <> "" And Target.Offset(0, 1) = "" Then
ActiveSheet.Unprotect Password:="123"
Target.Offset(0, 1) = Date
ActiveSheet.Protect Password:="123"
End If
End If
End Sub
[/vba]
остальные пункты = новые темы.
но вот такие у нас правила и это правильно