winforms-spreadsheet-load-and-save-a-password-encrypted-files/VB/EncryptionExample/Form1.vb at 24.2.1+ · DevExpress-Examples/winforms-spreadsheet-load-and-save-a-password-encrypted-files · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
Imports DevExpress.Spreadsheet
Imports System
Imports System.ComponentModel
Imports System.Drawing
Imports System.Windows.Forms

Namespace EncryptionExample

    Public Partial Class Form1
        Inherits DevExpress.XtraBars.Ribbon.RibbonForm

        Private documentName As String = "encrypted.xlsx"

        Public Sub New()
            InitializeComponent()
            InitializeEncryptionTypeComboBox()
            InitializePasswordEdit()
            ' The EncryptedFileIntegrityCheckFailed event allows you to perform custom actions when trying to load a corrupted file.
            AddHandler spreadsheetControl1.EncryptedFileIntegrityCheckFailed, AddressOf SpreadsheetControl1_EncryptedFileIntegrityCheckFailed
            ' If
            ' The EncryptedFilePasswordRequest event allows you to specify a password in the event handler.
            AddHandler spreadsheetControl1.EncryptedFilePasswordRequest, AddressOf SpreadsheetControl1_EncryptedFilePasswordRequest
        End Sub

        Private Sub InitializeEncryptionTypeComboBox()
            For Each currentValue As EncryptionType In [Enum].GetValues(GetType(EncryptionType))
                CType(barEncryptionTypeComboBox.Edit, DevExpress.XtraEditors.Repository.RepositoryItemComboBox).Items.Add(currentValue.ToString())
            Next

            barEncryptionTypeComboBox.EditValue = EncryptionType.Strong.ToString()
        End Sub

        Private Sub InitializePasswordEdit()
            barPasswordEdit.EditValue = "123"
        End Sub

        Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
#Region "#OptionsImportPassword"
            spreadsheetControl1.Options.Import.Password = "123"
            spreadsheetControl1.LoadDocument(documentName)
#End Region  ' #OptionsImportPassword
        End Sub

        Private Sub barPasswordEdit_EditValueChanged(ByVal sender As Object, ByVal e As EventArgs)
            spreadsheetControl1.Options.Import.Password = barPasswordEdit.EditValue.ToString()
        End Sub

        Private Sub barBtnSetEncryptionTypeAndPassword_ItemClick(ByVal sender As Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs)
#Region "#SetEncryptionTypeAndPassword"
            Dim workbook As IWorkbook = spreadsheetControl1.Document
            workbook.DocumentSettings.Encryption.Type = CType([Enum].Parse(GetType(EncryptionType), barEncryptionTypeComboBox.EditValue.ToString()), EncryptionType)
            workbook.DocumentSettings.Encryption.Password = barPasswordEdit.EditValue.ToString()
            spreadsheetControl1.SaveDocumentAs()
#End Region  ' #SetEncryptionTypeAndPassword
        End Sub

        Private Sub barBtnLoadCorruptedFile_ItemClick(ByVal sender As Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs)
            spreadsheetControl1.LoadDocument("corrupted.xlsx")
        End Sub

#Region "#EncryptedFilePasswordRequest"
        Private Sub SpreadsheetControl1_EncryptedFilePasswordRequest(ByVal sender As Object, ByVal e As EncryptedFilePasswordRequestEventArgs)
            If Equals(e.DocumentName, "encrypted_test.xlsx") Then e.Password = "test"
            If Equals(e.DocumentName, "corrupted.xlsx") Then e.Password = "000"
            e.Handled = True
        End Sub

#End Region  ' #EncryptedFilePasswordRequest
#Region "#EncryptedFileIntegrityCheckFailed"
        Private Sub SpreadsheetControl1_EncryptedFileIntegrityCheckFailed(ByVal sender As Object, ByVal e As EncryptedFileIntegrityCheckFailedEventArgs)
            e.Cancel = True
            e.Handled = True
            MessageBox.Show("File is corrupted. Cannot load.", "Warning")
        End Sub

#End Region  ' #EncryptedFileIntegrityCheckFailed
        Private Sub barCheckSubscribeEvent_CheckedChanged(ByVal sender As Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs)
            If barCheckSubscribeEvent.Checked Then
                AddHandler spreadsheetControl1.EncryptedFilePasswordRequest, AddressOf SpreadsheetControl1_EncryptedFilePasswordRequest
            Else
                RemoveHandler spreadsheetControl1.EncryptedFilePasswordRequest, AddressOf SpreadsheetControl1_EncryptedFilePasswordRequest
            End If
        End Sub
    End Class
End Namespace