• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

waarschuwing bij muteren van een cel

Status
Niet open voor verdere reacties.

amarob

Gebruiker
Lid geworden
23 feb 2014
Berichten
68
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.
 
je kunt ook de betreffende cellen beveiligen tegen overschrijven
 
Of met de optie 'Gegevens Validatie' --> 'Invoer bericht' een waarschuwing ingeven.
Deze verschijnt dan zodra de betreffende cel wordt geselecteerd.
 
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.
 
Als je de gebruikers echt niet vertrouwt plak dan deze achter het werkblad:
Code:
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
 
Daar gebruik je,...
Code:
Application.undo
voor.
 
Als je de gebruikers echt niet vertrouwt plak dan deze achter het werkblad:
Code:
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.
 
Vervang
Code:
[COLOR=#3E3E3E]Application.SendKeys ("^z")[/COLOR]
door
Code:
Application.Undo
 
Code:
Application.undo
i.p.v.
Code:
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.
 
Dit is ook een simpele, alleen voor A1. Uiteraard aan te passen. Wel een xlsb bestand (of xlsm)
 

Bijlagen

Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan