O Código Fonte

Aplicativo Random no Google Play

2015-07-11T15:56:00.002-03:00

Conheça o aplicativo Random, com ele você pode gerar:

- Combinações aleatórias entre letras, números e caracteres especiais;
- Listas aleatórias;
- Nomes aleatórios; e
- Números aleatórios;

Clique aqui para ir para o aplicativo no Google Play ou se preferir, utilize o QR CODE abaixo direto no seu Smartphone.

Como executar uma macro do VBA ao ativar um planilha no Excel

2015-01-03T14:05:00.003-02:00

O VBA nos dá a possibilidade de executarmos alguma ação/macro quando ocorrem alguns eventos em uma planilha do Excel, dentre esses eventos temos o:

Activate - ocorre quando uma planilha é ativada;
Deactivate - ocorre quando uma planilha é desativada;
Change - ocorre quando é feita alguma alteração na planilha;

Nessa postagem irei demostrar como utilizar o evento Activate. Para começarmos devemos abrir o VBA (pressionando ALT + F11) e exibir o código da planilha que queremos trabalhar, como mostra a imagem abaixo.

Feito isso devemos escolher qual objeto (Geral) e qual evento (Declaração) será utilizado.

Em Geral, escolhemos Worksheet (quando você selecionar Worksheet, automaticamente irá aparecer um código referente a um evento qualquer, você pode apagá-lo e ir para a seleção da Declaração), e em Declaração, escolhemos o evento, nesse caso Activate, seu código deve ficar desse jeito:

Private Sub Worksheet_Activate()

End Sub

Dentro dessa Sub podemos escrever nossa macro e sempre que a planilha for ativada ela será executada. Assim como é possível executar uma ação/macro para uma planilha específica, também é possível fazer isso para todas as planilhas, para isso temos que exibir o código da EstaPasta_de_trabalho, em Geral, escolher Workbook, e em Declaração, escolher SheetActivate, ficando desse jeito.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

End Sub

Para trabalhar com outro evento, realize o mesmo procedimento, porém ao invés de selecionar Activate na Declaração, selecione o evento de seu interesse.

Google Docs

Ler arquivos XLS e XLSX utilizando NPOI em C#

2014-12-07T23:23:00.000-02:00

Uma maneira de ler arquivos XLS e XLSX utilizando C# é através da biblioteca NPOI, ela nos permite ler esses tipos de arquivos sem a necessidade de termos o Microsoft Excel instalado, o que em alguns casos pode ocorrer. Para começar, devemos baixar os arquivos binários nesse link e depois adicioná-los as referências do nosso projeto, feito isso podemos começar.

A primeira coisa que devemos fazer é importar os namespaces que iremos utilizar, que são:

using NPOI.SS.UserModel;
using NPOI.HSSF.UserModel; // para arquivos XLS
using NPOI.XSSF.UserModel; // para arquivos XLSX

Existe uma diferença nas classes que são utilizadas em arquivos XLS e em arquivos XLSX, quando usamos arquivos XLS as classes que devemos utilizar começam com a letra H, por exemplo: HSSFWorkbook, HSSFSheet, HSSFRow, HSSFCell, etc. Para arquivos arquivos XLSX as classes começam com a letra X: XSSFWorkbook, XSSFSheet, XSSFRow, XSSFCell, etc. No exemplo que vou mostrar, irei ler um arquivo XLS e escrever seu conteúdo em um RichTextBox:

