Saberexcel - o Site das Macros
Essa macro do Aplicativo Microsoft Excel VBA, adiciona uma nova planilha no livro, e emite uma determinada mensagem, são sete exemplos de mensagem que o vb emite ao inserir uma nova folha de planilha no livro ativo.

Sub Adiciona_planilha()
Worksheets.Add
MsgBox "Macros finalizada.", vbInformation, "http://www.saberexcel.com"
End Sub

Adiciona uma planilha e mostra o nome da planilha adicionada
Exemplo simples de mensagem com o ícone de infomações (Information icon)
Sub Adiciona_planilha_2()
Worksheets.Add
MsgBox "Uma nova planilha foi adicionada ao livro." _
, vbInformation + vbOKOnly, "Macro finalizada!!"
End Sub

Adiciona uma planilha e mostra o nome da planilha adicionada
Sub Adiciona_planilha_3()
Dim sht As Worksheet
Set sht = Worksheets.Add
MsgBox "A nova planilha foi adicionada." & vbCrLf & _
"O o nome da nova planilha é : " & sht.Name _
, vbInformation + vbOKOnly, "Macro finalizada!"
End Sub

Adiciona uma nova planiha e inica que a planilha foi adicionada
vem com o vb yes/no, se não querer a macro sai da execução
Sub Adiciona_planilha_4()
Dim Response As VbMsgBoxResult
Response = MsgBox("Deseja inserir a nova planilha?", vbQuestion + vbYesNo)
If Response = vbNo Then Exit Sub
Worksheets.Add
MsgBox "A nova planilha foi adicionada.", vbInformation, "http://www.saberexcel.com"
End Sub

Esta macro usa a mensagem Yes/No, e pergunta se quer inserir uma planilha e se a resposta
foi não informa que não foi adicionada e se sim e informa que [sim ]
Sub Adiciona_planilha_5()
Dim Response As VbMsgBoxResult
Response = MsgBox("Deseja inserir a nova planilha?", vbQuestion + vbYesNo)
If Response = vbNo Then
MsgBox "Não foi adicionada a worksheet", vbInformation
Else
Worksheets.Add
MsgBox "Uma nova planilha foi inserida no workbook.", vbInformation, "http://www.saberexcel.com"
End If
End Sub

Esta macro usa a mensagem Yes/No/Cancel, e pergunta se quer inserir uma
nova planilha com formata de data e horario, tem a opção de sim, nao ou cancela
Sub Adiciona_planilha_6()
Dim Response As VbMsgBoxResult
Dim sht As Worksheet
Response = MsgBox("Deseja inserir uma nova planilha ao workbook com formato de dia e hora?" _
, vbQuestion + vbYesNoCancel)
If Response = vbYes Then
Set sht = Worksheets.Add
sht.Name = Format(Now, "ddd-mmm-yyyy_hhnnss")
ElseIf Response = vbNo Then
Worksheets.Add
Else
Exit Sub
End If
MsgBox "Macro finalizada!.........", vbInformation, "http://www.saberexcel.com"
End Sub


Esta macro usa a instrução Case e analisa a msg com yes/no/cancel (caixa de mensagem)
Yes/No/Cancel message box.
Sub Adiciona_planilha_7()
Dim Response As VbMsgBoxResult
Dim sht As Worksheet
Response = MsgBox("Você deseja inserir a planilha com formato dia e hora?" _
, vbQuestion + vbYesNoCancel)
Select Case Response
Case vbYes
Set sht = Worksheets.Add
sht.Name = Format(Now, "ddd-mmm-yyyy_hhmmss")
Case vbNo
Worksheets.Add
Case vbCancel
Exit Sub
End Select
MsgBox "Macro finalizada.....", vbInformation, "http://www.saberexcel.com"
End Sub

Esta macro deleta todas as planilhas exceto a escolhida para não ser deletada
Sub Deleta_Planilhas_Exceto_Desejada()
On Error Resume Next
For Each Nm In Worksheets
Application.DisplayAlerts = False 'impede de emitir a mensagem se deseja excluir
If Nm.Name <> "PRINCIPAL" Then
Nm.Delete
End If
Next
End Sub

Aprenda Aplicativo Microsoft Excel VBA ---( SaberExcel VBA )--
Aprenda sozinho, em casa, com excelente material de estudos (Saberexcel)

Saberexcel - o site das macros

Essa macro do Aplicativo Microsoft Excel VBA, insere uma nova folha de planilha na abertura do livro, observem que também vai inserir alguns dados
na nova planilha adicionada, veja na macro abaixo ou baixe o exemplo e teste.

Sub Adiciona_Planilha_insere_dados()
Sheets.add
ActiveSheet.Range("F10") = "Esta planilha foi adicionada na abertura do workbook."
Range("F20") = "http://www.saberexcel.com"
Range("F21") = "[email protected]"
Range("F22") = "Expedito Marcondes"
Range("F23") = "Excel VBA Estudos®"
End Sub



