Снимите защиту с файла Excel до того, как он попытается открыть - PullRequest
0 голосов
/ 17 января 2020

Я защитил свои файлы Excel с помощью кода VBA. Теперь мне нужен код, который снимает защиту с файлов, которые я уже защищал. Например:

Мой защищенный файл имеет пароль: 1234

Когда я пытаюсь открыть файл, всплывающее окно запрашивает пароль (например, когда вы защищаете Excel на уровне файла)

Я хочу снять защиту автоматически и не знаю, как это сделать.

Пожалуйста, смотрите ниже код для защиты файлов.

Private Sub CommandButton1_Click()

Dim path As String
Dim masterfile As Workbook

Application.DisplayAlerts = False

Set masterfile = ThisWorkbook
'Set masterfile = Workbooks("I:\protect workbooks.xlsm")

For i = 3 To 4

    masterfile.Activate
    path = Worksheets("Files").Range("B" & i)
    Workbooks.Open Filename:=path
    ActiveWorkbook.SaveAs Filename:=path, Password:="AT2020", WriteRespassword:="AT2020"
    ActiveWorkbook.Save
    ActiveWorkbook.Close

Next i

MsgBox "The files are now protected"

End Sub

Есть предложения, как снять защиту?

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...