[Dimi]

Γεια σας.
Ο κώδικας για να κλειδώσεις το τρέχον φύλλο στην Excel είναι:

Sub ProtectSheet()
    ActiveSheet.Protect Password:="1234", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

και για να το ξεκλειδώσεις:

Sub UprotectSheet()
    ActiveSheet.Unprotect Password:="1234"
End Sub

Μετά ένοιξε με ALT+F8 τον διάλογο των μακροεντολών επίλεξε τη μακροεντολή και πάτησε "Επιλογές" για να προσθέσεις τον συνδυασμό πλήκτρων που θέλεις.

Δημήτρης