VBA Beschermwerk blad

[Kirana2014]

Hallo,
Ik probeer het hele werkblad te beschermen, behalve dat een ingestelde kolom "H" kan worden bewerkt
Ik gebruik onderstaande vba het probleem is dat het hele werkblad is beschermd, help alstublieft hoe:

Sub Lock_data()

    Dim ws As Worksheet

    For Each ws In ActiveWorkbook.Worksheets

    ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingColumns:=True, AllowFormattingRows:=True, Password:="12345"
             
    Next ws

End Sub

 

[edmoor]

Selecteer kolom H.
Klik er met rechts op.
Kies Cel eigenschappen.
Tabje Bescherming.
Vink Geblokkeerd uit.

 

[snb]

Waarom zou je een werkblad willen 'beschermen' als je een bestand 'read only' kunt maken ?

 

[JEC.]

In sommige gevallen wil je dat anderen ook kunnen bewerken.