- 06 Set 2016 às 21:43
#14914
Olá
Gostaria de saber, como posso tratar o erro da Exibição da planilha (Visible) e ocultação da mesma, na forma (VeryHidden), isto é, quando o Nome da planilha não existir e for invalido - evitar a notificação de erro e enviar ao usuário uma notificação do erro encontrado, e tambémse não haver erro - notificar como "Procedimento realizado com sucesso", Através da MSGBOX!
Segue o códido, o print do erro e a planilha em questãoi
Desde já agradeço

Código:
Dim P As String
'Dim P as String = Nome da planilha
'-----------------------------------
Sub OcultarPlanilha(P As Worksheet)
'Sub Procedimento
'P = Parâmentro do tipo planilha
P.Visible = xlSheetVeryHidden ' xlSheethidden = Ocultar planilha
End Sub
Sub ReexibirPlanilha(P As Worksheet)
'Sub Procedimento
'P = Parâmentro do tipo planilha
P.Visible = xlSheetVisible ' xlSheetVIsible = Reexibir planilha
' Sheets("2").Visible = True
End Sub
Sub Ocultar()
P = InputBox("Nome da Planilha", "Ocultar Planilha")
' OcultarPlanilha Sheets(P)
Call OcultarPlanilha(Sheets(P))
End Sub
Sub Reexibir()
P = InputBox("Nome da Planilha", "Reexibir Planilha")
' OcultarPlanilha Sheets(P)
Call ReexibirPlanilha(Sheets(P))
End Sub
Private Sub CommandButton1_Click()
End Sub
Gostaria de saber, como posso tratar o erro da Exibição da planilha (Visible) e ocultação da mesma, na forma (VeryHidden), isto é, quando o Nome da planilha não existir e for invalido - evitar a notificação de erro e enviar ao usuário uma notificação do erro encontrado, e tambémse não haver erro - notificar como "Procedimento realizado com sucesso", Através da MSGBOX!
Segue o códido, o print do erro e a planilha em questãoi
Desde já agradeço

Código:
Dim P As String
'Dim P as String = Nome da planilha
'-----------------------------------
Sub OcultarPlanilha(P As Worksheet)
'Sub Procedimento
'P = Parâmentro do tipo planilha
P.Visible = xlSheetVeryHidden ' xlSheethidden = Ocultar planilha
End Sub
Sub ReexibirPlanilha(P As Worksheet)
'Sub Procedimento
'P = Parâmentro do tipo planilha
P.Visible = xlSheetVisible ' xlSheetVIsible = Reexibir planilha
' Sheets("2").Visible = True
End Sub
Sub Ocultar()
P = InputBox("Nome da Planilha", "Ocultar Planilha")
' OcultarPlanilha Sheets(P)
Call OcultarPlanilha(Sheets(P))
End Sub
Sub Reexibir()
P = InputBox("Nome da Planilha", "Reexibir Planilha")
' OcultarPlanilha Sheets(P)
Call ReexibirPlanilha(Sheets(P))
End Sub
Private Sub CommandButton1_Click()
End Sub