Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções

Esses macros do aplicativo Microsoft Excel sVBA hatilita e ou desabilita comandos do aplicativo Excel, como teclas Alt + F11, acesso ao VBA,
e Alt F8 (Gravar Macros), como também a lista suspensa da aba de planilha desabilitar e habilita e botão direito do mouse desabilitando e habilitando
a lista menu suspensa ao clicar com o botão direito do Mouse célula na folha de planilha.
Esses comandos geralmente deixa o usuario muito irritado, pois desabilita de forma definitiva, tem que usar o macro para habilitá-los novamente,


'rotina para habilitar e ou desabilitar comandos (true /false)
Sub sbxBARRASCOMANDOS(ByVal sbxB As Boolean) '
Dim cmbBar As CommandBars
Dim i As Integer
sbx_limpar_teste
Set cmbBar = Application.CommandBars
For i = 1 To Application.CommandBars.Count
cmbBar(i).Enabled = sbxB
Cells(i, "a").End(xlUp).Offset(1, 0).Value = cmbBar(i).Name
Next i
End Sub

Sub sbx_desabilitar_comandos_teclas()
Dim i As Long
Application.OnKey "%{F11}", "" 'acesso ao vba
Application.OnKey "%{F8}", ""
Call sbxBARRASCOMANDOS(False)
'Worksheets("F").ScrollArea = "A2:J56"
MsgBox "(Comandos desabilitados)", vbCritical, "Escola Saberexcel VBA Estudos®"
Application.WindowState = xlMaximized
For i = 2 To Cells(Rows.Count, "a").End(xlUp).Row
Cells(i, "b").Font.ColorIndex = 3
Cells(i, "a").Offset(0, 1).Value = "DESABILITADA"
Next i
End Sub

Sub sbx_habilitar_comandos_e_teclas()
Application.OnKey "%{F11}" 'habilitar tecla f11
Application.OnKey "%{F8}" 'habilitar tecla F8
Call sbxBARRASCOMANDOS(True)
MsgBox "(Comandos HABILITADOS)", vbInformation, "Escola Saberexcel VBA Estudos®"
Application.WindowState = xlMaximized

For i = 2 To Cells(Rows.Count, "a").End(xlUp).Row
Cells(i, "b").Font.ColorIndex = 10
Cells(i, "a").Offset(0, 1).Value = "[HABILITADA]"
Next i

End Sub

Sub sbx_limpar_teste()
tInicio = 2
zFim = Cells(Rows.Count, "a").End(xlUp).Row
Range(Cells(tInicio, 1), Cells(zFim, 2)).Clear
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.



Baixe o exemplo de planiha contendo os macros acima:

Escola Saberexcel VBA Estudos® - Treinamento com Macros, Fórmulas e Funções

Esses macros do aplicativo Microsoft Excel VBA(visual Basic Application) ocultam ou e repõem as barras de menus ( Faixa de Opções ) excel 2007 - 2010. Baixe o exemplo de planiha no final da página. Fique com Deus. Expedito Marcondes.
' - - - - - - - - - - - - - - - - - - - - - - - - - - - -'
Sub sbx_repor_faixa_de_opcoes()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
[d11].Value = "Faixa de Opções (Menus) I-N-S-E-R-I-D-A-"
End Sub

Sub sbx_retirar_faixa_opcoes()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
[d11].Value = "Faixa de Opções (Menus) - R-E-T-I-R-A-D-A-"
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.



:

Essas macros do Aprenda Microsoft Excel VBA(Visual Basic Application) -- SaberExcel --, inserem uma barra de ferramenta personalizada com combobox agregado à barra, essa macro que poderá resolver seu problema ela insere essa barra com o combobox na barra, e chama algumas macros através dos botões inseridos

Option Explicit

Sub Barra_Eves_Personalizada()

On Error Resume Next
CommandBars("XL-Eves®").Delete
On Error GoTo 0

With CommandBars.Add(Name:="XL-Eves®")
With .Controls.Add(Type:=msoControlButton)
.Caption = "XL-Eves®"
.OnAction = "msg"
.FaceId = 343
.TooltipText = "Aprender VBA (XL-Eves®)"
End With

With .Controls.Add(Type:=msoControlPopup)
.Caption = "Menu"
.TooltipText = "Inserir ordem crescente e decrescente"
With .Controls.Add(Type:=msoControlButton)
.Caption = "Ordem Crescente"
.FaceId = 210
.OnAction = "crescente"
End With

