Kod:
With syfFirmalar
.Unprotect
.Cells.Locked = True
End WithKod:
With syfFirmalar
.Protect
End WithŞifreli olsun derseniz alttaki hibi deneyin.
Unprotect "şifre"
protect "şifre"
With syfFirmalar
.Unprotect
.Cells.Locked = True
End WithWith syfFirmalar
.Protect
End With