1º – Criar uma planilha com nome “Instalar o Sistema”
2º – No evento Workbook_Open da sua pasta de trabalho, inserir o código abaixo:
Private Sub Workbook_Open()
On Error GoTo trata_erro
If ThisWorkbook.Sheets("Instalar o Sistema").Range("B24").Value = "Status: Desinstalado" Then
For Each plans In ActiveWorkbook.Sheets
name_plan = plans.Name
If name_plan <> "Instalar o Sistema" Then
ThisWorkbook.Sheets(name_plan).Visible = 2
Else
ThisWorkbook.Sheets(name_plan).Visible = -1
End If
Next plans
ElseIf ThisWorkbook.Sheets("Instalar o Sistema").Range("B24").Value = "Status: Instalado" Then
For Each plans In ActiveWorkbook.Sheets
name_plan = plans.Name
If name_plan = "Instalar o Sistema" Then
ThisWorkbook.Sheets(name_plan).Visible = 2
Else
ThisWorkbook.Sheets(name_plan).Visible = -1
End If
Next plans
End If
trata_erro:
End Sub
3º – Importar o Form_Install para seu projeto:
4º – Escolha um icone que melhor identifique sua aplicação (formato .ico)