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("B2:B10")
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

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere um menu contextual,(menu suspenso) ao clicar com o botão direito do mouse em determinada planilha, neste caso inserí o exemplo com o evento na folha de planilha 'Pagamento'. Quando clicar com o botão direito do mouse abrirá o Menu Contextual para navegação pelas folhas de planilhas do livro. bem simples, bem legal. Observem que inserí também no Evento Auto_Open, que mostrará o Menu antes de abrir o Livro. Espero que o exemplo possa lhe útil. Fique com Deus, E_Marcondes


Sub Menu_CONTEXTUAL()
Application.CommandBars("Workbook tabs").ShowPopup 500, 200
End Sub

Sub plan_pagamento()
Saber2.Select
End Sub


Esse exemplo ligado ao Evento Open do Obejto Livro(WorkBook) já direcionará para planilha 'Pagamento' e abrirá o menu contextual
Private Sub Workbook_Open()
Saber2.Select
Menu_CONTEXTUAL
End Sub

Esse procedimento ocorre ao clicar duas vezes no botão direito do mouse esta ligado ao Objeto Worksheet
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Menu_CONTEXTUAL
End Sub

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

Saberexcel - site das macros

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), verifica em determinado diretório se existe ou não determinado arquivo, neste caso estamos procurando pelo arquivo Doacoes_Saberexcel_Google.xls. Para fazer seu teste voce deverá inserir uma planilha em determinado local e trocar o endereço Path(Diretorio). isto é, indique o endereço da planilha no seu computador.

Sub Verfica_Planilha_Existente()

'Adicionar a referência Microsoft Scripting Runtime
'Declaração da variável
Dim vPlanilha As Scripting.FileSystemObject
Set vPlanilha = New Scripting.FileSystemObject

'Condição local e nome do arquivo para verificação
If vPlanilha.FileExists("C:\Doacoes_Saberexcel_Google.xls") Then
'Caso exista a planilha retorna msg
MsgBox "Planilha existe!!!", vbInformation, "Saberexcel - site das macros"
Else
'Caso não exista a planilha esta mensagem
MsgBox "Planilha não existente!", vbInformation, "Saberexcel - site das macros"
End If

End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos 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

Saberexcel - o site das macros

Este exemplo de planilha contendo o Evento Worksheet_SelectionChange do Aplicativo Microsoft Excel VBA, percorre a janela do livro. Observem que a seleção ficará sempre no canto superior da tela na posição (A1), e a seleção está no canto superior esquerdo da janela.

Ocorre quando a seleção é alterada em uma planilha.

Worksheet_SelectionChange
Private Sub (ByVal Target Como Excel.Range)

Poderá selecionar uma celula para que essa seja rolada para alto da página no canto esquerdo.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveWindow
.ScrollRow = Target.Row
.ScrollColumn = Target.Column
End With
End Sub




Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel