Gegevensvalidatie: cellen beschermen tegen plakken

Question

Ik heb in een excel-worksheet een aantal cellen waarin enkel een keuze mag gemaakt worden uit de waardes in een keuzelijst. De waardes heb ik beperkt via gegevensvalidatie en indien ik een ander waarde hierin prober te typen, krijg ik een correcte foutmelding en wordt dit niet toegestaan.

Ik kan echter wel zonder problemen de inhoud van een andere cel hierin plakken.

Hoe kan ik voorkomen dat dit gebeurt?

Answer 1

Hallo Kim_VT

Er bestaat hiervoor geen standaardfunctie binnen Excel die door dit forum ondesteund wordt. Je zou je vraag aan Microsoft Developer Network-Community kunnen stellen voor hulp met het programmeren van een oplossing voor het scenario dat je noemt.

Met vriendelijke groet,

Jules

Answer 2

Kim,

Ik neem aan dat je werkblad beveiligd is, anders zal je cel bij plakken worden overschreven met ook de opmaak van die andere cel en zal deze ook zijn validatie verliezen.

Je kunt dan de code van JP zo uitbreiden, zodat je waarden die aan de validatie voldoen wel kunt plakken, maar andere waarden niet.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    Application.EnableEvents = False

    If Target.Address(0, 0) = "A1" Then

        If Not Target.Validation.Value Then

            Application.Undo

        End If

    End If

    Application.EnableEvents = True

 End Sub

Jan

Answer 3

Bedankt JP, ga ik zo dadelijk eens uitproberen.

Answer 4

Dag Kim,

Naar mijn mening is hier geen eenvoudige/standaard oplossing voor, met VBA zie ik wel mogelijkheden maar niet zeker of alles hiermee kan opgevangen worden. De basis:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

   Application.EnableEvents = False

   If Target.Address(0, 0) = "A1" Then

      Application.Undo

   End If

   Application.EnableEvents = True

End Sub

Heb dit getest en het laat niet toe een andere waarde, ook al staat die in de validatielijst, te plakken. Misschien een begin.

Answer 5

Dag Kim,

Naar mijn mening is hier geen eenvoudige/standaard oplossing voor, met VBA zie ik wel mogelijkheden maar niet zeker of alles hiermee kan opgevangen worden. De basis:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

   Application.EnableEvents = False

   If Target.Address(0, 0) = "A1" Then

      Application.Undo

   End If

   Application.EnableEvents = True

End Sub

Heb dit getest en het laat niet toe een andere waarde, ook al staat die in de validatielijst, te plakken. Misschien een begin.