jrm, pelo que vi em sua rotina o Front End tem somente as Sheets("LOGIN") e Sheets("LOGs"), provavelmente tenha uma Inicial tambem, se for só elas e não tiverem dados não é para ter este tamanho, procure deletar todas as abas que não tiver utilizando, bem como limpar todas as celulas em branco com o comando LIMPAR TUDO, o excel tem a caracteristica de considerar celulas utilizadas e deletadas como se tivessem dados, assim reduzirá consideravelmente o tamanho do arquivo, de uma olhada nestes tópicos:
Como reduzir o tamanho de uma planilha?
viewtopic.php?f=28&t=3023
Reduza o tamanho das planilhas !
http://www.tomasvasquez.com.br/forum/vi ... tRqFtJdXQQ
Quanto a questão de desabilitar o botão "gestãoBD" se o mesmo estiver no formulário Menu, crie em sua rotina de acesso uma Variável Publica, vamos chama-la de sBtGestaoBd.
Ficaria da seguinte forma, somente exemplificando, em um Modulo separado adicione a variavel :
Public sBtGestaoBd as Boolean
em seu Formulário na rotina:
Private Sub CommandButtonok_Click(), pelo que entendi na linha abaixo é informado o sucesso do login, então logo abaixo da mensagem coloque:
MsgBox "Bem-vindo(a) " & Txtlogin & ".", vbInformation, "SUCESSO"
sBtGestaoBd = True
E no evento Private Sub UserForm_Initialize() do formulario Menu, logo no inicio adicione :
If sBtGestaoBd = True Then
gestãoBD.Enabled = False
End If
Nas linhas acima, sempre que a variavel for verdadeira irá desabilitar o Botão, como eu disse é só um exemplo, você teria de adicionar as Condições dos Usuários e redefinir a Variável para cada um, lembrando que a Variável do Tipo Boolean sempre é iniciada como False.
Se não conseguiu captar e nem diminuir seu arquivo procure coloca-lo em drive virtual tipo o sendspace ou o 4Shared e depois coloque o link para pódermos baixar a qui no forum.
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 13/01/2014 5:57 pm