Protect/Lock specific cells independently through button

Hi everyone,

I have the following question: I attached my file. In sheet "boekhouding" I want every cell in column H to contain a button that locks that specific row. So I can't accidently change the dropdownmenu for that row.

Is that possible?

I also have some sort of strange problem in worksheet "Rekeningen", Range D1-D5 is named "Grootboek" were it should be named uitgaven. I can't change the name, but it doesn't seem to matter in worksheet rekeningen (the drop down menu for uitgaven works normally), what is wrong here?

Please help me!

Thanks,
Regards,

Edward

I have the following question: I attached my file. In sheet "boekhouding" I want every cell in column H to contain a button that locks that specific row. So I can't accidently change the dropdownmenu for that row.

not exactly sure what you want here.lock whole column or individual cells in that column?

I also have some sort of strange problem in worksheet "Rekeningen", Range D1-D5 is named "Grootboek" were it should be named uitgaven.

you had named the range twice once as Grootboek and once as
uitgaven
i deleted the first one from insert/names/define now its named uitgaven

Thanks, but...

I can't add a second macro (besides Boekhouding.cpysht). How do I add a second macro to this sheet?

Furthermore, I get the error:

Compile error: Variable not defined

THis referring to the first target.parent.

What should I do?

Thanks!

Thanks! It seems to work, however, I still have two questions:

1) Since I want to learn: What exactly did you do/change?
2) Isn't it possible to put this macro in some sort of button instead of drop down menu?

Regards,

Edward

Hi,

Please help me. The first macro apperently works in the example worksheet. But when I try to apply the macro below to my own worksheet, nothing happens. Please explain to me what you did and what the macro exactly does. Thanks! (Note: instead of collumn, H, I've put the button in collumn K)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range
Dim WS As Worksheet
Set WS = Target.Parent
WS.Unprotect
For Each Cell In Target
If Cell.Column = 11 Then
If Cell = "LOCK" Then
Range(Cells(Cell.Row, 1), Cells(Cell.Row, 10)).Locked = True
ElseIf Cell = "UNLOCK" Then
Range(Cells(Cell.Row, 1), Cells(Cell.Row, 10)).Locked = False
End If
End If
Next Cell
WS.Protect
End Sub

Edward, please read the Forum Rules and then wrap your code with Code Tags.

Please help me. The first macro apperently works in the example worksheet. But when I try to apply the macro below to my own worksheet, nothing happens. Please explain to me what you did and what the macro exactly does. Thanks! (Note: instead of collumn, H, I've put the button in collumn K)

Please Login or Register  to view this content.