With .Controls.Add(Type:=msoControlButton)
.Caption = "Ordem Decrescente"
.FaceId = 211
.OnAction = "decrescente"
End With

With .Controls.Add(Type:=msoControlButton)
.Caption = "Deletar_barra"
.FaceId = 507
.OnAction = "deletar_barra"
End With

End With

With .Controls.Add(msoControlDropdown)
.AddItem "AA"
.AddItem "BB"
.AddItem "CC"
.OnAction = "msg"
.TooltipText = "testes com barras"
End With

.Position = msoBarTop
.Visible = True
End With
End Sub

Sub msg()
MsgBox "Aprenda excel vba, Esforce-se! ", vbInformation, "XL-Eves®"
End Sub

Sub crescente()
MsgBox ("Ordem Crescente Excel VBA Estudos®"), vbExclamation, "XL-Eves®"
End Sub

Sub decrescente()
MsgBox ("Ordem Decrescente Excel VBA Estudos®"), vbExclamation, "XL-Eves®"
End Sub

Sub deletar_barra()
CommandBars("XL-Eves®").Delete
End Sub

'inserir no módulo workbook

Option Explicit

Private Sub Workbook_Open()
Call Barra_Eves_Personalizada
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("XL-Eves®").Delete
End Sub

Aprenda Microsoft Excel VBA(Visual Basic Application) -- SaberExcel --

SaberExcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, insere em uma outra folha de planilha os FaceID, que são icones do Excel, baseados em um intervalo de números representados pelos valores de duas células na folha de planilha, número inicial e número final, ou seja, FACEID's. de 123 à 876,
a macro lê os valores e insere números e referencias de FaceIDs na folha de Planilha.

[email protected]

Option Explicit

Sub Criar_Botoes_ID()
Dim x1 As Integer
Dim x2 As Integer
Dim i As Integer
Dim Titulo As String
Dim Ident As Integer

On Error Resume Next

x1 = Range("ini").Value
x2 = Range("fim").Value

If x2 < x1 Then x2 = x1

Call EliminarFiguras

Sheets("Botões").Select

Range("A1").Value = "ID"
Range("B1").Value = "Figura"
Range("C1").Value = "Descrição"
Range("B1").Select

Application.CommandBars.Add(Name:="temp").Visible = False

For i = x1 To x2
With Application.CommandBars("temp")
.Controls.Add Type:=msoControlButton, ID:=i, Before:=1

If .Controls.Count > 0 Then
Titulo = .Controls(1).Caption
Ident = .Controls(1).ID

If Titulo > "" Then
.Controls(1).CopyFace
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(0, -1).Value = Ident
ActiveCell.Offset(0, 1).Value = Titulo
ActiveSheet.PasteSpecial

.Controls(1).Delete
End If

End If

End With
Next i
Application.CommandBars("temp").Delete

Range("B1").Select

Cells.Replace What:="&", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False

End Sub


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel







Publicidade
Compre com segurança, garantia, ótimos preços nas lojas submarino

Saberexcel - site das macros

Esse procedimento do Aplicativo Microsoft Excel VBA, contém procedimento no modulo de planilha
worksheet usando o Evento BeforeRightClick, clicar com o botao direito do mouse, insere um menu
contextual no range definido B1: B10 cria um botão ligado a uma determinada macro clicar somente
nesta região com o botão direito do mouse

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, cancel As Boolean)

For Each vSaber In Application.CommandBars("cell").Controls
If vSaber.Tag = "sbx" Then vSaber.Delete
Next vSaber

If Not Application.Intersect(Target, Range("B1:B10")) Is Nothing Then
With Application.CommandBars("cell").Controls _
.Add(Type:=msoControlButton, before:=6, _
temporary:=True)
.Caption = "SaberExcel B1:B10"
.OnAction = "Minha_Macro"
.Tag = "sbx"
.FaceId = 261
End With
End If
End Sub

'
'Atenção! Esta macro para ser encontrada deve ser inserido no módulo Simples
Sub Minha_Macro()
MsgBox ("Este Menu somente é inserido ao clicar na range B1:B10"), vbInformation, ":::Saber Excel.com:::"
End Sub
'
'Esta macro reseta menus personalizados no cell botão direito do mouse
Sub Reseta__Botoes_Personalizados_Direito_Mouse()
Application.CommandBars("Cell").Reset
End Sub

Aprenda Microsoft Excel VBA -- Saberexcel - o site das macros




Baixe o exemplo de Planilha com os procedimentos acima