// utiliza um OpenFileDialog para selecionar o arquivo XLS
DialogResult resultado = ofdArquivos.ShowDialog();
// verifica se o usuário selecionou um arquivo
if (resultado == DialogResult.OK)
{
    // abre o arquivo para leitura
    FileStream arquivoXLS = new FileStream(ofdArquivos.FileName, FileMode.Open, FileAccess.Read);
    // recupera o Workbook do arquivo
    HSSFWorkbook workbook = new HSSFWorkbook(arquivoXLS);
    // recupera a Sheet de nome Plan1
    HSSFSheet sheet = (HSSFSheet)workbook.GetSheet("Plan1");

    // recupera as linhas da Sheet
    IEnumerator linhas = sheet.GetRowEnumerator();
    // enquanto existirem linhas
    while (linhas.MoveNext())
    {
        // recupera as células da linha atual
        IEnumerator celulas = ((HSSFRow)linhas.Current).Cells.GetEnumerator();
        // enquanto existirem células
        while (celulas.MoveNext())
        {
            // recupera a célula atual
            HSSFCell celula = ((HSSFCell)celulas.Current);
            // verifica o tipo de célula para ler seu conteúdo
            switch (celula.CellType)
            {
                case CellType.Blank:
                    // adiciona conteúdo no RichTextBox
                    rtbPlanilha.AppendText("\t");
                    break;
                case CellType.Boolean:
                    // adiciona conteúdo no RichTextBox
                    rtbPlanilha.AppendText(celula.BooleanCellValue + "\t");
                    break;
                case CellType.Error:
                    // adiciona conteúdo no RichTextBox
                    rtbPlanilha.AppendText(celula.ErrorCellValue + "\t");
                    break;
                case CellType.Formula:
                    // adiciona conteúdo no RichTextBox
                    rtbPlanilha.AppendText(celula.CellFormula + "\t");
                    break;
                case CellType.Numeric:
                    // adiciona conteúdo no RichTextBox
                    rtbPlanilha.AppendText(celula.NumericCellValue + "\t");
                    break;
                case CellType.String:
                    // adiciona conteúdo no RichTextBox
                    rtbPlanilha.AppendText(celula.StringCellValue + "\t");
                    break;
            }
        }
        // quebra de linha
        rtbPlanilha.AppendText("\n");
    }

    // fecha o arquivo XLS
    arquivoXLS.Close();
}
else
{
    // exibe mensagem
    MessageBox.Show("Nenhum arquivo foi selecionado.", "Aviso", MessageBoxButtons.OK, MessageBoxIcon.Information);
}

Para fazer a mesma coisa, porém com arquivos XLSX, basta trocar o H pelo X.

Google Docs

Remover senha de proteção de uma Planilha do Excel

2013-02-15T19:46:00.002-02:00

Para remover a senha da planilha, basta executar o seguinte procedimento no VBA:

Sub DesprotegerPlanilhaAtiva()
    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 "Planilha desprotegida com sucesso!", vbInformation + vbOKOnly, "Informação"
                                                        Exit Sub
                                                    End If
                                                Next
                                            Next
                                        Next
                                    Next
                                Next
                            Next
                        Next
                    Next
                Next
            Next
        Next
    Next
End Sub

Após alguns segundos a senha é removida.

Para aqueles que não estão muito familiarizados com o VBA, criei um suplemento que contém a macro para remover a senha, basta abrir o arquivo que contém a planilha protegida e depois abrir o arquivo DesprotegerPlanilhaAtiva.xla, se aparecer alguma mensagem de segurança, clique em "Habilitar Macros", depois pressione ALT + F8, digite DesprotegerPlanilhaAtiva e clique em Executar.

Download

Google Docs

Vídeo

YouTube

Origem

http://ontraining.com.br/2012/03/05/microsoft-excel-vba-como-retirar-senha-de-protecao-de-planilha/

Obter o Handle sobre o cursor do Mouse

2012-04-29T11:06:00.000-03:00

Para obter o Handle sobre o cursor do Mouse utilizando Delphi, iremos utilizar um Timer, três Edits e as seguintes funções:

GetCursorPos - Obtém a posição do Mouse;
WindowFromPoint - Retorna o Handle de acordo com a posição informada;
GetWindowText - Obtém o Texto referente ao Handle;
GetClassName - Obtém a Classe referente ao Handle;

O evento OnTimer do Timer ficará assim:

procedure TfrmMain.tHandleTimer(Sender: TObject);
var
  Handle : Longint;
  Posicao : TPoint;
  Texto, Classe: array [0..255] of char;
