Новости:

К первому сообщению темы должен быть прикреплен файл примера в формате xls*.
Приложив пример, Вы избавите себя и других от вопросов типа "А какой критерий?", "А куда выводить результат?", "А сколько строк?" и все тех же просьб выложить файл. Рисовать за Вас Ваши же таблички с заданиями, а затем и решение к ним, никто желанием не горит. Да и, как показывает практика, в большинстве случаев без файла решения не найти.

Главное меню

Как поменять значение константы?

Автор Snekich, 13.12.2011, 20:45

« назад - далее »

Snekich


Задаю константу

Public Const MyPass = "пароль"

Как потом ее поменять из самой программы и что бы она работала и после перезапуска программы?


Что-то наподобии, только что бы новое значение записывалось в константу:

Sub ЗадатьПароль()
Dim p As String
p = InputBox("Введите старый пароль:", "Вы тот, кто знает пароль?")
If p = MyPass Then
p = InputBox("Введите новый пароль:", "Запомните пароль")
MyPass = p
End If
End Sub


Подскажите пожалуйста

kuklp

#1
Константа, она и есть константа. Ее нельзя поменять. Хотите менять - используйте переменную.
В общий модуль:
Public MyPass as String
а в модуль книги:
Private Sub Workbook_Open()
     MyPass = "пароль"
End Sub

Если хотите, чтоб измененный пароль сохранялся при переоткрытиях, можно использовать savesetting, customdocumentproperties, ячейку на скрытом листе и т.д..
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771