Expandir una tabla con hoja protegida XLS
Necesito saber como podría expandir una tabla si tengo la hoja de XLS protegida para que los usuarios solo puedan introducir datos en unas celdas concretas, pero no puedan modificar el resto.
1 respuesta
Respuesta de Dante Amor
1
Puedes crear un userform con los datos que necesitas que capturen los usuarios. En el mismo userform poner el código para pasar, desproteger la hoja, poner los datos en la hoja y volver a proteger la hoja.
Por ejemplo:
El código para guardar los datos sería algo así:
Private Sub CommandButton1_Click()
'Por.Dante Amor
'guardar los datos en la hoja "datos"
'
If TextBox1 = "" Then
MsgBox "Falta el dato1"
Exit Sub
End If
If TextBox2 = "" Then
MsgBox "Falta el dato2"
Exit Sub
End If
'
Set h = Sheets("datos")
h.Unprotect "abc"
u = h.Range("A" & Rows.Count).End(xlUp).Row + 1
h.Cells(u, "A") = TextBox1.Value
h.Cells(u, "B") = TextBox2.Value
h.Cells(u, "C") = TextBox3.Value
h.Cells(u, "D") = TextBox4.Value
h.Protect "abc"
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Feliz Año 2018
.
