Ошибка времени выполнения '1004' Невозможно установить свойство NumberFormat Range Class

Question

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

Private Sub CommandButton1_Click()
Dim ts As Date

With Selection

.Value = Now

.NumberFormat = "h:mm AM/PM"

End With
End Sub

Answer 1

AllowFormattingCells

Необходимо разрешить форматирование ячеек.

или в VBA

ActiveSheet.Protect AllowFormattingCells:=True

Answer 2

Форматирование листа может считаться изменением листа.Вы можете отформатировать значение, хотя.

With Selection
    .Value = Format(Now, "h:mm AM/PM")
End With