Привет всем,
Есть в наличии файл Excel в 60 мб. После внесения всех изменений структура файла частично защищается от изменений, устанавливается пароль на изменения. После чего файл отдается в работу. Такой файл, созданный в Excel2007, Excel2003 - отлично сжимался и занимал 3-5 мб. ПРи установке защиты в Excel2010 файл практически перестает сжиматься и долго открывается.
Покопавшись в инете, выяснил, что в Excel2010 идет шифрование идет по методу CBC (Cipher Block Chaining), в Office 2007 шифрование шло методом ECB (Electronic CookBook).
Можно ли поменять алгоритм шифрования для конкретного офиса2010? Кроме того, В VBA есть две константы (
1.
Office.EncryptionCipherMode.cipherModeCBC = 1
и
1.
Office.EncryptionCipherMode.cipherModeECB = 0
) - не могу понять их предназначения.
Фрагмент кода такой:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Dim p As Integer
On Error Resume Next
For p = 1 To Worksheets.Count
For i = LBound(spasswords) To UBound(spasswords)
ActiveWorkbook.Worksheets(p).Unprotect spasswords(i)
Next i
Next p
ActiveWorkbook.SetPasswordEncryptionOptions PasswordEncryptionProvider:="", _
PasswordEncryptionAlgorithm:="OfficeXOR", PasswordEncryptionKeyLength:=-1, _
PasswordEncryptionFileProperties:=False
For p = 1 To ActiveWorkbook.Worksheets.Count
ActiveWorkbook.Worksheets(p).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowFiltering:=True, AllowUsingPivotTables:= _
True, Password:=spasswords(UBound(spasswords))
Next p
On Error GoTo 0
ActiveWorkbook.Protect Structure:=True, Windows:=False, Password:=spasswords(UBound(spasswords))
