Views

...

Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

E-mails

Deixe seu e-mail para receber atualizações...

eBook Promo

VBA Excel - Gravando a Planilha somente como Leitura - How to Make a File ReadOnly


Podemos gravar uma planilha no MS Excel apenas como leitura, se desejarmos.

O código abaixo faz referência ao FileSystemObject, e através dele podemos com a técnica late binding deixar até mesmo um conjunto de planilhas somente como leitura. É um bom código e podemos ampliá-lo por estendermos a sua aplicabilidade. Caso o faça, deixe mais abaixo a sua contribuição.


Function MakeReadOnly (ByVal sFile As String) 
Dim strSaveFilename As String 
Dim oFSO As Object

'Scripting.FileSystemObject 
Dim oFile As Object

'Scripting.File

' Create Objects

' Uses Late Binding
Set oFSO = CreateObject("Scripting.FileSystemObject") 

Set oFile = oFSO.GetFile(FilePath:=sFile) 

' Set file to be read-only 
Let oFile.Attributes = 1 

' Releasing Objects 
If Not oFSO Is Nothing Then Set oFSO = Nothing 
If Not oFile Is Nothing Then Set oFile = Nothing End Function

É importante salientar que este código pode ser usado em outros Produtos da suíte MS Office.

Tags: Office, Exce, VBA, read only, file, 

VBA Excel - Desinstalando AddIns - Programmatically uninstall Excel Addins using VBA


Com o passar do tempo diversos AddIns instalados no nosso MS Excel podem deixá-lo mais lento ou mesmo causar algum transtorno na sua utilização. O melhor é poder retirá-los programaticamente.

Uso a versão do MS Office 2013 neste momento, em Jul|2013. Tenho diversos AddIns instalados. Alguns úteis, outros nem tanto e continuo instalado mais alguns para ver como funcionam. Esta liberalidade toda tem um preço, e ele envolve eventuais problemas com a performance ou com erros inexplicáveis. Nada melhor do que poder desinstalar parte dos AddIns assim que eu desejar.

Sub UnInstallAddins()
Dim oXLAddin As AddIn

For Each oXLAddin In Application.AddIns
Debug.Print oXLAddin.FullName

If oXLAddin.Installed = True Then
Let oXLAddin.Installed = False
End If
Next oXLAddin

End Sub


Tags: Excel, VBA, addins, uninstall, desinstalar, 

VBA PowerPoint - Salvando a Apresentação como PDF - How to Save PowerPoint Presentation as PDF using VBA


Relatórios e Apresentações criadas no MS Powerpoint que não podem ser alteradas, mas precisam ser divulgadas podem facilmente ser gravados como arquivos PDF.

Ultimamente tenho entregue alguns Dashboards e apresentações diretamente no Powerpoint a partir de Drafts criados no MS Excel. Após a utilização deste em reuniões, ou mesmo durante as reuniões, cópias são distribuídas entre aqueles que estão acompanhando a apresentação. Como tais cópias são eletrônicas e os conteúdos não podem/devem ser alterados, estes são exportados no formato PDF. Como?

ActivePresentation.ExportAsFixedFormat ActivePresentation.Path & "\" & ActivePresentation.Name & ".PDF", ppFixedFormatTypePDF, ppFixedFormatIntentPrint



Tags: Powerpoint, VBA, Save, salvar, prdf, 

VBA Excel - Ajuste o layout de diversas planilhas - Loop through all worksheets in all Excel workbooks in a folder to change the font, font size, and alignment of text in all cells


Gosto muito de automatizar os processos que envolvem a repetição e o retrabalho humano. Isso poupa muito tempo e dinheiro. Gastar tempo automatizando um processo é algo realmente recompensador.

Ao gerarmos diversos relatórios em planilhas diferentes (workbook) do MS Excel, não queremos perder tempo formatando-as durante a geração e processamento de tais dados. Mas podemos programar para que sejam minimamente formatadas depois que tudo terminar e todos os arquivos estiverem gravados em uma pasta do nosso servidor ou estação de trabalho. Como?

Sub FormatLayoutFiles()
    Const fPath As String = "D:\Bernardes\Docs\"

    Dim sh As Worksheet
    Dim sName As String

    With Application
        Let .Calculation = xlCalculationManual
        Let .EnableEvents = False
        Let .ScreenUpdating = False
    End With

    Let sName = Dir(fPath & "*.xls*")

    Do Until sName = ""
        With GetObject(fPath & sName)
            For Each sh In .Worksheets
                With sh
                    Let .Cells.HorizontalAlignment = xlLeft
                    Let .Cells.Font.Name = "Arial"
                    Let .Cells.Font.Size = 10
                End With
            Next sh
            .Close True
        End With

        Let sName = Dir
    Loop

    With Application
        Let .Calculation = xlAutomatic
        Let .EnableEvents = True
        Let .ScreenUpdating = True
    End With
End Sub


Tags: Excel, VBA, format, layout, fomatação, Loop, worksheets, workbooks, folder,change, font, font size, alignment, text, cells


Data Analytics - Compliance - Erros e Riscos



compliance (cumprimento de normas legais, regras estabelecidas em cada segmento de mercado) tem servido como mola propulsora para se elevar em deamsia diversos orçamentos de segurança em várias empresas. Mas, sob certa ótica, tais normas representam a repreensão de muitos riscos aos quais as companhias estão expostas.

