Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Set Encryption
Sub SetEncryption()
    Dim myWorkbook As Workbook, pass As String
    Set myWorkbook = ThisWorkbook
    myWorkbook.SetPasswordEncryptionOptions "Microsoft Strong Cryptographic Provider", "RC4", 128, True
End Sub