OS MELHORES VÍDEOS

 

Pesquisar

domingo, 29 de janeiro de 2012

Tela de Login e Senha no Excel 2010

Proteger suas planilhas de Excel de uma modo 100% seguro só é possível com este
Software Criado em VBA.

Assista





Tirar o Botão Fechar do UserForm (Formulário)




Código:

Private Declare Function FindWindowA Lib "USER32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLongA Lib "USER32" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "USER32" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Sub UserForm_Initialize()
Dim hwnd As Long
hwnd = FindWindowA(vbNullString, Me.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Dim hwnd As Long
hwnd = FindWindowA(vbNullString, Me.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) Or &H80000
End Sub




4 comentários:

  1. estou com problema referente a este codigo. pois meu sistema é de 64 bits e nao executa o código, aparece a mensagem:

    "esse codigo desse projeto deve ser atualizado para uso em sitema de 64 bits. analise e atualize as instruções...

    como posso resolver isso ?

    ResponderExcluir
  2. PRECISO DO CODIGO EM 64 BITS TAMBEM !

    ResponderExcluir
  3. Para que execute em sistema de 645 bits, basta por algumas palavras-chave no código. PtrSafe logo após de Declare e onde está Long deve ficar LongPtr.

    ResponderExcluir
  4. Bom dia, Estou com problema na seguinte formula:

    Sheets(Sheets("Senha").Range("C" & lContador).Value).Visible = True

    Independente do usuario, esta permitindo a mesma planilha para todos

    ResponderExcluir