Cel beveiligen na invoer

[adje30]

Hallo

Is het misschien mogelijk dat een cel in excel na het invoeren direct wordt beveiligd? Ik ga de excelsheet gebruiken om te scannen en het is de bedoeling dat het gescande niet meer gewist of veranderd kan worden. Helaas heb ik geen ervaring met vba dus ik hoop dat jullie mij verder kunnen helpen.

Adje

 

[Cobbe]

Sla het, na het scannen op als Pdf-bestand.

 

[Warme bakkertje]

Verwijder bij alle cellen waar je iets wil kunnen invullen bij Celeigenschappen het vinkje bij Geblokkeerd. bv Kolom A
Beveilig nu je werkblad (ww bv Adje). Zet onderstaande in de bladmodule van je scanwerkblad.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Columns(1)) Is Nothing Then
        ActiveSheet.Unprotect "adje"
        Target.Locked = True
        ActiveSheet.Protect "adje"
    End If
End Sub

 

[adje30]

Hallo

Bedankt voor jullie reacties, ik ga er mee aan het werk . Is er overigens ook een mogelijkheid om een cel te beveiligen tegen typen, dat je dus alleen maar een cel kunt vullen door middel van scannnen?

 

[Roncancio]

Ja met behulp van UserInterfaceOnly = True
Ik heb het in de code van WarmBakkertje toegevoegd.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Columns(1)) Is Nothing Then
        ActiveSheet.Unprotect "adje"
        Target.Locked = True
        ActiveSheet.Protect "adje" , UserInterfaceOnly = True
    End If
End Sub

Met vriendelijke groet,


Roncancio