Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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