Szia!

1. Állítsd be az adott tartományra  a cellák zárolását: Cellaformázás -> Védelem. (Alapból az egész munkalapon zárolva vannak a cellák!)

2. Futtasd az alábbi kódokat

Sub LapvédelemBE()

  Sheets("Munka1").Protect Password:="12345", DrawingObjects:=True, Contents:=True, Scenarios:=True 
End Sub

Sub LapvédelemKI()

    Sheets("Munka1").Unprotect Password:="12345"
End Sub