Bir çalışma kitabını şifreleyecek şekilde farklı kaydederek yedeğini oluşturan VBA kodu alternatifidir.
Option Explicit
Sub SifreleyerekYedekAl()
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs _
Filename:="D:\Yedek.xlsm", _
Password:="1234", _
WriteResPassword:="", _
ReadOnlyRecommended:=False, _
CreateBackup:=False
Application.DisplayAlerts = True
End Sub