SANDWICH PROJECT 2016 - VBA Excel - Copy a Master Worksheet

SANDWICH PROJECT 2016 - VBA Excel - Copy a Master Worksheet

Sabe quando cria uma planilha mestra e gostaria de copiá-la rapidamente como um modelo para uma nova planilha?

Este código funciona muito bem com um calendário, planilhas de dataentry (entrada de dados) mensais, e outras aplicações onde tem planilhas com praticamente o mesmo layout.

Estou supondo que a planilha que deseja copiar seja chamada de Master, e que esteja oculta quando executar a macro. 

Abra sua pasta de trabalho. Pressione Alt + F11 para visualizar o Editor do VBA. Clique duas vezes em ThisWorkbook. E cole o seguinte código na janela de código:

Dim NewPageName As String
Sub NewPage()
       Let Sheets("Master").Visible = True
       Sheets("Master").Copy After:=Worksheets(Worksheets.Count)
       Let NewPageName = InputBox("What would you like to call your new Worksheet")
       Let ActiveWindow.ActiveSheet.Name = NewPageName
       Let Sheets("Master").Visible = False
End Sub

brazilsalesforceeffectiveness@gmail.com

SANDWICH PROJECT 2016 - VBA Access - Importando Fotos de um Diretório - Import Photos from Directory

SANDWICH PROJECT 2016 - VBA Access - Importando Fotos de um Diretório - Import Photos from Directory

Talvez precise importar as fotos de um cadastro de funcionários | clientes | fornecedores, ou criar um catálogo, album de fotos, etc... E deseje manter todas as fotos dentro de um arquivo MS Access.

 Aprenda: 17 Passos Essenciais para Melhorar seu Código VBA 

Isso é recomendável? Não!

É possível? Sim!

Crie uma tabela com a seguinte especificação dentro do seu banco de dados MS Access.

Em seguida crie um módulo como o nome de mdl_Importando_Imagens.

Em seguida cole o código abaixo nele:

Sub ImportPhotosFromDirectory()

        '      Author: André Luiz Bernardes - A&A - In Any Place - andreluizbernardess@gmail.com

    '        Date: 17/05/2016 - 15:14

    ' Application: Field Force Dashboard Analysis® - © A&A - In Any Place 2016, Inc. Todos os direitos reservados.

    '     Company: © A&A - In Any Place 2016, Inc. Todos os direitos reservados.

    '     Purpose: Import Photos from Directory.

    ' C:\Users\Photos

    Dim db As DAO.Database

    Dim rs As DAO.Recordset

    Dim oFS As New FileSystemObject

    

    Dim oFolder As Folder

    Dim oFile As File

    Dim nPath As String

    Let nPath = "C:\Users\Photos"

    Set db = CurrentDb()

    Set rs = db.OpenRecordset("tbl_Photos")

    Set oFolder = oFS.GetFolder(nPath)

    With rs

        For Each oFile In oFolder.Files

            Debug.Print oFile.Name

            

            .AddNew

                        

            Let !PhotoName = oFile.Name

            Let !Photo = oFile

            

            .Update

        Next oFile

    End With

End Sub

Ahhh, não se esqueça de manter a seguinte referência em seu projeto MS Access:

brazilsalesforceeffectiveness@gmail.com

SANDWICH PROJECT 2016 - VBA Excel - Quebrando a proteção de Planilha Protegida

SANDWICH PROJECT 2016 - VBA Excel: Quebrando a proteção de Planilha Protegida - Crack Sheet Protection Password

Às vezes protegemos nossas planilhas e simplesmente esquecemos a senha que havíamos colocado nela. Aí ficamos várias horas tentando lembrar, o que trás muito transtorno quando estamos com pressa, o que não é raro.

O código abaixo deve ser colado na mesma Sheet (ALT + F11) que estiver protegida.

Sub WorkBookPasswordBreaker()

    '      Author: André Luiz Bernardes - A&A - In Any Place - andreluizbernardes@gmail.com

    '        Date: 11/05/2016 - 14:45

    ' Application: Field Force Dashboard Analysis® - © A&A - In Any Place 2016, Inc. Todos os direitos reservados.

    '     Company: © A&A - In Any Place 2016, Inc. Todos os direitos reservados.

    '     Purpose: Crack Sheet Protection Password

  

  Dim i As Integer, j As Integer, k As Integer

  Dim l As Integer, m As Integer, n As Integer

  Dim i1 As Integer, i2 As Integer, i3 As Integer

  Dim i4 As Integer, i5 As Integer, i6 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

    Debug.Print Chr(i) & Chr(j) & Chr(k) & _

      Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _

      Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

    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 "A possível senha é " & Chr(i) & Chr(j) & _

          Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _

          Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

        ActiveWorkbook.Sheets(1).Select

        Let Range("a1").FormulaR1C1 = 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

brazilsalesforceeffectiveness@gmail.com

30 Motivos para Nunca Desistir

30 Motivos para Nunca Desistir

Ou: Sim, a vida é dura...Prá quem é mole.

Leia 30 e poucos pensamentos úteis

brazilsalesforceeffectiveness@gmail.com

Office 2016 - Centro de Treinamento do Office

Office 2016 - Centro de Treinamento do Office

Aprenda de acordo com o aplicativo ou serviço

              

Aprenda de acordo com o cenário

O treinamento baseado em cenários do Office 365 fornece tutoriais motivadores para mostrar como uma equipe pode dinamizar a maneira de trabalhar. Por exemplo, como salvar os arquivos na nuvem para poder acessá-los em praticamente qualquer lugar e em quase todos os dispositivos. Também é demonstrado como usar o Office 365 para trabalhar em equipe, compartilhando arquivos e coeditando documentos armazenados na nuvem.

Realize tarefas a partir de qualquer lugar

• Eu e meus documentos
• Trabalhe perfeitamente em conjunto

Colaboração em conteúdo

• Acesso e compartilhamento de arquivos de praticamente qualquer lugar com o OneDrive for Business
• Colabore com conteúdo de equipe usando o SharePoint Online

Realize reuniões mais eficazes

• Comunique-se à sua maneira
• Solução completa para reuniões

Email e calendário em praticamente qualquer lugar

• Email e calendário em praticamente qualquer lugar (Outlook)

Trabalhe em rede

• Funcione como uma rede com o Yammer