Tik İşaretiyle Satır Kilitleme

  • Konuyu başlatan Konuyu başlatan lusifor
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

lusifor

Katılım
28 Tem 2022
Mesajlar
1
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
merhaba bu gün bana bir liste lazım oldu bu listeyi hazırlayacağım ancak belli koşullar oluştuktan sonra bir satırdaki verinin silinmesini veya değişmesini istemiyorum fakat bununda onaydan geçmiş olduğunu bilmem gerekiyor bunu için tik işareti yeterli ancak o tik işaretini koyduğum zaman o satırı da aynı anda kilitlenmiş olması lazım yani her türlü erişime okuma hariç kapalı olmalı yardımcı olabilecek arkadaşlarıma şimdiden teşekkür ederim.
 
Hücre Açıklamalarını Bir Araya Getirme
Tarihi Bugün Olan Dosyayı Açma
Çözüm
ExcelDepo
VBA: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim kontrolSütunu As Long: kontrolSütunu = 6 ' F sütunu (örnek)

    If Target.Column = kontrolSütunu And Target.Value = "✔" Then
        Application.EnableEvents = False
        Target.EntireRow.Locked = True
        Me.Protect Password:="kral123", UserInterfaceOnly:=True
        Application.EnableEvents = True
    End If
End Sub
İşinize yarayacaktır.
Tarihe göre sırala Oylamaya göre sırala
VBA: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim kontrolSütunu As Long: kontrolSütunu = 6 ' F sütunu (örnek)

    If Target.Column = kontrolSütunu And Target.Value = "✔" Then
        Application.EnableEvents = False
        Target.EntireRow.Locked = True
        Me.Protect Password:="kral123", UserInterfaceOnly:=True
        Application.EnableEvents = True
    End If
End Sub
İşinize yarayacaktır.
 
Oyla 0 Olumsuz oyla
Çözüm
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt