ввод пароля из текстового файла

[DMITRIY_78]

Ребята! не судите строго но как смог придумать тему так и навоял, может кто поможет:
суть моего кода такой маневр:
при файла XL запускается :
1. формируется файл pass.txt в котором
2. запускается генератор, формирует строку с паролем
3. строка записывается в память переменной Spp
в InputBox вводится пароль из файла pass.txt в ручную

и при каждом открывании файла генератор формирует новый пароль
и записывается в файл pass.txt

загвоздка в том что при каждом открытии файла pass.txt запись
остается одна и та же. а по замыслу генератор должен формировать разную строку в текстовом файле
1. работа генератора функции

Public Function генератор(Optional Lenght As Integer = 8)
    For S = 1 To Lenght
        choice = Int(Rnd * 3)
        If choice = 0 Then
            nextsymbol = Int(Rnd * 9)
        End If
        If choice = 1 Then
            nextsymbol = Chr(Int((90 - 65 + 1) * Rnd + 65))
        End If
        If choice = 2 Then
            nextsymbol = Chr(Int((122 - 97 + 1) * Rnd + 97))
        End If
        PassTxt = PassTxt & nextsymbol
    Next S
    генератор = PassTxt
End Function

2. создание/запись в текстовый файл

Sub записьфайл()
    Spp = генератор 'ЗАНОШУ ДАННЫЕ В ПЕРЕМЕННУЮ
Dim ff As Integer
'Получаем свобод номер для открываемого файла
ff = FreeFile
'создаем файл для чтения и записи
Open ThisWorkbook.Path & "\pass.txt" For Output As ff
'Записываем в файл
Write #ff, Spp
'Закрываем файл
Close ff
End Sub

3. Проверка пароля

Private Sub Workbook_Open() 'проверка пароля
Call записьфайл
ActiveWorkbook.Windows(1).Visible = False
Dim password As String
Do
If PassCorr Then Exit Sub
        password = InputBox("Доступ по паролю: генератор сформировал  пароль", "Сообщение")
If StrPtr(password) = 0 Then 'если нажата кнопка отмена
    MsgBox "Нажата кнопка Отмена.", vbExclamation, "Сообщение"
'========== закрываем приложение
        sName = "ПЕРЕОФОРМЛЕНИЕ.xlsm"
            Workbooks(sName).Close
                Documents.Close wdDoNotSaveChanges
'=============
Exit Do
ElseIf password = "" Then 'проверка поля на наличие значения пусто
    MsgBox "Поле пароля имеет значение ПУСТО, повторите ввод пароля!", vbCritical, "Сообщение"

ElseIf password = Spp Then 'ПРОВЕРКА ПРАВИЛЬНОСТИ ПАРОЛЯ
'========== цикл для отображение всех листов
For Each wb In Workbooks
  For Each w In wb.Windows
      w.Visible = True
  Next
Next
Sheets("0000").Select
Exit Sub

'====
ElseIf password = "911" Then
        MsgBox " ПОЗДРАВЛЯЕМ!", 16, "Важная информация"
        .........................
        Exit Sub
Exit Do
'====
Else
    MsgBox "Пароль" & " - " & password & " - " & ", НЕ ВЕРНЫЙ, " & vbCrLf & _
    "нажмите кнопку ОТМЕНА !", vbInformation, "Сообщение"
End If
Loop
End Sub

[Serge_Bliznykov]

Сообщение от DMITRIY_78

загвоздка в том что при каждом открытии файла pass.txt запись
остается одна и та же. а по замыслу генератор должен формировать разную строку в текстовом файле

а где и когда Вы вызываете записьфайл() ?

[DMITRIY_78]

п 3.
кода открываю файл xl

Private Sub Workbook_Open() 'проверка пароля
Call записьфайл
.....

[DMITRIY_78]

если напрямую запускать записьфайл() все нормально
может в закрытие файла xl поместить

Private Sub Workbook_BeforeClose(Cancel As Boolean)

хрень не получается

[Serge_Bliznykov]

Сообщение от DMITRIY_78

кода открываю файл xl
Код:
Private Sub Workbook_Open() 'проверка пароля
Call записьфайл

этой строчки в коде в сообщении изначально не было, вы ещё добавили потом.

ну ладно.

не смотрел, что происходит, а какой в этой схеме смысл.
Перед открытием книги сгенерировать новый пароль, записать его в файл и потом ждать его ввода?
Зачем это всё надо?

[DMITRIY_78]

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

[DMITRIY_78]

если пускаю stop - F8. все работает как надо
а по нормальному нифига

[Serge_Bliznykov]

во-первых, банальное отключение макросов в настройках MS Excel полностью отключит вашу "парольную защиту"

во-вторых, приведённый код НЕ РАБОЧИЙ

Сообщение от DMITRIY_78

If PassCorr Then Exit Sub

откуда взялась необъявленная и не иницилизированная переменная PassCorr?

[DMITRIY_78]

сдается мне что из памяти переменной не удаляется запись первоночальная

[DMITRIY_78]

да это лишнее убрал но код работает, у меня как то работает,