waarschuwing bij muteren van een cel

[amarob]

Hallo,

Is het mogelijk om bij het muteren van een cel (bijvoorbeeld bij het legen van een cel of bij het overschrijven van de inhoud van een cel) een soort van waarschuwing te krijgen of men wel zeker weet of die cel gemuteerd moet worden.
Bedoeling hiervan is om zoveel als mogelijk te voorkomen dat men per ongeluk belangrijke informatie uit een cel verwijderd of overschrijft.

 

[Mde]

je kunt ook de betreffende cellen beveiligen tegen overschrijven

 

[lam201]

Of met de optie 'Gegevens Validatie' --> 'Invoer bericht' een waarschuwing ingeven.
Deze verschijnt dan zodra de betreffende cel wordt geselecteerd.

 

[amarob]

je kunt ook de betreffende cellen beveiligen tegen overschrijven

Het is wel de bedoeling dat gegevens overschreven mogen worden of verwijderd mogen worden maar dat men dat wel bewust doet. En vandaar de wens voor een waarschuwing.

 

[emields]

een voorbeeld bestandje kan soms wonderen doen.

 

[AHulpje]

Als je de gebruikers echt niet vertrouwt plak dan deze achter het werkblad:

Private Sub Worksheet_Change(ByVal Target As Range)
    If MsgBox("U heeft iets gewijzigd, weet u dat zeker? (en deze opmerking is zeer irritant)", vbYesNo, "Big brother") <> vbYes Then
        Application.EnableEvents = False
        Application.SendKeys ("^z")
        Application.EnableEvents = True
    End If
End Sub

 

[HSV]

Daar gebruik je,...

Application.undo

voor.

 

[AHulpje]

@HSV
Da's inderdaad veel mooier, kende ik nog niet.

 

[amarob]

Als je de gebruikers echt niet vertrouwt plak dan deze achter het werkblad:

Private Sub Worksheet_Change(ByVal Target As Range)
    If MsgBox("U heeft iets gewijzigd, weet u dat zeker? (en deze opmerking is zeer irritant)", vbYesNo, "Big brother") <> vbYes Then
        Application.EnableEvents = False
        Application.SendKeys ("^z")
        Application.EnableEvents = True
    End If
End Sub

Dit werkt inderdaad heel goed. Is wellicht inderdaad irritant maar doet wel wat ik wil.

 

[amarob]

Daar gebruik je,...

Application.undo

voor.

Deze begrijp ik niet. Moet ik dan iets wijzigen in de code van AHulpje?

 

[AHulpje]

Vervang

[COLOR=#3E3E3E]Application.SendKeys ("^z")[/COLOR]

door

Application.Undo

 

[AD1957]

Application.undo

i.p.v.

Application.SendKeys ("^z")

Code doet verder hetzelfde.
Vraag me wel af hoe je nog fatsoenlijk wilt werken in dat bestand, daar wordt je toch gek van.
Waarschijnlijk moet de code alleen van toepassing zijn op een bepaalde range.

 

[mvdvlist]

Dit is ook een simpele, alleen voor A1. Uiteraard aan te passen. Wel een xlsb bestand (of xlsm)