|
Q+ Anej,
Podrías utilizar en el Menú, la opción de Datos - Validación que es bien chévere...
Sin embargo si lo que necesitas es estrictamente lo que has escrito, entonces prueba
con este código que te copio acá. El Código lo debes pegar en el Módulo que corresponde a la Hoja donde tienes los datos. Puede ser Hoja1 o si le cambiaste el nombre la buscas por nombre En VB, pero normalmente está arriba de ThisWorkBook.
Este es el código:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ElValor
ElValor = Range("C6")
If ElValor = 45 Then
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Else
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
End If
End Sub
Saludos,
RCh.
|
