Saberexcel - o site das Macros
Essa macro do Aplicativo Microsoft Excel VBA, contém uma macro que ao ser acionada oculta e ou mostra a folha de planilha chamada de [Teste], o interessante para quem não sabe, é que atribuimos o valor texto de uma determinada célula ao botão, que alterna o caption (cabeçalho) ao executar a macro abaixo, isto é se a folha de planilha esta ou não visível, é um truquezinho bom que auxilia as vezes em pequenos trabalhos. Caso ainda não conheça observe a imagem abaixo que poderá auxiliá-lo, como também baixar a planilha exemplo no final da página. Espero que isso possa ajudá-los, Fiquem com Deus, E_Marcondes.

Sub Visualizar_ocultar_folha_teste()
Dim Sb As Boolean
Dim Nome_da_folha As String
Nome_da_folha = "Teste"

'Status da Planilha Teste (visível)
Sb = Sheets(Nome_da_folha).Visible

'visualização on off
Sheets(Nome_da_folha).Visible = Not Sb

'alterar o texto do botão para acompanhar o status da folha de planilha "Teste"
If Sb = True Then Range("D1") = "Ver Folha de Planilha [Teste]" Else _
Range("D1") = "Esconder Folha de Planilha [Teste]"
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com 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

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

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