Cellen beveiligen middels macro

[abbcdcg]

Goedemorgen,

Ik heb een bestand met meerdere tabbladen welke ik deels wil beveiligen. Middels de code in ThisWorkbook

Private Sub Workbook_Open()
For I = 1 To Sheets.Count
  With Sheets(I)
    .Protect Password:=1234, UserInterfaceOnly:=True
  End With
Next
End Sub

en het beveiligen van het toepassen van bladbeveiliging werkt dit deels goed. De gehele afdrukweergave wordt beveiligd. Omdat een paar cellen nog gebruikt moeten worden wil ik niet dat de gehele reeks wordt beveiligd maar een deel. Als voorbeeld niet de reeks B257 maar B5:57.

- Kan ik middels bovenstaande ook een bepaalde reeks opgeven?
- Kan dit per tabblad?


B.v.d. !

 

[edmoor]

Selecteer die reeks, klik met rechts, kies Celeigenschappen en vink Geblokkeerd uit.