За да създадете пароли с Excel, съм създал снощи скрипт на VBA, в които човек може да определя броя на паролите, както и броя на символите, всеки път. В допълнение към паролата, да се използва, когато Ieichen също редактира.
Под парола създаването ()
На Дим myArray Като Вариант
myArray = array ("", 1, 2, 3, 4, 5, 6, 7, 8, 9, 0, "A", "B", _
"C", "D", "E", "F", "G", "H", "I", "J", "N", "L", "M", _
"N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z "_
"А", "б", _
"C", "г", "д", "F", "ж", "з", "Аз", "J", "к", "л", "м", _
"N", "о", "P", "Q", "R", "S", "Т", "U", "V", "W", "Х", "Y", "Z "_
"" "" "" "_", "§" "$", "%", "&", "/", "(" _
")", "=" "" "#", "+")
, Дим Като Integer VarAnzahl2
VarAnzahl2 = UBound (myArray)
На Дим VarAnzahl Като Вариант
VarAnzahl Application.InputBox = ("Брой на пароли, които ще бъдат създадени", "парола за създаване", 10,,,,, 1)
На Дим VarLaenge Като Вариант
("Колко знака трябва да имат парола?", "Парола за създаване", 8,,,,, 1) = VarLaenge Application.InputBox
, Дим Като Integer VarColumn
, Дим Като Integer varPassword
, Дим Като Integer VarRow
String Dim StrgPassword
Ако Не е TypeName (VarAnzahl) = "Boolean" Тогава
Случайни
VarColumn = ActiveCell.Column
VarRow = ActiveCell.Row
За VarRow = VarRow до VarRow + VarAnzahl
За varPassword = 1 до VarLaenge
StrgPassword StrgPassword = & myArray (INT (Rnd * VarAnzahl2 + 1))
Следваща varPassword
Ако Application.WorksheetFunction.CountIf (ActiveCell.EntireColumn, StrgPassword) = 0, тогава
ActiveSheet.Cells (VarRow VarColumn) стойност = StrgPassword
Крайна сметка, ако
StrgPassword = ""
Следваща VarRow
Крайна сметка, ако
End Sub
Паролите са написани от линия, която е незабавно подчерта като активно.
