Cellen Vergrendelen

[ExcelNoob]

Beste hulpverleners,

Ik heb een formulier gemaakt en heb deze beveiligd muv de invulvelden. Nu wil ik mbv een macro deze cellen vergrendelen als het formulier is ingevuld. Mbv macro opnemen kwam ik tot de volgende formule:

Sub Vergrendelen()
'
' Vergrendelen Macro

'
    Range("E5:G19,C22:D22,B25:H25,B27:H27,B29:H29,B31:H31,B33:D33").Select
    Range("B33").Activate
    Range( _
        "E5:G19,C22:D22,B25:H25,B27:H27,B29:H29,B31:H31,B33:D33,E35:G35,B40:G45,D48:F48" _
        ).Select
    Range("D48").Activate
    Selection.Locked = True
    Selection.FormulaHidden = False
End Sub

Maar hij geeft de fout melding dat hij locked niet kent in combinatie met Range.

 

[tilpi]

Locked werkt alleen maar in combinatie met Worksheet Protect/Unprotect
Je zult dus alle andere cellen eerst even via Celeigenschappen van de vergrendeling moeten ontdoen.

Sub Vergrendelen()

' Vergrendelen Macro
    Worksheets("Blad1").Unprotect    
  Range("E5:G19,C22:D22,B25:H25,B27:H27,B29:H29,B31:H31,B33:D33,E35:G35,B40:G45,D48:F48").Locked = True
    Selection.FormulaHidden = False
    Worksheets("Blad1").Protect
    End Sub

Wil je ergens Selection.Locked =False gebruiken dan eerst
Worksheets("Blad1").Unprotect


Mvg

Piet

 

[ExcelNoob]

Je code werkt! Bedankt, maar nu zit ik nog met een probleem, want ik heb een wachtwoord op het blad.... en het formulier is beveiligd met een wachtwoord voordat het ingevuld wordt.

 

[tilpi]

Worksheets("Blad1").Unprotect Password:="Jouwwachtwoord"

Mvg

Piet

 

[ExcelNoob]

Bedankt!!!!!