Yardım Çalışma Kitabındaki Sayfaların Belli Bölümlerini Silmek

Sub ExcelTurkey()
    UserForm1.Show
End Sub

Private Sub CommandButton1_Click()
    Dim sifre$, i%
    sifre = "abc123"
    If Label2.Caption = sifre Then
        Label3.Caption = "ü"
        Label3.ForeColor = &HFF00&
        For i = 3 To Sheets.Count
            Sheets(i).Range("D6:G8,I6:L8,D10:G17,I10:L17,D19:G25,I19:L25,D27:G33,I27:L33,D35:G37,I35:L37").ClearContents
        Next i
        Application.Goto Sayfa1.Range("D6")
        Application.Wait Now + TimeSerial(0, 0, 2)
        MsgBox "İşlem Tamamlandı.", vbInformation, "Www.ExcelTurkey.Com"
        Unload Me
            Else
        Label2.Caption = ""
        Application.EnableEvents = False
        TextBox1.Value = ""
        Application.EnableEvents = True
        Label3.Caption = "x"
        Label3.ForeColor = vbRed
        Exit Sub
    End If
End Sub

Private Sub TextBox1_Change()
    Label2.Caption = Label2.Caption & Mid(TextBox1.Value, Len(Label2.Caption) + 1, 1)
    TextBox1.Value = String(Len(Label2.Caption), "*")
End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 8 And Len(Label2.Caption) > 0 Then
        Label2.Caption = Left(Label2.Caption, Len(Label2.Caption) - 1)
    End If
End Sub

Private Sub UserForm_Initialize()
    Label2.Caption = ""
End Sub