Desproteger Celda
Buen día, estoy realizando una macro y me surgió una duda, tengo la hoja1 protegida y quiero cuando se marque un checkbox se desproteja una celda sin desproteger toda la hoja y cuando se desmarque se vuelva a proteger.
Gracias, Saludos.
Gracias, Saludos.
1 Respuesta
Respuesta de Elsa Matilde
1
Si lo que estás intentando es con la celda vinculada con el checkbox no podrás, porque al intentar darle clic te dará error por estar protegida. La celda vinculada tiene que estar siempre desbloqueada.
Si se trata de otra celda, sí podrás usar esta rutina asignada al control checkbox:
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
ActiveSheet.Unprotect
Range("G3").Locked = False
'ActiveSheet.Protect ' opcional: volverla a proteger
Else
ActiveSheet.Unprotect
Range("G3").Locked = True
ActiveSheet.Protect
End If
End Sub
Si se trata de otra celda, sí podrás usar esta rutina asignada al control checkbox:
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
ActiveSheet.Unprotect
Range("G3").Locked = False
'ActiveSheet.Protect ' opcional: volverla a proteger
Else
ActiveSheet.Unprotect
Range("G3").Locked = True
ActiveSheet.Protect
End If
End Sub
