VBNet - Форум - Как снять пароль из VBScript с листа книги Excel

Вопрос: Как снять пароль из VBScript с листа книги Excel Добавлено: 08.04.11 12:19

Автор вопроса: Lidiya

Уважаемые господа!
Пытаюсь из скрипта открыть книгу EXCEL и снять пароль с листа.
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.WorkBooks.Open "C:\КнигаExcel.xls"
ExcelApp.Windows("КнигаExcel.xls").Activate
ExcelApp.Sheets("Лист1").Unprotect Password="123"
  Выходит сообщение об ошибке:
  "Неверный пароль. Убедитесь, что отключена клавиша CAPS LOCK и используется правильный регистр. Код 800A03EC. Источник Microsoft Office Excel"
  Если я ограничиваю команду
ExcelApp.Sheets("Лист1").Unprotect,
  то выходит окошко с предложением ввести пароль, ввожу спокойно 123 и программа успешно работает.
  Подскажите, как автоматизировать этот процесс.
Заранее благодарна за ответ
Ответить

Ответы Всего ответов: 4

Номер ответа: 1 Автор ответа: Just Вопросов: 4 Ответов: 330	Профиль \| \| #1	Добавлено: 08.04.11 12:55
	может пароль не вводится из-за отсутствия двоеточия? (Unprotect Password:="123" Ответить

Номер ответа: 2 Автор ответа: AxeL ICQ: 264730390 Вопросов: 2 Ответов: 106	Профиль \| \| #2	Добавлено: 09.11.11 02:46
	пароль должен передаваться при открытии книги: WorkBook.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad) В твоем случае это будет так: ExcelApp.WorkBooks.Open "C:\КнигаExcel.xls",,,,"123<br> Ответить

Номер ответа: 3 Автор ответа: AxeL ICQ: 264730390 Вопросов: 2 Ответов: 106	Профиль \| \| #3	Добавлено: 09.11.11 02:48
	"<br>" непонятно откуда затесалось, не должно его там быть Ответить

Номер ответа: 4 Автор ответа: Nikadim Вопросов: 0 Ответов: 6	Профиль \| \| #4	Добавлено: 25.12.11 15:14
	или ExcelApp.Sheets("Лист1".Unprotect Password:= "123" или ExcelApp.Sheets("Лист1".Unprotect "123" Ответить

Страница: 1 |