(08/07/2019, 14:58)halily yazdı: buton kodu:

Kod:

Private Sub CommandButton1_Click()
If ActiveSheet.ProtectContents = True Then ActiveSheet.Unprotect "123"
   With ActiveSheet
    .UsedRange.Locked = True
    .Range("L:L").Locked = False
    .EnableSelection = xlUnlockedCells
   End With
ActiveSheet.Protect "123"
End Sub

dilerim işinize yarar

üstat teşekkür ederim. buton olunca çalışıyor ama ben aşağıdaki gibi yapmak istiyorum ?

Private Sub Workbook_Open()
    TimerValue = "00:00:01"

'________________________SAYFA 1 KULLANIM ALANI KISITLAMA KODU ________________
If ActiveSheet.ProtectContents = True Then ActiveSheet.Unprotect "123"
  With ActiveSheet
    .UsedRange.Locked = True
    .Range("B:J").Locked = False
    .EnableSelection = xlUnlockedCells
  End With
ActiveSheet.Protect "123"
'________________________SAYFA 1 KULLANIM ALANI KISITLAMA KODU BİTTİ________________

range sınıfının locked özelliği kurulamıyor hatası veriyor.
neden bu hatayı veriyor bunu aşabilirsek eğer diğer sayfalarda da aynı şekilde sınırlama yapmak istiyorum da ?
nasıl yardımcı olabilirsiniz.