OUTRA ALTERNATIVA NA ABERTURA DO WKB OCULTA UMA PLANILHA CHAMADA "MODELO"
E insere Planilhas Modelo(2) Modelo(3)
'Private Sub Workbook_Open()
'Application.ScreenUpdating = False
'Sheets("Modelo").Visible = True
'Sheets("Modelo").Select
'Sheets("Modelo").Copy Before:=ActiveSheet
'Sheets("Modelo").Copy Before:=ActiveSheet
'Sheets("Modelo").Visible = False
'Application.ScreenUpdating = True
'End Sub


Aplicativo Microsoft Excel VBA --Saberexcel - o site das macros
Aprenda sozinho, em casa, com baixo custo financeiro e ótimo material para estudos

SaberExcel o Site das Macros
Adiciona uma planilha e formula de números aleatórios na nova planilha de Range(A1:D4)

Macro do Aplicativo Microsoft Excel VBA, adiciona uma nova planilha ao wkb (workbook) e definir sua propriedade Visible como (Oculta), e inserir nesta nova planilha uma fórmula de números aleatórios, em determinada range, isto é, na range A1:D4.

Este exemplo cria uma nova planilha e, em seguida,define sua propriedade Visible como xlVeryHidden.Para referir-se à planilha, use sua variável de objeto, Nova_Planilha, como mostrado na última linha do exemplo.Para usar a variável de objeto Nova_Planilha em um outro procedimento,você precisa declará-la como uma variável pública (Public Nova_Planilha As Object) na primeira linha do módulo antes de qualquer procedimento Sub ou Function.

Sub Adiciona_Plan_e_Formulas()
Set Nova_Planilha = Worksheets.Add
Nova_Planilha.Visible = xlVeryHidden
Nova_Planilha.Range("A1:D4").Formula = "=RAND()" ' formula a ser inserida
End Sub

Observe a mesma macro, porém fiz uma pequena modificação para realização do teste do Desenvolvedor.
Sub Adiciona_Plan_e_Formulas()
Dim resposta As String

Application.DisplayAlerts = False 'nao emite e mensagem "deseja salvar...."
Sheets("Saberexcel").Visible = True
Sheets("Saberexcel").Delete 'na entrada da macro deleta a planilha existente.

Set Nova_Planilha = Worksheets.Add
Nova_Planilha.Name = "SaberExcel"
Nova_Planilha.Visible = xlVeryHidden
Nova_Planilha.Range("A1:D4").Formula = "=RAND()" ' formula a ser inserida
Application.DisplayAlerts = False

resposta = MsgBox("Planilha [Saberexcel] criada com sucesso, ocultada, deseja visualizá-la?", vbYesNo + vbInformation, "Saberexcel - site das macros")

If resposta = 6 Then
Sheets("Saberexcel").Visible = True
End If

End Sub

Aprenda Aplicativo Microsoft Excel VBA --((( SaberExcel )))--

Macro do Aplicativo Microsoft Excel VBA, contém renomeia a folha de planilha ativa, se a célula (D1) estiver preeenchida,
será inserido o nome relativo ao valor da célula(D1), senão será preenchido com o nome "Nova Planilha Saberexcel"

Sub Nomeando_planilha_ativa()
On Error Resume Next
If Range("D10").Value = "" Then
ActiveSheet.Name = "Nova Planilha Saberexcel"
MsgBox "Nome [" & ActiveSheet.Name & " ] porque a célula D10 está vazia", _
vbInformation, "Saberexcel - o site das macros"
Exit Sub
Else
ActiveSheet.Name = Range("D10").Value
MsgBox "Planilha nomeada como [ " & Range("D10") & " ] valor da célula[D10]", _
vbInformation, "Saberexcel - o site das macros"
End If
End Sub

Aprenda Aplicativo Microsoft Excel VBA com SaberExcel

Macros do aplicativo Microsoft Excel VBA, impede navegação em células que não estejam desbloqueadas.

Macro funcionando na abertura do Workbook (Livro, assegure-se de que as células só desbloqueadas são selecionadas em uma Planilha protegida, liberando a navegação apenas para as células debloqueadas.

Sub Auto_Open()
Sheets("Plan1").EnableSelection = xlUnlockedCells
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
MsgBox ("celulas bloqueadas"), vbCritical, "Saberexcel - site das macros"
End Sub

Esta segunda macro usamos como auxiliar para podermos testar o exemplo, observe que inserimos (FALSE), para deslproteger as células
Sub Debloquear_celulas()
Sheets("Plan1").EnableSelection = xlUnlockedCells
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
MsgBox ("celulas desbloqueadas"), vbCritical, "Saberexcel - site das macros"
End Sub

Sub Bloqueadas_celulas()
Sheets("Plan1").EnableSelection = xlUnlockedCells
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
MsgBox ("celulas bloqueadas"), vbCritical, "Saberexcel - site das macros"
End Sub

Aprenda Microsoft Excel VBA com qualidade Saberexcel