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 de quem precisa aprender sobre Macros Microsoft Excel VBA

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), deleta a folha de planilha se na folha de código da folha de planilha (Plan1) contiver um código com menos de duas linhas de código, caso tenha mais de duas linhas de códigos na folha de planilha, o macro emite uma mensagem que a folha de planilha não poderá ser deletada. Bacana não é? em um grande projeto voce poderá fazer um loop, e deletar as planilhas que foram criadas e estão sem códigos, concordam? Espero que o exemplo pode ser útl.
Fiquem com Deus, Expedito Marcondes
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -'
http://www.microsoftexcel.com.br
'contato@ saberexcel.com.br
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -'
Sub Delete_planilha_ativa()
Dim PlanCodLinhas As Long

'(*) requere referencia MS VBA Extensibility' library

PlanCodLinhas = ActiveWorkbook.VBProject.VBComponents _
(ActiveSheet.CodeName).CodeModule.CountOfLines

If PlanCodLinhas > 2 Then
MsgBox ActiveSheet.Name & " -- Nesta planilha contém [ " & _
PlanCodLinhas & " ] linhas de código " & vbCrLf & "(NAO PODE DELETÁ-LA!) " & vbCrLf _
& " - Veja na folha de código da folha de planilha ", _
vbCritical, "Saberexcel o site das macros"
' ---> aqui voce poderá inserir seus códigos, inserí uma mensagem intenção didática.

ElseIf Left(ActiveSheet.Name, 4) = "Plan" _
Or Application.WorksheetFunction.CountA(ActiveSheet.Cells) = 0 Then
Application.DisplayAlerts = False
ActiveSheet.Delete
'impede a mensagem do excel (..deseja excluir....)
Application.DisplayAlerts = True
Else
Application.DisplayAlerts = True
ActiveSheet.Delete
End If
End Sub

'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -'

Sub visualizar_macro()
Dim resposta As String
resposta = MsgBox("deseja visualizar(tela ou vbe)?" & vbCrLf & " se SIM = Tela" & vbCrLf & " se NAO = VBE", vbYesNo, "Saberexcel - o site das macros")
If resposta = 6 Then ' 6 = yes
ActiveSheet.Shapes.Range(Array("macro")).Select
Selection.Verb Verb:=xlPrimary
Else
Application.Goto reference:="Delete_planilha_ativa"
End If
[C1].Select
End Sub

Sub folha_codigo_planilha()
Application.Goto reference:="saber1.Worksheet_SelectionChange"
End Sub



Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.

 

SaberExcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, adiciona doze planilhas referente aos meses do ano, e deleta todas as folhas de planilhas preservando somente a folha de planilha desejada, mas na macro abaixo há uma explicação para preservar mais de uma folha de planilha na deleção. leia abaixo.

Sub adiciona_Meses()
Dim Meses As Variant
Meses = Array("minha", "Janeiro", "Fevereiro", "Março", "Abril", "Maio", "Junho", "Julho", "Agosto", "Setembro", "Outubro", "Novembro", "Dezembro")
ActiveWorkbook.Sheets.Add , , 12

For i = 1 To 12
Sheets(i).Name = Meses(i)
Next i

Sheets("Plan1").Select ' quando acaba seleciona a plan1
End Sub

Essa macro é muito útil também em outras aplicações, pois ela deleta todas as planilhas e preserva a folha de planilha desejada.
por exemplo se voce necessitar que seja preservada mais de uma planilha deverá mudar a linha de código abaixo para:

If (Plan.Name <> "Plan1" And Plan.Name <> "Janeiro") Then
Neste caso, se aumentar as planilhas a serem preservadas, tem que retirar a Folha de Planilha "Janeiro" do Array (Meses) na macro acima veja lá.
porque senão, toda a vez que inserir, a macro vai inserir uma a mais, com um determinado número, porque a folha de planilha já existe, nao foi deletada.

