V hárku v ktorom to má pracovať:
1 označ všetky bunky a uprav formát buniek - ochrana tak, aby boli odomknuté
2 zamkni bunky stĺpca B
3 uzamkni hárok heslom "x" (tak je to v mojom kóde ako ukážka. Potom si heslo môžeš zmeniť podľa svojho želania, samozrejme treba v tomto zmysle upraviť i kód
4 do modulu makier tohto hárka vlož toto:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
ActiveSheet.Unprotect ("x")
Range("B" & Target.Row).Select
Select Case Target.Value
Case 1
With Selection
.Locked = False
.ClearContents
.Interior.Pattern = xlNone
.Interior.TintAndShade = 0
End With
Case 2
With Selection
.Locked = True
.FormulaR1C1 = "=RC[2]+RC[3]+RC[4]"
.Interior.ThemeColor = xlThemeColorDark1
.Interior.TintAndShade = -0.149998474074526
End With
Case Else
With Selection
.Locked = True
.ClearContents
.Interior.Pattern = xlNone
.Interior.TintAndShade = 0
End With
End Select
ActiveSheet.Protect ("x")
End If
End Sub
hotovo.Pre výpočet je použitý Tvoj vzorec, t.j. D+E+F
Je to v Exceli 2010.
Súbor musí byť uložený s príponou xlsm a pri otváraní odsúhlasené použitie makier.
Kompaktibilita s Open Office pravdepodobne nebude...