Juan Carlos González Chavarría

If ActiveCell.Value = "False" Then Hoja1.OLEObjects("ToggleButton" & i).Object = False

Pones tus títulos en A12, etc. y modificas esta instrucción: SigFila = WorksheetFunction.CountA(Range("A:A")) + 12 Todo lo que digites se pondrá a partir de A13

Si no quieres utilizar macros, tienes que utilizar las Tablas Dinámicas.

¿Tienes conocimientos en programación?. De no ser así, se puede hacer pero ahorita no cuento con el tiempo suficiente.

Sirve para llevar a cabo varios cálculos en uno o más conjunto de valores. Por lo general se encierran entre llaves "{}". Estas llaves aparecen automáticamente al presionar las teclas Ctrol-Shift-Enter. Por ejemplo, si digitamos la fórmula...

Por programación.

Solo si bloqueas la hoja que contiene los datos, de otra forma no sabría decirte.

Adapta este código: Dim i As Integer With Sheets("TuHoja") For i = 1 To .OptionButton.Count .OptionButton(i).Value = False Next i

Como nunca lo he utilizado, desconozco si lo tiene. Sé que ahora se utiliza Microsoft Virtual Earth o Microsoft Live Maps.

Te tengo malas noticias. Excel no ofrece mucha protección, se puede violar fácilmente y casi que por cualquiera.