Вы можете создать макрос, для запуска которого потребуется пароль.
Затем этот макрос может войти, снять защиту листа (с паролем текущего листа) и удалить заблокированное свойство листов.
Sub PasswordProtectedMacro()
Dim Password As String
Do Until Password = "edit"
Password = InputBox("Please enter password below", "Password", "????")
If Password = "" Then
Exit Sub
End If
Loop
ActiveSheet.UnProtect Password:="YourPassword", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
Cells.Select
Selection.Locked = False
Selection.FormulaHidden = False
Range("A1").Select
End Sub
"YourPassword" = Оригинальный пароль защиты листа
"Редактировать" = пароль, необходимый для работы макроса, как описано
Они могут быть одинаковыми. просто отредактируйте в соответствии с вашими потребностями и т. д.
Ответ на ваш вопрос - НЕТ, это всего лишь обходной путь, надеюсь, это поможет.