Como colocar senha (bloquear) na sua macro

0

  1. Inicie o editor do Visual Basic – VBA (Alt+F11), ou clique na aba Desenvolvedor e no botão Visual Basic.
  2. Clique no menu Ferramentas.
  3. Clique em PROPRIEDADES DE VBAProject.
  4. Em seguida, na aba PROTEÇÃO, marque a opção BLOQUEAR PROJETO PARA EXIBIÇÃO.
  1. Abaixo digite a senha e confirme.
  2. Feche o Visual Basic (VBA) e pronto.

Pronto seu código já está protegido.

Como pausar o tempo (contador) da macro com VBA

0

  • Inicie o editor do Visual Basic – VBA (Alt+F11), ou clique na aba Desenvolvedor e no botão Visual Basic.
  • Abra um novo modulo (Alt, I, M), ou clique na pasta módulos do projeto existente e abra o módulo.
  • Insira o texto VBA copiando e colando o código abaixo:



Pausa na macro até chegar no horário do dia atual.

Application.Wait “18:23:00”

Para a macro por aproximadamente 10 segundos.

newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 10
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime

Pausa a macro indicando por quanto tempo passou.

If Application.Wait(Now + TimeValue(“0:00:10”)) Then
MsgBox “Time expired”
End If

Macro para fazer o Excel falar ou ler um texto

1

  • Inicie o editor do Visual Basic – VBA (Alt+F11), ou clique na aba Desenvolvedor e no botão Visual Basic.
  • Abra um novo modulo (Alt, I, M), ou clique na pasta módulos do projeto existente e abra o módulo.
  • Insira o texto VBA copiando e colando o código abaixo:



Sub Hello()
Application.Speech.Speak ("hello, who are you?")
End Sub

Macro para pegar o usuário da Rede, Domínio ou do Windows

0

  • Inicie o editor do Visual Basic – VBA (Alt+F11), ou clique na aba Desenvolvedor e no botão Visual Basic.
  • Abra um novo modulo (Alt, I, M), ou clique na pasta módulos do projeto existente e abra o módulo.
  • Insira o texto VBA copiando e colando o código abaixo:



Sub Usuario_do_Windows()
Set ObjNetwork = CreateObject("WScript.Network")
GetUserN = ObjNetwork.UserName
MsgBox "O Usuário do Windows é: " & GetUserN
End Sub

Sub Usuario_da_Rede()
Computador = Environ("Computername")
dominio = Environ("USERDOMAIN")
user = Environ("USERNAME")

MsgBox "Computador: " & Computador
MsgBox "Dominio: " & dominio
MsgBox "Usuario: " & user
End Sub

Macro para retirar senha e desbloquear planilha de Excel

0

  • Inicie o editor do Visual Basic – VBA  (Alt+F11), ou clique na aba Desenvolvedor e no botão Visual Basic.
  • Abra um novo modulo (Alt, I, M), ou clique na pasta módulos do projeto existente e abra o módulo.
  • Insira o texto VBA copiando e colando o código abaixo:



Sub Desproteger_Planilha_Excel()
Dim i, i1, i2, i3, i4, i5, i6 As Integer, j As Integer, k As Integer, l As Integer, m As Integer, n As Integer

On Error Resume Next
For i = 65 To 66
For j = 65 To 66
For k = 65 To 66
For l = 65 To 66
For m = 65 To 66
For i1 = 65 To 66
For i2 = 65 To 66
For i3 = 65 To 66
For i4 = 65 To 66
For i5 = 65 To 66
For i6 = 65 To 66
For n = 32 To 126

ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If ActiveSheet.ProtectContents = False Then
MsgBox "One usable password is " & Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If

Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub

  • Feche o Visual Basic (VBA).
  • No Excel clique na guia Desenvolvedor. Caso não esteja disponível segue Como Ativar a Guia Desenvolvedor.
  • Clique no botão macros e selecione o Nome_Da_Macro.
  • Clique em executar.

Macro para mover o mouse e clicar em Excel

0
Esta macro pode mover o mouse, selecionar, ou clicar em um determinado ponto. Pode ser usada com Excel minimizado em outros programas como por exemplo o Paint.
  • Inicie o editor do Visual Basic – VBA  (Alt+F11), ou clique na aba Desenvolvedor e no botão Visual Basic.
  • Abra um novo modulo (Alt, I, M), ou clique na pasta módulos do projeto existente e abra o módulo.
  • Insira o texto VBA copiando e colando o código abaixo:


'Declara os eventos do mouse
Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal

cButtons As Long, ByVal dwExtraInfo As Long)
Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Public Const MOUSEEVENTF_RIGHTDOWN As Long = &H8
Public Const MOUSEEVENTF_RIGHTUP As Long = &H10

'Declare pausa
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub CityscapeSkyline()

'Executa os movimentos altura e seleção do mouse, pode ser usado em outro aplicativos como paint
For k = 1 To 3
  SetCursorPos 16, 500
  Sleep 50
  mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
  For i = 16 To 600 Step 5
    For j = 500 To 300 Step -Int((180 - 10 + 1) * Rnd + 10)
      SetCursorPos i, j
      Sleep 10
    Next j
  Next i
  mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
