Небольшой макрос Excel для генерации случайного пароля

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

Сохраняем файл excel как Книга Excel с поддержкой макросов (*xlsm). Вызываем сочетанием клавиш Alt+F11 Microsoft Visual Basic For Applications, в окне Project кликаем правой кнопкой мыши, выбираем Insert — Module и вставляем следующее:


Function CREATEPASS(Optional LENGTH As Integer = 8, Optional USE_SYMBOL As Boolean = False) As String
    Dim i As Integer
    Dim simb As String * 1
    Dim arrsimb As Integer
    Dim password As String
    Randomize
    If USE_SYMBOL = False Then
       For i = 1 To LENGTH
           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 LENGTH
          simb = Chr(Int((126 - 33 + 1) * Rnd + 33))
          password = password & simb
      Next
   End If
   CREATEPASS = password
End Function

Для генерации цифро-буквенного пароля в ячейке вводим: =CREATEPASS(10), где 10 - длина пароля;

Для генерации более сложного пароля включающего в том числе и знаки вводим: =CREATEPASS(10;"True").