Public Property Let TestProperty(ByVal New_testProperty As Long)
If Ambient.UserMode = True Then
MsgBox "Свойство недоступно в режиме выполнения программы"
Exit Property
End If
'..........
End Property