Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 31.07.2007, 13:29   #1
asale
Форумчанин
 
Регистрация: 09.01.2007
Сообщений: 108
По умолчанию Имя компьютера

Добрый день.
Как известно в Excel-e хранится информация о имени компьютера.
А возможно, чтобы при внесении изменения в файл информация о имени компьютера прописывалась бы в ячейку?
asale вне форума
Старый 31.07.2007, 21:24   #2
pashulka
Форумчанин
 
Регистрация: 03.11.2006
Сообщений: 524
По умолчанию

Скопируйте нижеопубликованный код в модуль ThisWorkbook(ЭтаКнига) нужной рабочей книги и сохраните внесённые изменения.

Код:
Private Declare Function GetComputerName _
        Lib "kernel32.dll" Alias "GetComputerNameA" ( _
        ByVal lpBuffer As String, _
        nSize As Long) As Long
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
    If Not Sh.ProtectContents Or Not Sh.[A1].Locked Then
       Dim iComputerName As String * 255
       GetComputerName iComputerName, 255
       'В некоторых версиях Windows есть возможность
       'получения имени компьютьера с помощью функции Environ
       Sh.[A1].Value = Application.Clean(iComputerName)
    Else
       MsgBox "Ячейка [A1] защищена", vbCritical, ""
    End If
End Sub
P.S. Этот пример имеет смысл использовать, например, в случае миграции файла, т.к. в противном случае имя компьютера, в большинстве случаев, будет неизменным.
pashulka вне форума
Старый 01.08.2007, 14:56   #3
asale
Форумчанин
 
Регистрация: 09.01.2007
Сообщений: 108
По умолчанию

Спасибо, pashulka.
А можно в ячейку также получить информацию о том, кто обладает лицензией на Excel? Т.е. не имя компьютера, а обладателя лицензии
asale вне форума
Старый 01.08.2007, 22:05   #4
pashulka
Форумчанин
 
Регистрация: 03.11.2006
Сообщений: 524
По умолчанию

К сожалению, я не помню как можно получить информацию о обладателе лицензии, однако, в качестве своеобразной компенсации, могу предложить различные способы определения имени пользователя, в т.ч. и открывшего нужную рабочую книгу.
pashulka вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перезагрузка компьютера antoha.by Паскаль, Turbo Pascal, PascalABC.NET 13 04.08.2008 09:39
Выключение компьютера aesoem Общие вопросы Delphi 2 03.07.2008 16:50
Автоперезагрузка компьютера Romanus Компьютерное железо 10 11.04.2008 16:18
Получение SID компьютера miae Общие вопросы Delphi 1 21.01.2008 17:50
выключение компьютера Svop Общие вопросы Delphi 23 18.12.2006 22:57