Skip to main content

AccessTr.neT


Satırları koruma altına almak

Satırları koruma altına almak

Çözüldü #1
Herhaba arkadaşlar aşağıdaki kod ile istediğim satırları siliyorum. Ancak 1 den 5 e kadar olan satırları korma altına almak istiyorum. Bu satırları seçsem bile silmeme izin vermesin beni uyarsın. Bu kounda yardımlarınızı bekliyorum.


Private Sub CommandButton15_Click()
ActiveSheet.Unprotect "123"
sifre = InputBox("!!!.SİLMEK İSTEDİĞİNİZ SATIRLARI SEÇİNİZ. SATIR SEÇMESENİZ İMLEÇ HANGİ SATIRDA İSE O SATIRI SİLER. SATIRLARI SİLECEĞİNİZDEN EMİN İSENİZ PAROLA GİRİNİZ. !!!")
If sifre = "" Then Exit Sub
Dim Arr()
Application.ScreenUpdating = False
For Each R In Selection.Rows
c = c + 1
ReDim Preserve Arr(1 To c)
Arr© = R.Row
Next
First = LBound(Arr)
Last = UBound(Arr)
For i = First To Last - 1
For j = i + 1 To Last
If Arr(i) < Arr(j) Then
Temp = Arr(j)
Arr(j) = Arr(i)
Arr(i) = Temp
End If
Next j
Next i
For k = 1 To UBound(Arr)
Rows(Arr(k)).Delete
Next
Application.ScreenUpdating = True
MsgBox "!!!.SATIR VEYA SATIRLAR SİLİNDİ.!!!"
ActiveSheet.Protect "123"
Range("A65535").End(xlUp).Offset(1, 0).Select
ComboBox2.SetFocus
End Sub
Cevapla
Çözüldü #2
Sorunuma çözüm buldum.Teşekürler.
Cevapla
Çözüldü #3
Geri dönüş yaptığınız için teşekkürler.
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task