+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Satırları koruma altına almak (/konu-satirlari-koruma-altina-almak.html)
Satırları koruma altına almak - kenan827 - 25/03/2013
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
Cvp: Satırları koruma altına almak - kenan827 - 26/03/2013
Sorunuma çözüm buldum.Teşekürler.
Cvp: Satırları koruma altına almak - DUAYEN - 27/03/2013
Geri dönüş yaptığınız için teşekkürler.