1 Тема от Lidiya

  • Lidiya
  • Участник
  • Неактивен

Тема: VBS: Как снять пароль из VBScript с листа книги Excel

Уважаемые господа!
Пытаюсь из скрипта открыть книгу 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 и программа успешно работает.
Подскажите, как автоматизировать этот процесс.

Заранее благодарна за ответ.

2 Ответ от Dmitrii (изменено: Dmitrii, 2011-04-08 13:26:54)

  • Dmitrii
  • Разработчик
  • Неактивен

Re: VBS: Как снять пароль из VBScript с листа книги Excel

ExcelApp.Sheets("Лист1").Unprotect Password="123"
То, что выделено красным,- лишнее.

3 Ответ от Lidiya

  • Lidiya
  • Участник
  • Неактивен

Re: VBS: Как снять пароль из VBScript с листа книги Excel

Уважаемый Dmitrii! СПАСИБО огромное! Теперь все работает.

4 Ответ от alexii

  • alexii
  • Разработчик
  • Неактивен

Re: VBS: Как снять пароль из VBScript с листа книги Excel

Lidiya, ознакомьтесь со справкой по BBCode. Я поправил Ваши посты.

5 Ответ от Lidiya

  • Lidiya
  • Участник
  • Неактивен

Re: VBS: Как снять пароль из VBScript с листа книги Excel

Спасибо большое, господин Администратор!
В следующий раз я обязательно воспользуюсь этими кодами.
У Вас так все красиво и наглядно получилось!
А я рада ответу Дмитрия - у меня все работает.