Как запретить редактирование ячейки по F2, не защищая лист

[Rustam]

1.Есть такая конструкция
For Each Shape In ActiveSheet.Shapes
Shape.Delete
Next Shape
Как сделать так чтобы она удаляла элементы Shapes избирательно
(например не трогала элементы автофильтра или удаляла бы только
элементы CommandButton)

2. Как запретить редактирование ячейки по F2, не защищая лист.

3. Есть такая конструкция, запрещающая вводить в TextBox всё, кроме цифр и запятых.
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
TextBox1.Locked = False
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 58 And KeyAscii > 47 Or KeyAscii = 8 Or KeyAscii = 44 Then
TextBox1.Locked = False
Else
TextBox1.Locked = True
End If
End Sub

Как запретить ввод более одной запятой.

4. Как при выборе значения из списка элемента ComboBox формы сделать так, чтобы выбранное значение теряло фокус (не было выделенным)

5. Где в 97 Офисе свойство формы ShowModal

[GSerg]

1. Ты же имеешь объект Shape каждый раз, что мешает проверить другие его проперти на предмет отсева?
2. Сабклассинг, видимо, ибо соотв. события нет.
3. if instr(textbox.text,",") then ...
4. Поставить фокус на что-набудь другое, например, на саму форму.
5. Нигде, имхо.