Я защитил свои файлы 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
Есть предложения, как снять защиту?