Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
[ Закрыто ] Копирование файлов и снятие паролей с книг, копирование запароленных файлов *xlsx без паролей
 
#1
19.05.2016 07:32:03
Привет всем знатокам и просто любителям excel!)

Вроде бы задачка простая но никак не выходит...

Есть 7 файлов с паролями на открытие, находятся в директории a

Необходимо их скопировать но уже без паролей на открытие, в директорию b.

Как одновременно с копированием снимать пароли ума не приложу

Код
Sub copy_file()    

    Dim sFileName As String, sNewFileName As String
    sFileName = "C:\WWW.xls" 
    sNewFileName = "D:\WWW.xls"
    If Dir(sFileName, 16) = "" Then MsgBox "Нет такого файла", vbCritical, "Ошибка": Exit Sub
    FileCopy sFileName, sNewFileName 
    MsgBox "Файл скопирован", vbInformation

End Sub
Изменено: CrazyKingKong - 19.05.2016 09:04:11
 
 
 
#2
19.05.2016 08:24:46
Доброе время суток
Цитата
CrazyKingKong написал:
ума не приложу
Может стоит приложить? :)
Записать макрорекордером ручную версию: открыть файл в папке А, ввести пароль, удалить пароль, сохранить как в папку В. Подумать и понять чем это отличается от простого копирования любого файла из папки в папку ;)
Успехов.
 
 
 
#3
19.05.2016 08:26:58
Увы, макрорекордер вышеописанные действия не фиксирует.
 
 
 
#4
19.05.2016 08:58:56
Зачем Вы пишете через строку? И код надо оформлять тегами, кнопка <...>
Код
Sub Макрос1()
    With Workbooks.Open("D:\Копия Книга2.xlsx", Password:="123")
        .SaveAs "c:\Копия Книга2.xlsx", Password:=""
        .Close
    End With
End Sub
Я сам - дурнее всякого примера! ...
 
 
 
#5
19.05.2016 09:03:35
Цитата
CrazyKingKong написал: макрорекордер вышеописанные действия не фиксирует.
Какой он не хороший. В прочем, Сергей уже дал ответ на шаг такого макроса :)
 
 
 
#6
19.05.2016 09:57:47
Камрад - kuklp, спасибо тебе большое.

Все элементарно оказалось на самом-то деле
 
 
 
#7
19.05.2016 21:13:47
CrazyKingKong, код Вы заметили, а это?
Цитата
kuklp написал: Зачем Вы пишете через строку?
Зачем???
 
 
 
#8
20.05.2016 07:38:57
Это на усмотрение автора.

Моя тема - с блэкджеком и куртизанками.
Изменено: CrazyKingKong - 20.05.2016 07:39:19
 
 
 
#9
20.05.2016 07:41:26
удалено
 
 
 
#10
20.05.2016 07:43:00
Вы похоже, на бан нарываетесь.
Я сам - дурнее всякого примера! ...
 
 
 
#11
20.05.2016 11:32:53
Уже.
 
 
 
Страницы: 1
Наверх