25/03/2013, 12:00
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
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