Olá pessoal!
Preciso de uma ajuda com a macro abaixo, a questão é que se o usuário digitar no inputbox minusculo exclui a planilha que não pode ser excluída "DADOS".
Sub Excluir()
Dim ws As Worksheet
Dim sPlanilha As String
sPlanilha = InputBox("Digite o nome da Planilha a ser excluída:")
If sPlanilha = "DADOS" Then
MsgBox "A PLANILHA ''DADOS'' FAZ PARTE DO SISTEMA NÃO PODE SER EXCLUÍDA"
End
Else
On Error Resume Next
Set ws = Sheets(sPlanilha)
On Error GoTo 0
If ws Is Nothing Then
MsgBox "NÃO EXISTE PLANILHA COM ESTE NOME !", vbCritical
End
Else
Application.DisplayAlerts = False
ws.Delete
End If
MsgBox " A PLANILHA FOI EXCLUÍDA . "
End If
Application.DisplayAlerts = True
End
End Sub
Postado : 25/10/2014 9:12 am