Next k
End Sub

Sub CancelaOnTime()
'ejecuta ao final da repetição e reinicia o contador
    Application.OnTime tiempo, "IniciaOnTime", , False
    contador = 0
End Sub


  • Feche o Visual Basic (VBA).
  • No Excel clique na guia Desenvolvedor. Caso não esteja disponível segue Como Ativar a Guia Desenvolvedor.
  • Clique no botão macros e selecione o Nome_Da_Macro.
  • Clique em executar.

Macro para repetir uma macro a cada tempo

0
Inicie o editor do Visual Basic – VBA  (Alt+F11), ou clique na aba Desenvolvedor e no botão Visual Basic.


  • Abra um novo modulo (Alt, I, M), ou clique na pasta módulos do projeto existente e abra o módulo.
  • Insira o texto VBA copiando e colando o código abaixo:
'Declaração de variáveis para o módulo inteiro
Dim tiempo As Date
Dim contador As Integer

Sub IniciaOnTime()

'controla a repetição e a cadencia
Dim allea As Integer

'repete a cada 1 minuto e 2 segundos
tiempo = Now + TimeSerial(0, 1, 2)

'chama esta macro no tempo estipulado
Application.OnTime tiempo, "IniciaOnTime"

'controlamos o final da repetição
contador = contador + 1

'enquanto o contador é inferior a 6 executa a rotina principal
'quando chegarmos a 6 nós interrompemos a repetição
If contador < 6 Then
    Run "Nome_Macro_Principal"
Else
    Run "CancelaOnTime"
End If
End Sub
  • Feche o Visual Basic (VBA).
  • No Excel clique na guia Desenvolvedor. Caso não esteja disponível segue Como Ativar a Guia Desenvolvedor.
  • Clique no botão macros e selecione o Nome_Da_Macro.
  • Clique em executar.

Como habilitar a guia Desenvolvedor (macro) no Excel

0
Para habilitar esta aba basta seguir os passos a seguir:

1º Abra o MS Office Excel.
2º Clique na guia superior ARQUIVO.
3º No menu lateral clique em OPÇÕES.
4º Dentro da janela OPÇÕES que se abrira, clique no meu lateral (Esquerda) em PERSONALIZAR FAIXA DE OPÇÕES.
5º No menu que irão aparecer opções onde você pode habilitar ou desabilitar. No grupo de opções a direita procure a opção DESENVOLVEDOR e marque a caixa de seleção localizada a esquerda desta opção.


6º Clique no botão OK e pronto a aba DESENVOLVEDOR já estará disponível na parte superior do Excel.

Macro para abrir pagina de internet pelo Excel

0

  • Inicie o editor do Visual Basic – VBA  (Alt+F11), ou clique na aba Desenvolvedor e no botão Visual Basic.
  • Abra um novo modulo (Alt, I, M), ou clique na pasta módulos do projeto existente e abra o módulo.
  • Insira o texto VBA copiando e colando o código abaixo:


Public qvezes As Integer
Sub contaTempo()

 'altera o tempo'
Application.OnTime Now + TimeValue("00:04:00"), "teste_Tempo"
End Sub

Sub teste_Tempo()
qvezes = qvezes + 1

Dim browser As Variant
Set browser = CreateObject("InternetExplorer.Application")

 'altera o endereço'
browser.Navigate ("https://www.google.com.br/search?q=pra+crente")
browser.StatusBar = True
browser.Toolbar = True
browser.Visible = True
browser.Resizable = True
browser.AddressBar = True

 'limita ou altera os ciclos'
If qvezes < 30000 Then
Call contaTempo
Else
qvezes = 0
End If
End Sub

Public Sub Auto_Open()
    Call teste_Tempo
End Sub

  • Feche o Visual Basic (VBA).
  • No Excel clique na guia Desenvolvedor. Caso não esteja disponível segue Como Ativar a Guia Desenvolvedor.
  • Clique no botão macros e selecione o Nome_Da_MAcro.
  • Clique em executar.

Executar macro ao abrir planilha de Excel

0
Para executar um código ao abrir uma planilha do excel, siga os passos:
  • Inicie o editor do Visual Basic – VBA (Alt+F11), ou clique na aba Desenvolvedor e no botão Visual Basic.
  • Abra um novo modulo (Alt, I, M), ou clique na pasta módulos do projeto existente e abra o módulo.
  • Insira o texto VBA copiando e colando o código abaixo:
Clique em "EstaPasta_de_Trabalho";


Coloque este código:


Private Sub Workbook_Open()
"sua macro aqui"
End Sub


Para uma Subrotina use a função "call":


Private Sub Workbook_Open()
Call "nome_macro_principal"
End Sub

  • Feche o Visual Basic (VBA). 
  • No Excel clique na guia Desenvolvedor (Caso não esteja disponível veja aqui Como Ativar a Guia Desenvolvedor).
  • Clique no botão macros e selecione o Nome_Da_Macro_Criada.
  • Clique em executar e pronto.
Assinar: Postagens (Atom)