Excel VBA - Создайте еще один файл Excel с защищенным паролем

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

Option Explicit 

Sub Macro1() 

Dim Wk As Workbook 

Set Wk = Workbooks.Add 
Application.DisplayAlerts = False 
Wk.SaveAs Filename:=”B:\Test1.xlsx” 
Application.DisplayAlerts = True 

End Sub

Надеюсь, вы, ребята, можете помочь в этой части.

источник

2017-01-11 Jeeva

См http://stackoverflow.com/questions/3690793/how-to-protect-excel-workbook-using-vba – dgorti

'Wk.password =«пароль "' или 'Wk.protect" пароль ", в соответствии с тем, что вы хотите защитить. –

@VincentG спасибо. Я использую ** Wk.password = "password" ** и работает. Однако. Когда я запускаю этот код выше, вновь созданный файл открывается. Как подавить это? – Jeeva

Application.DisplayAlerts = False 
Application.ScreenUpdating = False 

ActiveWorkbook.SaveAs FileFormat:=xlNormal, Password:="pass", WriteResPassword:="", _ 
ReadOnlyRecommended:=False, CreateBackup:=False 

ActiveWorkbook.Close

Вот документация: Workbook.SaveAs Method (Excel)

источник

2017-01-11 07:59:02

Excel VBA - Создайте еще один файл Excel с защищенным паролем

ответ

Смежные вопросы