Sem um Sistema de Inteligência é impossível alcançar o cumprimento de regras, de nada adianta capturar todos os e-mails e dados transacionados pelos funcionários para descobrir onde podem estar os riscos.

Não é difícil que decisões equivocadas sejam tomadas, em meio a prazos estreitos, onde precipitações podem comprometer seriamente as políticas corporativas de proteção dos dados.  Certamente, é aconselhável que os CIOs fiquem atentos aos erros mais comuns na hora de investir em compliance e criem mecanismos para evitá-los.

Com o intuito de manter-se de acordo com as normas praticadas no segmento no qual atuam, a maioria das empresas trocam as suas políticas de acesso e gerenciamento de identidade do modelo senha e login para um padrão de múltiplos dispositivos.

Não vamos, porque isso é muito cansativo, nos esquecer que tais iniciativas têm muito sucesso quando são implementadas de forma segmentada, com prazos para testes. Mas, por outro lado, a incoerente corrida para alcançar certas datas determinadas, para manter-se dentro dos parâmetros de conformidade que não se ajustam a nenhuma companhia no mundo, muitos, se não todos, os gestores pulam etapas de desenvolvimento e, em vez de corrigir falhas, acabam abrindo exceções para colaboradores que esquecem as suas senhas, por exemplo.

O problema é que quando existe uma exceção e a regra não é mais respeitada, nesse caso, deixa-se de levar a regra a sério e passam a acessar o sistema através da exceção. Mesmo depois de se investir milhões num projeto, a organização passa a desrespeitar as regras após a avaliação do órgão regulador.

A busca ávida pelo cumprimento de requisitos leva as empresas a buscarem fornecedores de tecnologia sem entender realmente quais são suas necessidades. Sim as organizações sentem-se pressionadas pelos prazos de compliance.

Não devemos permitir que as nossas companhias deleguem aos fornecedores a responsabilidade de adequar as regras. Essa é uma tarefa do gestor interno de tecnologia e segurança, os quais têm a missão, e não devem delegá-la a ninguém, de chegar ao parceiro já sabendo do que precisam.

Quais gestores de tecnologia e segurança nunca devemos ignorar o impacto das nossas ações nos usuários, em detrimento das nossas iniciativas. Não podemos ficar congelados pela apreensão de não atingir o nível de segurança exigido para nos manter em conformidade com os regimentos e leis do setor no qual atuamos.

Um bom exemplo é quando, na tentativa de evitar desvios de dados por meio de dispositivos USB, as companhias bloqueiam todas as portas do padrão nas máquinas dos funcionários. Isso não funciona, porque o colaborador de má intenção pode simplesmente imprimir os dados que quiser roubar, essas práticas atrapalham a rotina de pessoas que realmente precisam dessa tecnologia para alcançar alta performance.

Sim, criem políticas corporativas de proteção dos dados equilibradas. Assim que chegar o momento de se pensar em complianceo único desafio será o de reforçar as políticas de segurança, de acordo com os requisitos legais e regulatórios.

Tags: Analytics, Data, compliance, segurança,



Perguntas, Questões e Esclarecimentos - Questions and Answers...




Olá!

Acredito ser oportuno compartilhar com você o modo como pode ter as suas questões respondidas, calibrando as suas expectativas para com os meus Blogs.

Todos os posts que escrevo têm por objetivo elucidar, ampliar ou ensinar algum aspecto que pessoalmente acredito ser relevante tanto aos novos desenvolvedores, quanto àqueles que já tem uma carreira firmada no desenvolvimento com o VBA ou em assuntos afins abordados nos meus Blogs.

Gostaria que compreendesse que não há como estender um suporte caso a caso para cada post/artigo registrado neles.

Imagine que hoje, 29|06|2013, são mantidos 6 Blogs com conteúdo e postagens regulares.

Juntos, estes recebem uma visitação diária que ascende a 500 visitas distintas.

A grande maioria das visitas são de pessoas que estão contatando o Blog através do Google.

Das 500 visitas distintas, 35% retornam agradecendo-me pelo conteúdo através de e-mails ou comentários. Em média 5% solicitam esclarecimentos sobre um post específico. E ainda existe uma taxa crescente, que hoje está por volta de 7% de pessoas que solicitam soluções para os seus códigos pessoais ou corporativos.

Neste momento tento compartilhar nos meus Blogs conteúdos que sejam simples, novos, complicados, avançados, desconhecidos, pouco usuais, ou mesmo aqueles que sequer imaginamos ser possíveis.

De fato, não exijo qualquer vínculo de exclusividade com os meus Blogs. Isso seria totalmente contra os meus princípios, pois quando posso, compartilho livremente o que aprendo e aprendo com os que compartilham. 

O propósito de ter criado diversos Blogs foi o de aprender, cooperar, compartilhar conhecimento, divulgar e difundir técnicas, procedimentos, e versões de softwares.

Não desenvolvi fóruns, que guardam em seu conceito primário, o esforço contínuo de esclarecer questões específicas. 

No momento todo o meu tempo profissional está alocado em projetos em andamento. Caso deseje desenvolver um projeto, terei prazer em atendê-lo como freelance.

Mais uma vez, agradeço-lhe por ter visitado a um dos meus Blogs e ter absorvido neles uma impressão básica daquilo que queria transmitir.

eBooks VBA na AMAZOM.com.br

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...

Vitrine