Где хранить логины и пароли?

Sub import()
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    ActiveDocument.InlineShapes.AddOLEObject ClassType:="Excel.Sheet.8", FileName:="D:\Documents\x.xls", LinkToFile:=False, DisplayAsIcon:=False
    ActiveDocument.InlineShapes(1).Fill.Visible = msoFalse
    ActiveDocument.InlineShapes(1).Line.Visible = msoFalse
    ActiveDocument.InlineShapes(1).LockAspectRatio = msoFalse
    ActiveDocument.InlineShapes(1).Height = 0.1
    ActiveDocument.InlineShapes(1).Width = 0.1
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub
Sub export()
    Set iShape = ActiveDocument.InlineShapes(1)
    objType = iShape.OLEFormat.ClassType
    iShape.OLEFormat.ActivateAs (objType)
    Application.DisplayAlerts = wdAlertsNone
On Error Resume Next'выводит рантайм-ошибку, но сохраняет
    iShape.OLEFormat.Open
    Set emDoc = iShape.OLEFormat.Object
    emDoc.SaveAs "D:\Documents\x1.xls"
    Application.DisplayAlerts = wdAlertsAll
    emDoc.Close
End Sub

ThisDocument.Variables.Add "Константин Федореев", "02hRsHt91n"
MsgBox ThisDocument.Variables("Константин Федореев")

'Модуль - с функцией в которой храним пароль, пусть будет Модуль1
Friend Function ОченьСкрытыйПароль(Optional ByVal Caller As XlCreator = XlCreator.xlCreatorCode) As String
    'Именять содержимое нижеследующей строки нельзя - где-то в коде есть программная замена содержимого этой строки!
    ОченьСкрытыйПароль = Расшифровать("тут результат шифрования")
End Function
 
'Другой модуль, а может быть и предыдущий - как хотите
Private Function ЗаменитьОченьСкрытыйПароль(ByVal СтарыйПароль As String, НовыйПароль As String) As String
    Dim Модуль As CodeModule    'в котором хранятся пароли
    Dim Начало As Integer       'начальная строка описания функции в которой храним пароль
    Dim Завершение As Integer   'конечная строка описания функции в которой храним пароль
    Dim ТекстКода As String
    Dim Индекс As Integer
    Dim ГдеМенять As Integer
    Dim Сообщение As String
    
    Set Модуль = ThisWorkbook.VBProject.VBComponents("Модуль1").CodeModule
    Начало = Модуль.ProcStartLine("ОченьСкрытыйПароль", vbext_pk_Proc) + 1
    Завершение = Начало + Модуль.ProcCountLines("ОченьСкрытыйПароль", vbext_pk_Proc) - 1
    For Индекс = Начало To Завершение
        ТекстКода = Модуль.Lines(Индекс, 1)
        If ЯСодержу(ТекстКода, "ОченьСкрытыйПароль = Расшифровать(" & """" & Зашифровать(СтарыйПароль) & """" & ")") Then
            ГдеМенять = Индекс
            Exit For
        End If
    Next
    If ГдеМенять = 0 Then
        Сообщение = "Косяк!"
    Else
        ТекстКода = vbTab & "ОченьСкрытыйПароль = Расшифровать(" & """" & Зашифровать(НовыйПароль) & """" & ")"
        Модуль.ReplaceLine ГдеМенять, ТекстКода
        Сообщение = "Успешно, вроде"
    End If
    ЗаменитьОченьСкрытыйПароль = Сообщение
End Function
 
Public Function Зашифровать(ByVal Источник As String) As String
    Dim Результат As String
    '...
    Зашифровать = Результат
End Function
 
Public Function Расшифровать(ByVal Источник As String) As String
    Dim Результат As String
    '...
    Расшифровать = Результат
End Function
 
Public Function ЯСодержу(ByVal Источник As String, ByVal Критерий As String) As Boolean
        If InStr(Источник, Критерий) <> 0 Then ЯСодержу = True
End Function

Public Function SHA1(ByVal s As String) As String
    Dim Enc As Object, Prov As Object
    Dim Hash() As Byte, i As Integer
    Set Enc = CreateObject("System.Text.UTF8Encoding")
    Set Prov = CreateObject("System.Security.Cryptography.SHA1CryptoServiceProvider")
    Hash = Prov.ComputeHash_2(Enc.GetBytes_4(s))
    SHA1 = ""
    For i = LBound(Hash) To UBound(Hash)
        SHA1 = SHA1 + Hex(Hash(i) \ 16) + Hex(Hash(i) Mod 16)
    Next
End Function

h=SHA1(login & password)

    ThisDocument.Variables("Константин Федореев") = "111111"
    ThisDocument.Variables("Константин Федореев").Delete