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