Снятие цифровых подписей и защиты листа для множества файлов

[lugafin]

Добрый день,
Сейчас посадили делать очень, если так можно выразиться, монотонную работу. Что есть:
1. Есть папка в которой находятся 7+ тыс файлов Excel (*.xls, *.xlsx)
2. Некоторые файлы защищены цифровой подписью (одной или несколькими)
3. У каждого файла файла защищён первый лист (пароль везде одинаковый)
Задача такова:
Убрать из каждого файла и цифровую подпись и защиту листа.

Если кто-нибудь с подобным сталкивался буду очень признателен за помощь!

[Казанский]

Запишите в макрос снятие цифровой подписи и защиты. Добавьте цикл по всем файлам в папке (поиск рулит).

[lugafin]

К сожалению, я далёк от программирования в принципе.

Поэтому и пришёл на форум.

[lugafin]

Проявив немного логики, гугла и смекалки получилось наваять такой макрос:

Option Explicit
Option Compare Text

Const FLDR As String = "C:\Users\Al\Desktop\fin"

Sub Serge_007()

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        processFolder FLDR
        .EnableEvents = True
        .ScreenUpdating = True
    End With
    MsgBox "Готово"
End Sub

Private Sub processFolder(fName As String)
    Dim fso As Object, file As Object, wb As Workbook, VBC As Object

    Set fso = CreateObject("scripting.filesystemobject")
    Set fso = fso.getfolder(fName)
    For Each file In fso.Files
        If file.Name Like "*.xls*" Then
            Set wb = Workbooks.Open(file)
            With wb.Sheets(1)
                .Unprotect Password:="Vjifr"
              
            End With
            wb.Close True
        End If
  
    Next
End Sub

Насколько я понимаю, сия шайтан-операция должна будут удалить защиту с листов в книге.

Только вот работать не хочет, буду думать.

К сожалению про цифровые подписи так ничего и не нашёл, если у Вас есть что-нибудь - помогите -)

[Hugo121]

Думаю нужно

Const FLDR As String = "C:\Users\Al\Desktop\fin\"

Не проверял.

[lugafin]

Спасибо.

Много покопался в различной литературе теперь всё работает и я счастлив -)

Пойду бить баклуши!

Всем кто постарался помочь - шикарных выходных!

ЗЫ
Макрос приведённый выше, как оказалось, работает (вопрос был в наличии цифровых сертификатов)
Решение моей проблемы я нашёл в надстройке RDB Merge - просто консолидировал все данные из файлов в одной книге(как оказалось - плевать хотела эта программа на цифровые сертификаты), после чего наколбасил в Экселе макрос на копирование данных в нужной мне последовательности.