Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Изменить свойства книги excel
 
#1
01.12.2013 12:48:40
Добрый день, форумчане.Пытаюсь прописать свойства книги (те, что на вкладке "Подробно" - автор, кто сохранил, дата и время и т.д., но никогда с этим не сталкивался. Не могу разобраться. Прочитал посты на сайте, которые этому посвящены, в интернете посмотрел. Получается  изменить   только те, что в Описании, а те, что в Источнике, Содержании или Файл не меняются.Вставил уже функцию EducatedFool, но не знаю как адаптировать. Нужно изменить автора, кто сохранил, менежджера и компанию. Ткните носом, куда смотреть и что менять, очень нужно.
Файл во вложении.
Изменено: Эмир - 01.12.2013 23:25:19
Иногда только промахнувшись, понимаешь как ты попал.
 
 
 
#2
01.12.2013 15:24:21
Такой код тоже не изменяет свойства - Автор, кто сохранил, за исключением комментариев, название и предмет.
Может по этому коду кто-то комментарии даст???
Код
Dim st As String
Dim w As Workbook
Set w = Application.ActiveWorkbook
For Each property In w.BuiltinDocumentProperties 
On Error Resume Next ' чтобы не возникло ошибки, если с отображением свойств будут проблемы
    If property.Name = "Author" Then
     property.Value = "111"
    End If
    If property.Name = "LastAutor" Then
     property.Value = "222"
    End If
    If property.Name = "Manager" Then
     property.Value = "333"
    End If
Next property
   ' свойств у файла много, названия остальных можно взять из help'а
Изменено: Эмир - 01.12.2013 23:23:35
Иногда только промахнувшись, понимаешь как ты попал.
 
 
 
#3
01.12.2013 15:52:17
у меня данный код меняет.
автора и руководителя
Excel 2003
"LastAutor" -такого свойства нет
есть "Last author"
исправил эту опечатку - увидел изменение (вкладка Cтатистика, Автор изменений)
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#4
01.12.2013 16:00:16
А мы об этих свойствах говорим или я что-то не понял? Эти не меняются.
Иногда только промахнувшись, понимаешь как ты попал.
 
 
 
#5
01.12.2013 16:03:10
Нашел вкладку статистика. Там тоже ничего не происходит.
Иногда только промахнувшись, понимаешь как ты попал.
 
 
 
#6
01.12.2013 16:06:31
у меня так
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#7
01.12.2013 16:08:54
Суть в том, что пользователь не сможет увидеть кто автор внутри файла. А мне надо чтобы при правом клике мышкой на файл в свойствах отображались все эти propertis во вкладке Подробно.
Иногда только промахнувшись, понимаешь как ты попал.
 
 
 
#8
01.12.2013 16:10:45
ikki, а вы можете мне свой файлик прислать, где вы добились такого результата???
Прошу вас, не сочтите за труд!
Иногда только промахнувшись, понимаешь как ты попал.
 
 
 
#9
01.12.2013 16:11:49
Цитата
А мне надо чтобы при правом клике мышкой на файл
А где собираетесь кликать?
 
 
 
#10
01.12.2013 16:12:13
отображает.
автора - так даже без щелчка, во всплывающей подсказке при наведении.
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#11
01.12.2013 16:13:15
файлик
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#12
01.12.2013 16:14:47
смотрите только процедурку nnn во втором модуле.
остальное - мусор от решения других задачек (сорри).
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#13
01.12.2013 16:33:27
У вас работает, я понял почему.
Спасибо большое.
Не подскажете еще один нюанс, при выходе с сохранением сохраняет данные пользователя, а не указанное в макросе свойство - Кем изменено? Можно побороть это?
Иногда только промахнувшись, понимаешь как ты попал.
 
 
 
#14
01.12.2013 16:40:03
Кстати, кем изменено - не хочет меняться никак! (по макросу это значение 222)
Иногда только промахнувшись, понимаешь как ты попал.
 
 
 
#15
01.12.2013 16:54:24
Эмир, сначала Вы хотели МЕНЯТЬ, а потом: "А мне надо чтобы при правом клике мышкой на файл в свойствах отображались все эти propertis".  Так Вам только посмотреть?
 
 
 
#16
01.12.2013 17:11:49
Юрий, их надо вначале менять. В этом я почти разобрался, кроме - Кем сохранено. Потом нужно при правом клике мышки на файл их видеть. Не скажете, почему данное свойство сохраняется под именем пользователя компьютера, не смотря на указание в макросе - менять? Потому что все это делается до сохранения книги, а при сохранении excel ставит в свойство Кем сохранено - активного системного пользователя. Вот меня и интересует, как это можно обойти???
Иногда только промахнувшись, понимаешь как ты попал.
 
 
 
#17
01.12.2013 17:15:37
Точного ответа не знаю, но, вроде, всё логично: сначала отработал макрос, а ПОЗЖЕ Excel своими силами "поправил".
А про считывание свойств можно посмотреть здесь
 
 
 
#18
01.12.2013 17:24:26
Спасибо, Юрий.
Это интересно, я уже это все смотрел и сохранил себе кое-что!!!
Иногда только промахнувшись, понимаешь как ты попал.
 
 
 
#19
01.12.2013 19:42:02
Можно так задать автора изменения:

Код
Sub ChangeSavedBy()
  Dim un As String
  With Application
    un = .UserName
    .UserName = "111"
    ActiveWorkbook.Save ' or Thisworkbook.Save
    .UserName = un
  End With
End Sub
 
 
 
#20
01.12.2013 23:27:02
Спасибо, Владимир.

А не подскажете, как объявить переменную property в сообщении ikki (файл во вложении city.xls) от 16:13.
Если кто-то может помочь еще буду всем признателен!
Спасибо.
Иногда только промахнувшись, понимаешь как ты попал.
 
 
 
#21
01.12.2013 23:43:46
Вот прилагаю файл с кодом ZVI, все равно не меняется свойство Last autor.
Может что-то не так делаю?
Иногда только промахнувшись, понимаешь как ты попал.
 
 
 
#22
01.12.2013 23:51:50
Код
Dim property As DocumentProperty
 
 
 
#23
01.12.2013 23:52:19
Спасибо всем. Поборол.
Отдельное спасибо ZVI.
Сначала сделал не правильно, теперь до конца понял реализацию его идеи.
Файл выкладываю. Тему можно закрыть.
Изменено: Эмир - 01.12.2013 23:52:48
Иногда только промахнувшись, понимаешь как ты попал.
 
 
 
#24
01.12.2013 23:55:46
tester, спасибо за объявление переменной. Туплю я что-то.
Иногда только промахнувшись, понимаешь как ты попал.
 
 
 
#25
02.12.2013 00:11:24
Рад, что помогло :)
Изменено: ZVI - 02.12.2013 00:13:25
 
 
 
Страницы: 1
Читают тему
Наверх