Sub SetEncryption() Dim myWorkbook As Workbook, pass As String Set myWorkbook = ThisWorkbook myWorkbook.SetPasswordEncryptionOptions "Microsoft Strong Cryptographic Provider", "RC4", 128, True End Sub