Excel: beveiliging (geen beginnersvraagje)

[Verwijderd]

Hallo,

ik heb nu een excel bestand gemaakt voor het ziekenhuis waar ik werk.
De medewerkers kunnen hierin hun resultaten intikken met hun paraaf erachter. Mijn vraag is dan: hoe kan ik dat gelijk automatisch laten beveiligen zodra dat ingevuld is. Met andere woorden is het mogelijk te voorkomen dat deze waardes achteraf gewijzigd kunnen worden (of als het gewijzigd wordt dat je gelijk ziet door wie wat en wanneer).
Alvast bedankt voor jullie hulp/tijd.

Volley

[onkl]

Wat je zou kunnen doen is deze code in het relevante worksheetblad van VBA gooien:

Visual Basic:

Dim inhoud As Variant
Dim doelcel As Range
Dim wordtveranderd As Boolean
Dim antiloop As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)
If wordtveranderd = True Then
If antiloop = False Then
antiloop = True
Target.Value = inhoud
antiloop = False
End If

End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set doelcel = ActiveSheet.Range("A1")
If Target.Address = doelcel.Address And doelcel.Value <> "" Then
wordtveranderd = True
inhoud = doelcel.Value
Else
wordtveranderd = False
End If
End Sub

Dat zorgt ervoor dat je A1 alleen mag veranderen als A1 leeg is.
Je kan daarna wel wijzigen maar de macro zet er alleszins attent de originele waarde weer overheen.
Dit is niet hack-proof of zo, maar als je je VBA project beveiligd met wachtwoord, zal de gemiddelde medewerker die echt niet kunnen omzeilen.
(en ja, dit is ranzig. Je code is zoals je bent. )