Multi-pagina Excel VBA

Multi-pagina Excel VBA você vai aprender neste artigo este recurso dentro de VBA onde podemos otimizar de forma inteligente os botões de acesso para os nossos Form. Podemos criar varias pagina dentro da Multi-Pagina e colocar os nomes conforme a necessidade.

Para isso siga as instruções:

Abrir a guia Desenvolvedor / Visual Basic com o VBA aberto vamos inserir um UserForm novo. Para isso vamos em inserir UserForm deixar o tamanho que desejar nas opções das propriedades Height (Altura) e Width (largura).

No menu Exibir abrir caixas de ferramenta vamos localizar a opção Multi-pagina.

Podemos também colocar a Multi-pagina em UserForm já pronto como o exemplo no vídeo abaixo.

Funções Sintaxe utilizada neste projeto.

No exemplo utilizado neste artigo vamos deixar o Userform tamanho otimizado para abrir em tela toda lançando as sintaxe no evento Inicialize.

Sintaxe utililizada no evento Inicialize do Userform.
Private Sub UserForm_Initialize()
Application.WindowState = xlMaximized
Me.Height = Application.Height
Me.Width = Application.Width
Me.Left = Application.Left
Me.Top = Application.Top
End Sub

Para que o usuário não feche o Userform no botão x utilizamos no evento QueryClose uma sintaxe proibindo o fechamento da Userform e colocamos uma mensagem para ser exibida (Utilize o botão [Sair]).

Sintaxe utililizada no evento QueryClose do Userform.
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = vbFormControlMenu Then ‘ se clicado no btão fechar do form
Cancel = True
MsgBox “Utilize o botão [Sair]”, vbCritical, “Fechar” ‘ exibe mensagem
End If
End Sub

Para que a UserForm possa abrir na primeira pagina como padrão precisamos inserir a sintaxe no evento Inicialize.

Sintaxe utilizada no evento Inicialize do Userform.
Private Sub UserForm_Initialize()
MultiPage1.Value = 0
End Sub

Podemos colocar no botão sair uma função para que ao fechar nossa planilha seja salva para não perdemos nenhuma alteração.

Sintaxe utilizada no botão Sair.
Private Sub SAIR_Click()
ActiveWorkbook.Save
ThisWorkbook.Application.Quit
End Sub

Vamos deixar em nosso exemplo um botão plan para acessar nossas planilhas.

Sintaxe utililizada no botão Plan.
Private Sub CommandButton37_Click()
Unload Me
Sheets(“MENU”).Select
Range(“A1”).Select
End Sub

Sintaxe utililizada para voltar ao nosso Userform.
Sub Macro1()
FORM_MENU.Show
End Sub

O VBA permite colocar na propriedade Picture as imagens JPG ou BMP porém o recomendável a imagem padrão do VBA é o formato BMP.

Está disponível para download a planilha usado no exemplo, botão e as funções (sintaxe) utilizada na planilha.

Senha projeto: 123

Multi-pagina Excel VBA abaixo vídeo passo a passo como criar.

Planilhas compatíveis com office 2007 em diante. Caso encontre alguma dificuldade para usar ou baixar nossas planilhas favor usar os comentários abaixo que em breve retornaremos.

Download