Jump to content
Fórum Script Brasil

Erika Tímpano

Membros
  • Content Count

    25
  • Joined

  • Last visited

Community Reputation

0 Neutro

About Erika Tímpano

  • Birthday 08/08/1980

Contatos

Perfil

  • Gender
    Female
  • Location
    SP
  1. Então... preciso que ele não tenha acesso às planilhas. O cód acima oculta o form... não é esta a intensão.
  2. Ok. Vou tentar descrever. Eu tenho um form que é uma mascara de entrada de parâmetros para cálculo de um determinado produto. Após o cálculo, o sistema gera uma planilha com uma espécie de proposta. Como o usuário não tem interface nenhum com as planilhas que estão por trás do form, gostaria que eles pudessem visualizar a área de impressão, e ainda assim sem interface com as planilhas.......
  3. Já descobri. A variável boleana bolEmSave precisava estar setada para true ou false no meio de um outro procedimento. Um amigo aqui do trabalho, me ajudou. Bjo :blush:
  4. Pessoal, Depois que eu inseri este código para ocultar as planilhas se o usuário entrar com "desabilitar macros", não consegui mais salvar o arquivo. Já fiz alguns testes e já sei que o que está impedindo de abrir a janela salvar como, só não sei como revolver. Alguém pode me ajudar? Option Explicit 'Nome da planilha que deve ser visualizada em caso de abrir com as macros desativadas - e esconder em caso de macros ativadas Const PlanilhaMensagem As String = "Sheet1" 'Controle da rotina que esconde as planilhas ao salvar (MacrosAtivas_Salvar) Private bolEmSave As Boolean 'Planilha ativa -
  5. É possível abrir a visualização da impressão de uma determinada área de uma planilha, no formato que ela foi desenhada sem a visualização das planilhas por trás do form?
  6. Pessoas, Eu desenvolvi um aplicativo no Excel e gostaria de, se houver qualquer erro no projeto que seja necessário abrir o depurador, o sistema desse uma msg de erro e fechasse o aplicativo. Meu chefe disse que talvez uma tal função chamada "on Error" pudesse ajudar, mas eu não sei como usá-la. Alguém pode me dar uma luz? Tks a lot
  7. Obrigada! Assunto resolvido!
  8. Oie! Bom dia! Aparece: intNumero = Não tem nada depois do símbolo de igualdade (vazio). :blush:
  9. Pessoal, coloquei o código abaixo num módulo para validar o CNPJ digitado num textbox: Function DVCNPJ(CNPJ As String) As String Dim intSoma, intSoma1, intSoma2, intInteiro As Long Dim intNumero, intMais, i, intResto As Integer Dim intDig1, intDig2 As Integer Dim strcampo, strCaracter, StrConf, strCNPJ, strDigVer As String Dim dblDivisao As Double intSoma = 0 intSoma1 = 0 intSoma2 = 0 intNumero = 0 intMais = 0 strDigVer = Right(CNPJ, 2) strcampo = Left(CNPJ, 8) strCNPJ = Right(CNPJ, 6) strCNPJ = Left(strCNPJ, 4) strcampo = Right(strcampo, 4) & strCNPJ For i = 2 To 9 strCaracter = Rig
  10. De fato desabilitar a mensagem de segurança através de VBA é impossível. Consegui resolver o problema tornando invisiveis as planilhas quando o usuário clicar em desabilitar macros. Se alguém precisar de uma solução parecida, me avisem. Bjinhus e Obrigada! :rolleyes:
  11. :blink: Quando o usuário utiliza o Backspace para limpar o campo, dá o seguinte erro: Erro em tempo de execução 13 Tipo incorreto :wacko: 'Trava percentual - MA Private Sub percMA_Change() If percMA.Value > 100 Or percMA.Value = "" Then MsgBox ("Percentual máximo = 100%"), vbOK percMA.Value = 100 End If End Sub Alguém pode me ajudar a solucionar este problema? Obrigada!
  12. Pessoal, As macros voltaram a funcionar mesmo com o projeto protegido... Mas agora, tenho outro dilema... preciso que ao clicar em desativar macros na abertura do arquivo, o arquivo se feche. É possível? :rolleyes:
  13. As macros estão funcionando com o projeto protegido agora... Mas gostaria que ao clicar em desabilitar macros, o arquivo se fechasse... é possível?
  14. BRILHANTE!! Muito obrigada mesmo! :wub: Pode me ajudar em mais uma coisa? Se quiser abro um novo tópico, mas preciso que ao executar o aplicativo desenvolvido em excel, não abra a opção desativar macros porque senão, a planilha de calculos ficará exposta. É possível? :wacko:
×
×
  • Create New...