Sub Deleta_todas_menos_a_desejada()
Dim Plan As Worksheet
On Error Resume Next
Application.DisplayAlerts = False 'impede de emitir a mensagem se deseja excluir
For Each Plan In Worksheets
If (Plan.Name <> "Plan1") Then
Plan.Delete
End If
Next
Application.DisplayAlerts = True
End Sub

'...........................................................................'

Sub Macro3()
Sheets(Array("Janeiro", "Fevereiro", "Março", "Abril", "Maio", "Junho", "Julho", _
"Agosto", "Setembro", "Outubro", "Novembro", "Plan1")).Select
Sheets("Janeiro").Activate
Range("J27").Select
Sheets("Plan1").Select
Range("G18").Select
End Sub

Sub Recado_p_Núbia()
Range("D17").Value = "Núbia, esta vendo o ""porque?"" da Coleção 15.000 Macros"
Range("D18").Value = "é somente o código sem ter necessidade da planilha modelo"
Range("D20").Value = "já a planilha toda com o código fica mais pesado"
Range("D21").Value = "ficaria inviável, pois a coleção de macros esta em programa apropriado"
Range("D23").Value = "Fique com Deus, Esforce-se!"
Range("D24").Value = "Se precisar de alguma coisa, Comunique comigo"
Range("D25").Value = "Expedito de Paula Marcondes... Excel VBA."
Range("D26").Select
End Sub

Sub Limpar_Recados()
Range("D17") = "" ' duas aspas sem nada significa (que não tem nada) em branco
Range("D18") = ""
Range("D20") = ""
Range("D21") = ""
Range("D23") = ""
Range("D24") = ""
Range("D25") = ""
Range("D26") = ""
End Sub

'Com este código acessa o módulo modulo vai para
Sub ver_código()
SendKeys ("%{F11}")
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - com SaberExcel




Publicidade
Compre com segurança, garantia e ótimos preços nas lojas SubMarino,
tudo que voce precisar poderá encontrar nas lojas submarino, livros, notebooks...

Saberexcel - site das macros

Esses macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere um nome à folha de planilha(Plan2), com auxílio de uma entrada de dados inputbox, e a segunda macro renomeia a folha de planilha baseados em fórmulas existente na célula(F12), que a função Aleatório() do aplicativo Excel gerará na célula(F2). O macro abaixo contém a linha de código SendKeys que aciona a tecla (F9) que automaticamente gerará um novo nome aleatorio para a folha de planilha.

Sub Renomeando_planilha_plan2()
Dim vNome As String
[A2:c1000].ClearContents
vNome = InputBox("Digite o nome para nova Planilha?")
If vNome <> "" Then
'Sheets.Add Type:=xlWorksheet
Saber2.Name = vNome
End If
End Sub

vamos fazer um Teste, usar partes do mesmo macro acima, construindo outro macro que faz a mesma coisa, porém com algumas pequenas modificações, renomeia uma folha de planilha com nomes aleatórios gerado pela fórmula na célula(F12), que contém a função Aleatório().
Espero que o exemplo lhe seja útil. Fique com Deus. E_Marcondes

Sub Renomear_com_nomes_Aleatorios()
Dim sbx As String

Application.SendKeys "+{F9}" 'muda o valor aleatorio da célula f12
sbx = [F12].Value
'sbx = InputBox("Digite o nome para nova Planilha?")
If sbx <> "" Then
'Sheets.Add Type:=xlWorksheet
Saber2.Name = sbx
End If
[c2:c1000].ClearContents
[A65000].End(xlUp).Offset(1, 0).Value = sbx 'localiza ultima linha e insere valor gerado cel(F12)
[A65000].End(xlUp).Offset(0, 2).Value = "Planilha Atual"
[A65000].End(xlUp).Offset(0, 2).Font.ColorIndex = 3
End Sub

Sub Limpar_teste()
[A2:c6000].ClearContents
End Sub




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

Publicidade
Compre com segurança, garantia e ótimos preços

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, praticando com os produtos didáticos SaberExcel





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