Macro para activar, desactivas celdas
Buenas, quiero saber si se puede hacer y como.
El caso es que tengo un formulario que me envía los datos a unas celdas especificas, pero quiero que todas las celdas estén bloqueadas con clave y solo por medio el formulario se puede introducir información a la hoja de calculo.
1 Respuesta
Respuesta de Dante Amor
1
Primero deberás bloquear la hoja, Menu: Herramientas / Proteger / Proteger hoja, escribe una contraseña, presiona aceptar, repite la misma contraseña y presiona Aceptar
En este momento todas las celdas están bloqueadas.
La siguiente macro desbloquea la hoja, envía los datos del formulario a la hoja y por último vuelve a bloquear la hoja, en el código va el password "123", cámbialo por el que prefieras.
Private Sub CommandButton1_Click()
'Para desproteger la hoja
ActiveSheet.Unprotect Password:="123"
'Aquí va el código del form
Range("B5") = TextBox1
'Para proteger la hoja con password 123
ActiveSheet.Protect Password:="123", DrawingObjects:=True, _
Contents:=True, Scenarios:=True
End SubSaludos.Dam
