Логотип
Надстройка VBA-Excel
Алексей спасибо большое за вашу надстройку, очень облегчает жизнь!!!
Анастасия

Функция для генерации паролей в Excel

Функция ГЕНЕРАЦИЯПАРОЛЯ поможет создать пароль любой длины и сложноси прямо в Excel

 

Добавить в Excel!

Установите программу

*Этого функционала нет в стандартном Excel

 Скачали:  29 436 чел.

Описание функции

Функция =ГЕНЕРАЦИЯПАРОЛЯ([ДЛИНА]; [ВКЛ_СИМВ]) имеет два необязательных аргумента

  • [ДЛИНА] - Длина пароля. По умолчанию генерируется пароль из 8 символов.
  • [ВКЛ_СИМВ] - 0 (по умолчанию) - если пароль не должен содержать символы и 1 если в пароле должны содержаться символы.

Ниже приведены различные примеры работы данной функции.

Пример 1

Генерация пароля из 8 символов.

Пример 1 функции ГЕНЕРАЦИЯПАРОЛЯ

Пример 2

Генерация пароля заданной длины.

Пример 2 функции ГЕНЕРАЦИЯПАРОЛЯ

Пример 3

Генерация сложного пароля заданной длины с использованием дополнительных символов.

Пример 3 функции ГЕНЕРАЦИЯПАРОЛЯ

Код на VBA

Function ГЕНЕРАЦИЯПАРОЛЯ(Optional ДЛИНА As Integer = 8, Optional ВКЛ_СИМВ As Boolean = False) As String
 
    Dim i As Integer
    Dim simb As String * 1
    Dim arrsimb As Integer
    Dim password As String
    Randomize
 
    If ВКЛ_СИМВ = False Then
        For i = 1 To ДЛИНА
            arrsimb = Int(Rnd * 3)
            Select Case arrsimb
                Case 0
                    simb = Int(Rnd * 9)
                Case 1
                    simb = Chr(Int((90 - 65 + 1) * Rnd + 65))
                Case 2
                    simb = Chr(Int((122 - 97 + 1) * Rnd + 97))
            End Select
 
            password = password & simb
        Next
    Else
        For i = 1 To ДЛИНА
            simb = Chr(Int((126 - 33 + 1) * Rnd + 33))
            password = password & simb
        Next
    End If
 
    ГЕНЕРАЦИЯПАРОЛЯ = password
End Function

Установка

Обращаем Ваше внимание, что функционал, описанный в данной статье, ОТСУТСТВУЕТ в Excel.

Чтобы его добавить, необходимо установить надстройку VBA-Excel. Данная программа содержит более сотни функций, которые сделают работу с Excel в разы эффективней. С ней рутинные задачи будут занимать считанные секунды. Программой уже воспользовались 29 436 чел., попробуйте и Вы!


Установите программу

Ссылки по теме

  1. Случайное число между двумя значениями в Excel
  2. Случайная ячейка в Excel

Комментарии:

comments powered by Disqus