av-lås all celler.
Marker allt (ctrl+a), högerklicka->formatera celler->fliken skydd-> ta bort krysset i "låst"


Högerklicka på fliknamnet (typ "blad1") och välj skydda blad

Se till att minst den näst översta krysset är ifyllt, gärna de 2 översta.
Mata in samma lösenord som du kommer att använda i koden, typ 1234


Högerklicka på fliknamnet och välj "Visa kod"

skapa en händelsehanterare som bevakar ändringar i bladet:


Private Sub Worksheet_Change(ByVal Target As Range)

' om bladet är oskyddat antar vi att det är administratören som jobbar och cellerna skall inte skyddas.
' Om administratören raderar något skall cellen bli olåst så att det går att mata in igen. Ta bort om du vill sköta manuellt

If Me.ProtectContents = False Then
If Target.Value = "" Then Target.Locked = False
Exit Sub
End If


' om man råkar trycka enter utan att mata in något
' hoppar den över (fungerar inte om fler än en cell är markerad

If Target.Cells.Count = 1 Then
If Target.Value = "" Then Exit Sub '
End If


' lås upp bladet
Me.Unprotect Password:="1234"
' aktivera skydd för cellen
Target.Locked = True
' lås bladet
Me.Protect Password:="1234"
End Sub


MEN!!!!
1. händelsehanterare är ett jävla skit. allt kan gå fel.
2. Du skyddar bara ett blad med den här koden. Modifiera efter behag
3. lösenordet står i kalrtext i koden, ett uppenbart säkerhetsproblem (Alt+F11)



***ED****
Upplåsning genom att högerklicka på fliken och ange 1234

Tack

 

Fungerar precis som jag vill

 

/Mats