Снять защиту листа только с макросами в Excel

Question

У меня есть код, который защищает рабочую книгу, которая состоит из трех этапов: устранение защиты, запуск макросов и повторная защита.

Если клиент выбирает другой пароль вручную (он должен знать пароль кода),код отмены защиты больше не работает

Как отключить опцию отмены защиты, чтобы можно было отменять защиту только с помощью кода, чтобы предотвратить изменение пароля?

Answer 1

Вы можете защитить проект VBA, чтобы пользователь не мог увидеть код, а затем ввести код в пароле до выполнения остальной части кода (Инструменты> Свойства проекта VBA)

Dim password As Variant
pword = Application.InputBox("Please enter password", "Enter Password")

Select Case pword
    Case Is = "superstrongpassword"
        'insert code or maybe a GoTo statement?
    Case Else
        msgbox("Incorrect password")
        Exit sub
End Select

Операторы GoToможет сделать код трудным для чтения и отладки, но в этом случае это кажется простым использованием.

Надеюсь, это поможет.