Az ActiveSheet.Protect userinterfaceonly:=True sor védi a felhasználótól a lapot, ill. a lapon lévõ zárolt cellákat, de a programok megváltoztathatják a cellákat.
Sub Gomb()
ActiveSheet.Protect userinterfaceonly:=True
Range("G1").Formula = "=F1*2"
Range("G1").Select
Selection.AutoFill Destination:=Range("G1:G20")
End Sub
Ez a kis program a zárolt G1:G20 tartományban az F1:F20 tartomány értékét szorozza fel kettõvel.