Een vraag op LinkedIn ging over het gebruik van de delete knop.
Of, beter gezegd om het voorkomen daarvan. Bij bestanden die door meerdere personen worden gebruikt kan het nodig zijn om een heel blad of een deel van een blad te beschermen. Dat kan op verschillende manieren. Een van de methoden is het uitschakelen van de delete – knop.
In dit voorbeeld heeft het gebruik van de delete knop in de vierde t/m de negende kolom (kolom D – I) geen effect. In de ander kolommen wel.
Zet daarvoor in de het macroblad (Alt-F11) van het betreffende blad deze code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Me.Columns(“D:I”)
If Not Intersect(ActiveCell, Target) Is Nothing Then
Application.OnKey “{DELETE}”, “”
Else
Application.OnKey “{DELETE}”
End If
End Sub
ExcelMeester 