создайте макрос который будет кодировать текст заменяя буквы "а" в тексте указанной ячейки на произвольный символ и выводить закодированный текст в новой ячейке.

Исходный текст поместить в ячейку A1, результат будет в А2Sub Rep()    n1 = Asc(" ")    n = Asc("я") - n1 + 1    Randomize Timer    s = Cells(1, 1).Value    For i = 1 To Len(s)        If Mid(s, i, 1) = "а" Then            Mid(s, i, 1) = Chr(Int(n * Rnd + n1))        End If    Next i    Cells(2, 1).Value = sEnd SubТестовое решение: Наша Маша - растеряша!Н3шЮ МHш# - рястеряшМ!