Комментарии в Excel
Вот какая проблема. Есть защищенный лист с данными. Что бы можно было редактировать данные сделанна "быстрая клавиша". она работает нормально но нужно сделать так что бы при внесении изменения добавлялся коммент к ячейке в котором прописывалось кто. когда и во сколько делал изменения. С файлом работает 3 человека на одном компе и у каждого свой рабочий стол.
ActiveCell.AddComment
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Text ??????????????????????????????????
ActiveCell.AddComment
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Text ??????????????????????????????????
Код:
'Способ 1.
MsgBox Environ("USERNAME") & vbNewLine & Now
'Способ 2.
Set objWsNet = CreateObject("WScript.Network")
MsgBox objWsNet.UserName & vbNewLine & Now
Set objWsNet = Nothing
MsgBox Environ("USERNAME") & vbNewLine & Now
'Способ 2.
Set objWsNet = CreateObject("WScript.Network")
MsgBox objWsNet.UserName & vbNewLine & Now
Set objWsNet = Nothing
Годится?