Propósito

✔ Programação GLOBAL® - Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog devem ser tratados como consultoria freelance. Queiram contatar-nos: brazilsalesforceeffectiveness@gmail.com | ESTE BLOG NÃO SE RESPONSABILIZA POR QUAISQUER DANOS PROVENIENTES DO USO DOS CÓDIGOS AQUI POSTADOS EM APLICAÇÕES PESSOAIS OU DE TERCEIROS.

.: Vitrine

Carregando artigos...

Views

Mostrando postagens com marcador Protected. Mostrar todas as postagens
Mostrando postagens com marcador Protected. Mostrar todas as postagens

Excel VBA - AutoFiltro - Aplicando-o na Worksheet protegida - AutoFilter VBA









Depois de filtrar dados em um intervalo de células ou tabela, você pode reaplicar um filtro para obter resultados, ou limpar um filtro para exibir novamente todos os dados.

Podemos definir AutoFiltros dentro de uma pasta de trabalho do MS Excel

Segue-se um bom exemplo abaixo:

Aplicando o AutoFiltro na Worksheet protegida

Podemos usar o AutoFiltro numa planilha protegida, mas não podemos criar um AutoFiltro numa planilha protegida.

Assegure-se de que o filtro esteja no lugar antes da folha ser protegida.

Na versão 2002 do MS Excel e em versões posteriores, podemos permitir aos usuários usar o AutoFiltro quando definimos a proteção da planilha. (veja caixa de diálogo Proteger Folha abaixo)

Inline image 3

Nas versões anteriores, use uma macro Workbook_Open para definir a proteção na interface única do usuário.

Private Sub Workbook_Open() 
'check for filter, turn on if none exists
With Worksheets("Data")
  If Not .AutoFilterMode Then
    .Range("A1").AutoFilter
  End If
  .EnableAutoFilter = True
  .Protect Password:="password", _
  Contents:=True, UserInterfaceOnly:=True
End With
End Sub 


Para acessar o módulo ThisWorkbook, utilize o botão direito do mouse no ícone do Excel à esquerda do menu Arquivo, selecione Exibir Código e cole o código onde o cursor estiver piscando.

Inline image 4



Tags: VBA, Excel, Autofilter, filtro, automático, protegida, senha, AutoFiltro, worksheet, protegida, protected, 


VBA Access - Abrindo um Banco de Dados protegido com Senha - Opening a Password-Protected Database

Abrindo um Banco de Dados protegido com Senha.

Segue:

Sub Open_WithDbPassword()
   Dim conn As ADODB.Connection
   Dim strDb As String

   On Error GoTo ErrorHandler

   Let strDb = CurrentProject.Path & "\Bernardess\mydb.mdb"
   Set conn = New ADODB.Connection

   With conn
      Let .Provider = "Microsoft.Jet.OLEDB.4.0;"
      Let .ConnectionString = "Data Source=" & strDb & ";" & _
           "Jet OLEDB:Database Password=secret;"
      .Open
   End With

   Debug.Print "Banco de dados protegido está aberto"

   conn.Close

   Set conn = Nothing

   Debug.Print "Database was closed."
   Exit Sub

ErrorHandler:
   MsgBox Err.Number & ": " & Err.Description
End Sub

Tags: VBA, Access, connect, SQL, database,  Connecting, Server, Data Source, Opening, Password, Protected, senha, protegido, 


diHITT - Notícias