begin
  GetCursorPos(Posicao);
  Handle := WindowFromPoint(Posicao);
  GetWindowText(Handle, Texto, SizeOf(Texto));
  GetClassName(Handle, Classe, SizeOf(Classe));
  edtHandle.Text := IntToStr(Handle); //TEdit
  edtTexto.Text := Texto; //TEdit
  edtClasse.Text := Classe; //TEdit
end;

Simples não?

Google Docs

Como criar um Teclado Virtual utilizando Delphi

2012-03-17T23:17:00.001-03:00

Basicamente, o que você observa em um teclado virtual quando o utiliza?
- sempre fica sobre as janelas e programas abertos.
- não recebe o foco ao clicar nas teclas.
- envia teclas para o objeto ativo.

Sabendo disso, para criar um teclado virtual em Delphi, vamos precisar fazer o seguinte:

1º Definir a propriedade FormStyle do Form para fsStayOnTop.
2º Incluir o código abaixo no projeto.

private
  { Private declarations }
protected
  { Protected declarations }
  procedure CreateParams(var Params: TCreateParams); override;
public
  { Public declarations }
end;

//alterar TForm1 para o nome do seu formulário
procedure TForm1.CreateParams(var Params: TCreateParams);
const
  WS_EX_NOACTIVATE = $8000000;
begin
  inherited;
  Params.ExStyle := Params.ExStyle + WS_EX_NOACTIVATE;
end;

3º Utilizar o comando keybd_event, conforme os exemplos:

//teclas normais
keybd_event(Ord('A'), 0, 0, 0); //pressiona tecla [A]
keybd_event(Ord('A'), 0, KEYEVENTF_KEYUP, 0); //libera tecla [A]
//ou
keybd_event(65, 0, 0, 0); //pressiona tecla [A]
keybd_event(65, 0, KEYEVENTF_KEYUP, 0); //libera tecla [A]

//teclas especiais
keybd_event(VK_BACK, 0, KEYEVENTF_EXTENDEDKEY or 0, 0); //pressiona Backspace
keybd_event(VK_BACK, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0); //libera Backspace

//simular letra maiúscula
keybd_event(VK_LSHIFT, 0, KEYEVENTF_EXTENDEDKEY or 0, 0); //pressiona Shift esquerdo
keybd_event(65, 0, 0, 0); //pressiona tecla [A]
keybd_event(65, 0, KEYEVENTF_KEYUP, 0); //libera tecla [A]
keybd_event(VK_LSHIFT, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0); //libera Shift esquerdo

//simular acento agudo
keybd_event(219, 0, 0, 0); //pressiona acento agudo
keybd_event(219, 0, KEYEVENTF_KEYUP, 0); //libera acento agudo
keybd_event(65, 0, 0, 0); //pressiona tecla [A]
keybd_event(65, 0, KEYEVENTF_KEYUP, 0); //libera tecla [A]

Com isso você já consegui criar seu próprio teclado virtual.

Google Docs

Não se esqueça de liberar uma tecla após pressioná-la.

Tabela ASCII
Tabela Virtual Key

http://www.devmedia.com.br/forum/viewtopic.asp?id=367715

Iniciando

2012-02-26T14:41:00.001-03:00

Muitas vezes precisamos de alguma ajuda com os nossos códigos e passamos horas tentando encontrar uma solução, o meu objetivo é disponibilizar o máximo de informações possíveis para agilizar esse processo, que muitas vezes chega a ser muito cansativo.

Tenho conhecimentos em Delphi, Java, Java/Android, Visual Basic/VB, VB.Net e Visual Basic for Applications/VBA, não sou nenhum expert, mas "quebro o galho".

Pretendo disponibilizar o código fonte através das postagens e em arquivos para download.

Todo código fonte que for postado, irá conter a fonte de onde foi retirado/adaptado/pesquisado, com exceção dos códigos que eu mesmo desenvolver.

Os ícones utilizados nas postagens são encontrados no site http://www.fatcow.com/free-icons.

Espero poder ajudar muitas pessoas.

Abraços.