(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.