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

Question

У меня есть следующий код для защиты моего листа

Sub Lock_RESULT_SHEET ()

Application.ScreenUpdating = False

Sheets("RESULT").Select
ActiveSheet.Unprotect Password:="ABCD"
ActiveSheet.Cells.Locked = False



ActiveSheet.Range("A3:E5000").Locked = True


ActiveSheet.Protect Password:="ABCD", Contents:=True, DrawingObjects:=False, UserInterfaceOnly:=True, _
    AllowFormattingCells:=True, AllowFiltering:=True, AllowSorting:=True,AllowInsertingRows:=True,AllowInsertingColumns:=True

END SUB

## ЧТО ТАКОЕ ПРОБЛЕМА?## Здесь, в коде, я разрешил вставку как строк, так и столбцов, но пока я вставляю их, появляется всплывающее предупреждение, что «ячейка или диаграмма, которую вы пытаетесь изменить, находится на защищенном листе», выражает VBA. Помогите мне в этом.заранее спасибо.

Answer 1

Это должно быть все, что вам нужно добавить, как уже упоминалось @Jeeped.Убедитесь, что все, что вы пометили в Application.X = False, в конечном итоге вернулось к = True

Sub Lock_RESULT_SHEET ()

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Sheets("RESULT").Select
ActiveSheet.Unprotect Password:="ABCD"
ActiveSheet.Cells.Locked = False



ActiveSheet.Range("A3:E5000").Locked = True


ActiveSheet.Protect Password:="ABCD", Contents:=True, DrawingObjects:=False, UserInterfaceOnly:=True, _
    AllowFormattingCells:=True, AllowFiltering:=True, AllowSorting:=True,AllowInsertingRows:=True,AllowInsertingColumns:=True

Application.ScreenUpdating = True
Application.DisplayAlerts = True

END SUB