|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
05.03.2009, 11:48 | #11 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Цитата:
Это документированный баг Excel - при ручной установке защиты она сохраняется в файле, а при программной - не сохраняется. (значение свойства EnableSelection теряется после закрытия файла, если Вы изменяли его программно) В Excel 2002 и 2003 данная проблема решается установкой патча, но для Excel 2007 такой патч ещё не выпущен (насколько мне известно) О проблеме можно почитать здесь: http://www.asap-utilities.com/blog/i...-is-not-saved/ http://yandex.ru/yandsearch?clid=145...nableSelection Так что, придётся искать другой вариант... Немного укоротил Ваш макрос: |
|
05.03.2009, 12:50 | #12 |
Пользователь
Регистрация: 24.02.2009
Сообщений: 29
|
нда, вот оно что..
нашла вариант с установкой правильной защиты во время открытия книги, но мой новый файл д.б. без макросов, так что придётся оставить как есть. кстати, если бы не пришлось - как вставить макросом другой макрос в создаваемую им книгу? помимо этого, нашла вот такую фразу "Проблема - решена с помощью WSH: галку, соответствующую EnableSelection, ставит SendKeys(...). " но цитата от 2005 года, так что спросить, что конкретно имелось в виду могу только у вас, если вы знаете |
05.03.2009, 13:01 | #13 | ||
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Цитата:
Но он непрост в реализации, на разных компах может работать по-разному, и поэтому я не стал предлагать Вам этот способ. Это не что иное, как отправка приложению Excel набора команд с клавиатуры (как если бы Вы нажали вручную несколько горячих клавиш, вручную устанавливая защиту) Цитата:
Проще не создавать новый лист: Код:
а потом вместо создания листа просто перемещать этот скрытый лист в новую книгу, попутно отображая его. Пример во вложении: (добавил скрытый лист Данные, установил на нём (вручную) защиту с паролем 123)
__Полезные надстройки для Excel. Парсинг сайтов и файлов.
Макросы любой сложности на заказ. Мониторинг цен конкурентов Последний раз редактировалось EducatedFool; 05.03.2009 в 13:19. |
||
05.03.2009, 15:52 | #14 | |
Пользователь
Регистрация: 24.02.2009
Сообщений: 29
|
Цитата:
запомню на будущее про копировать скрытый лист с макросом |
|
21.10.2010, 13:40 | #15 |
Пользователь
Регистрация: 22.09.2010
Сообщений: 14
|
Столкулся с темже вопросом сохранения файла по имени из ячеек, очень помогла эта тема, спасибо. Но возник один вопросик. Что нужно изменить в коде чтоб файл сохранялся по указаному пути и с указаным именем без выведения диалогового окна "Выберите имя файла для сохранения"?
With ActiveWorkbook.Sheets("Форма") Имя_для_сохранения = [A9] & [A8] End With FName = Application.GetSaveAsFilename(Initi alFileName:=Имя_для_сохранения, _ FileFilter:="Excel Files (*.xls), *.xls", _ Title:="Выберите имя файла для сохранения") If VarType(FName) <> vbBoolean Then ActiveWorkbook.SaveAs FName Последний раз редактировалось LLIaMaH; 21.10.2010 в 14:31. |
21.10.2010, 16:04 | #16 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Попробуйте так:
Код:
Код:
|
07.06.2012, 16:58 | #17 |
Регистрация: 30.07.2010
Сообщений: 3
|
Здравствуйте. Очень помогла эта тема в решении моей задачи.
Вот мой макрос: Код:
RepFileName = "RepDay" & RepFileVer & "_" & NameDate & ".xls" где, RepFileVer - это версия файла в формате "v1, v2, v3....vN". Но желательно, чтобы первая версия файла была RepFileName = "RepDay_" & NameDate & ".xls". Возможно ли такое? Если да, то как? Помогите пож-та. Спасибо. Последний раз редактировалось NaMoRZA; 07.06.2012 в 16:59. Причина: Правка форматирования |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Книги по графам. нахождение пути | Rusl92 | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 17.12.2008 14:44 |
Значение ячейки по названию листа | VadimSh | Microsoft Office Excel | 4 | 02.12.2008 15:29 |
Как задать свойства ячейки в Excel? | Dux | Microsoft Office Excel | 6 | 16.08.2008 17:03 |
Защитить ячейки в Excel | Т@тьян@ | Общие вопросы Delphi | 2 | 29.04.2008 14:47 |
Как разделить число и текст в одной ячейки на две ячейки. | neboskreb | Microsoft Office Excel | 2 | 15.04.2008 19:39 |