buton kodu:
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
(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.
sayfanızın özelliğiyle yada arka planda kullandığınız kodlarla ilgili bir sorundan kaynaklanıyor olabilir.
yeni bir sayfa oluşturup orda deneyin eğer orada sorunsuz çalışıyorsa sorun mevcut sayfanızdaki kodlardan kaynaklanıyordur
örnek dosyayı ekleyip -eğer önceki soruda eklediğiniz dosya ise sadece- hangi sayfada olduğunu yazarsanız çözmeye çalışırım
(08/07/2019, 17:55)halily yazdı: sayfanızın özelliğiyle yada arka planda kullandığınız kodlarla ilgili bir sorundan kaynaklanıyor olabilir.
yeni bir sayfa oluşturup orda deneyin eğer orada sorunsuz çalışıyorsa sorun mevcut sayfanızdaki kodlardan kaynaklanıyordur
örnek dosyayı ekleyip -eğer önceki soruda eklediğiniz dosya ise sadece- hangi sayfada olduğunu yazarsanız çözmeye çalışırım
üstat dosyayı ekledim. kodları kullanıma kapattım siz bakarsınız ona.
hangi sayfa?
siz mesaj'2 de gönderilen kodları, kodsuz sayfada denediniz mi?