Спасибо за помощь

получилось!  
 
если не тяжело объясните пожалуйста что значит - Asc([a1]) = 48

{quote}{login=KukLP}{date=31.01.2011 02:57}{thema=}{post}Вот так сделайте и вносите вручную, что хотите. При появлении круга Е1 обнулится.  
Private Sub Worksheet_Change(ByVal Target As Range)  
If Target.Address <> [a1].Address Then Exit Sub
If Asc([a1]) = 48 Then [e1] = 0
End Sub{/post}{/quote}  
 
спасибо большое за помощь только у меня не получается это сделать для нескольких ячеек - см. файл

мне важно то что бы значение в ячейке E1 обнулялось при круглом сечении.  
А число 50 потом можно поменять на другое.

Дело в том, что данные в ячейку Е1 вводятся в ручную (если сечение квадратное), если круглое ячейку нужно очистить.

Здраствуйте!  
Подскажите пожалуйста как в VBA написать код который бы при изменении ячейки "A1", изменял значение ячейки "E1":  
если сечение квадратное "□ " - значение 50;  
если круглое "○" значение 0 ("")

{quote}{login=The_Prist}{date=26.12.2009 11:10}{thema=}{post}Пользуйте. Из ячеек А1, B1, С1 любого листа книги нельзя удалить данные клавишами - Del и Backspace.{/post}{/quote}  
 
А как сделать чтобы  макрос запускался при открытии файла?

Спасибо за пример, только мне нужно запретить нажимать delete не на всех ячейках, а на отдельных.

Помогите пожалуйста скомпоновать код VBA, если это конечно возможно  
Private Sub Worksheet_Change(ByVal Target As Range)  
If Target.Count > 1 And Target.MergeCells = False Then Exit Sub  
  Select Case Target.Cells(1).AddressLocal(False, False)  
'Нагрузка №1  
    Case "D8"  
        If Target.Value = "—" Then  
           Range("I8").Value = ""  
        End If  
'Нагрузка №2  
    Case "D9"  
        If Target.Value = "—" Then  
           Range("I9").Value = ""  
        End If  
'Нагрузка №3  
    Case "D10"  
        If Target.Value = "—" Then  
           Range("I10,K10,N10").Value = ""  
        End If  
'Параметры нагрузки №3  
    Case "I10"  
     Application.EnableEvents = False  
        If IsEmpty(Target.Cells(1)) Then  
           Range("D10").Value = "—": Range("K10,N10").Value = ""  
        Else  
           If Range("F4").Value = "деревянное" Or Range("F4").Value = "деревянный" Then  
           Range("D10").Value = "Брус"  
           Else  
           Range("D10").Value = "Бетонная стяжка"  
           End If  
        End If  
      Application.EnableEvents = True  
    Case "K10"  
     Application.EnableEvents = False  
        If IsEmpty(Target.Cells(1)) Then  
           Range("D10").Value = "—": Range("I10,N10").Value = ""  
        Else  
           If Range("F4").Value = "деревянное" Or Range("F4").Value = "деревянный" Then  
           Range("D10").Value = "Брус"  
           Else  
           Range("D10").Value = "Бетонная стяжка"  
           End If  
        End If  
      Application.EnableEvents = True  
    Case "N10"  
     Application.EnableEvents = False  
        If IsEmpty(Target.Cells(1)) Then  
           Range("D10").Value = "—": Range("I10,K10").Value = ""  
        Else  
           If Range("F4").Value = "деревянное" Or Range("F4").Value = "деревянный" Then  
           Range("D10").Value = "Брус"  
           Else  
           Range("D10").Value = "Бетонная стяжка"  
           End If  
        End If  
      Application.EnableEvents = True  
  End Select  
End Sub

Спасибо большое! Выручили.

прошу прощения, я не думал что это так сложно, что надо все условия оговаривать

и опять удалить - не работает

Да почти так.  
Только если в эту же ячейку (В1:С1) ввести число - больше не работает

это понятно, только в некоторых случаях чтобы нужно что бы было объединение.  
Можно это как нибудь сделать?

Спасибо большое за пример.  
Только почему то не работает если ячейка B1 объединена с С1

Здраствуйте!  
Подскажите пожалуйста как в VBA написать код который бы при очистки ячейки "B1" клавишей DEL, изменял значение ячейки "A1" например с 10 на 20.