vpeglow,

Bom dia!

Faça assim.

Boa tarde galera,

Pra eu não enferrujar muito, segue minha contribuição em cima da solução do Wagner Morel.

Option Explicit

Sub Apagar_tudo()
Dim i           As Long
Dim Resposta    As Byte
Dim Senha       As String
Dim TextoMes    As String
Dim wsMes       As Worksheet
Começo:
    Resposta = MsgBox("ATENÇÃO! Este comando apagará todos os dados do arquivo! Deseja Continuar?", vbYesNo + vbQuestion, "APAGAR TUDO")
    If Resposta = 6 Then
        Senha = InputBox("Entre com a senha para apagar tudo:", "SENHA - APAGAR TUDO")
        If Senha = "123" Then
            Application.ScreenUpdating = False
            For i = 1 To 12
                TextoMes = Format("01/" & i & "/2015", "mmm")
                Set wsMes = ThisWorkbook.Worksheets(UCase(Left(TextoMes, 1)) & Mid(TextoMes, 2, 2) & " - " & i)
                wsMes.Range("D7:J5000").ClearContents
            Next i
            MsgBox "Dados apagados com Sucesso!", vbDefaultButton1, "APAGAR DADOS"
        Else
            MsgBox "Senha Incorreta!", vbCritical, "ERRO"
            GoTo Começo
        End If
    End If
    Set wsMes = Nothing
    Application.ScreenUpdating = True
End Sub

Qualquer coisa da o grito.
Abraço

Bom dia Bernardo.

como consigo unir o meu código dentro do seu?

Att;

Bom dia Bernardo.

como consigo unir o meu código dentro do seu?

Att;

Bom dia vpeglow,

Não entendi. O que quer fazer exatamente?

Qualquer coisa da o grito.
Abraço

Oi Bernardo.

quero pegar esse código abaixo e colocar uma senha nele.

Sub Apagar_tudo()
Sheets("Jan - 1").Range("D7:J5000").ClearContents
Sheets("Fev - 2").Range("D7:J5000").ClearContents
Sheets("Mar - 3").Range("D7:J5000").ClearContents
Sheets("Abr - 4").Range("D7:J5000").ClearContents
Sheets("Mai - 5").Range("D7:J5000").ClearContents
Sheets("Jun - 6").Range("D7:J5000").ClearContents
Sheets("Jul - 7").Range("D7:J5000").ClearContents
Sheets("Ago - 8").Range("D7:J5000").ClearContents
Sheets("Set - 9").Range("D7:J5000").ClearContents
Sheets("Out - 10").Range("D7:J5000").ClearContents
Sheets("Nov - 11").Range("D7:J5000").ClearContents
Sheets("Dez - 12").Range("D7:J5000").ClearContents
End Sub

vpeglow, no código que coloquei já tem isso. Só que sem essa repetição toda. Você chegou a testá-lo?

Obrigado Bernardo, funcionou