Saberexcel - site das macros
Essa macro cria uma planilha chamada [Saberexcel_Contas]
se caso a planilha já existir, emite uma mensagem se voce deseja preservar ou deletar
a antiga planilha, se sim, deletará a planilha antiga e inserirá nova planilha, se não,
preservará a planilha antiga, selecionando-a.

Sub Criando_nova_planilha_verifica_existencia()
Dim vPlanilha As Worksheet, vResposta As Variant
On Error GoTo Erro_Plans

'criando uma nova planilha chamada Saberexcel_contas
Set vPlanilha = Worksheets.Add
With vPlanilha
.Name = "Saberexcel_Contas"
.Cells(1.1).Select
.Activate
End With
Exit Sub

Erro_Plans:

'Esse erro ocorrerá se planilha a ser criada for duplicada, isto é se existir
If Err.Number = 1004 Then
'emite uma mensagem se a planilha a ser criada já existir no livro
vResposta = MsgBox("Já existe no livro uma planiha chamada 'Saberexcel_Contas' , " & _
"clique em 'Ok' para continuar a criação de uma nova planilha e deletar a planilha existente, " & _
"ou clique 'Cancelar' para ir para a planilha antiga.", _
vbOKCancel, "Planilha Duplicada - Saberexcel - Excel VBA Estudos®")

If vResposta = vbOK Then
'deletando a planilha antiga
Application.DisplayAlerts = False 'para nao emitir aquela mensagem do windows "Deseja....."
Worksheets("Saberexcel_Contas").Delete
Application.DisplayAlerts = True

'renomeando e ativando a nova planilha
With vPlanilha
.Name = "Saberexcel_Contas"
.Cells(1.1).Select
.Activate
End With
Else
'cancela a operação, deletando a nova planilha
Application.DisplayAlerts = Fal
vPlanilha.Delete
Application.DisplayAlerts = True
'ativando a planilha existente(antiga)
Worksheets("Saberexcel_Contas").Activate
End If
End If
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel

   Baixe o exemplo de planilha contendo a macro acima

Saberexcel - o site das macros
Essas macros do Aplicativo Microsoft Excel VBA, impedem o usuário de deletar determinadas planilhas, enviando mensagem de proibição de deleção de Folha de Planilha. A macro abaixo Modificar_deletar_planilha(), tem por finalidade inserir um botão de menu à barra principal do aplicativo, no caso de estar usando Excel 2007 ou Excel 2010, na aba suplementos. (menus personalizados fica nesta Aba 'Suplementos')

Sub Modificar_deletar_planilha()
Dim sb As CommandBarControl
For Each sb In Application.CommandBars.FindControls(ID:=847)
sb.OnAction = "Deleta_Planilha"
Next sb
End Sub

Sub Deleta_Planilha()
If ActiveSheet.Index = 1 Then
MsgBox "Voce não pode deletar esta planilha!", vbc + vbOKOnly + vbExclamation, "INFORMAÇÃO AO USUÁRIO - Saberexcel.com"
Else
Select Case MsgBox("Atenção voce vai deletar essa planilha !", vbc + vbYesNo + vbExclamation, "INFORMAÇÃO AO USUÁRIO - Saberexcel.com")
Case vbYes
ActiveSheet.Delete
Case vbOK
Exit Sub
End Select
End If
Exit Sub
End Sub


Sub Reabilitar_deletar_Planilha()
Dim sb As CommandBarControl
For Each sb In Application.CommandBars.FindControls(ID:=847)
sb.OnAction = ""
Next sb
End Sub




Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - SaberExcel





Publicidade:
Compre com segurança, qualidade, garantia e melhores preços nas lojas subMarino

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 )))--

Saberexel - o site das macros

Saberexcel - site das Macros

Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), usando evento Worksheet_BeforeRightClick, que ocorre quando clicar na coluna B, no intervalo de células Range(B2:B10) com o botão direito do mouse, insere uma formatação de cores na célula clicadas, como também retira a formatação inserida se clicado uma segunda vez.
Espero que o exemplo possa ajudá-los em alguma coisa, Fiquem com Deus, Expedito Marcondes.


Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
Dim c
Cancel = True
For Each c In Range("B3")
If c = Target Then c.Interior.ColorIndex = IIf(c.Interior.ColorIndex = 4, xlNone, 4)
Next c
End Sub


Aprenda tudo sobre o lAplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel

Saberexcel - site das macros

Esse procedimento do Aplicativo Microsoft Excel VBA (Visual Basic Application), esta usando o Evento Worksheet_BeforeRightClick, que acontece quando clica com o botão direito do Mouse.

Quando Clicar com o Botão direito do Mouse, vai colorir em verde os ítem que estão na coluna(B), ao clicar novamente retira a formatação nos dados digitados e afeta toda a região, isto é , Range(B3:B100), e assim vai alternando de cores, verde e retirando formatação.
Observe que inserí no procedimento uma linha de código [ Range(c, c.Offset(0, 2)).Interior.ColorIndex = xlNone ] que afetará também a fonte quando o usário clicar com botão direito do mouse também na Coluna(B) na célula onde se encontra algum dado.
Baixe o exemplo de planilha no final da página. Fiquem com Deus. Desejo-lhes todo bem.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
Dim c
Cancel = True

For Each c In Range("B3:B100")

If c = Target Then
If c.Interior.ColorIndex = 4 Then
Range(c, c.Offset(0, 2)).Interior.ColorIndex = xlNone 'retira a formatação se houver.
Range(c, c.Offset(0, 2)).Font.ColorIndex = 45 'vai inserir esta cor quando clicar botao direito mouse em alguma celula colB

Else
Range(c, c.Offset(0, 2)).Interior.ColorIndex = 4 - Propriedade offset(desloc) >>> Offset(Linha, Coluna))
Range(c, c.Offset(0, 2)).Font.ColorIndex = 11
End If

End If

Next c
End Sub



Aprenda tudo sobre o Microsoft Excel VBA (Visual Basic Application), sozinho, com baixo custo,
praticando com os produtos didáticos SaberExcel