Erika Tímpano

perfeito!

Então... preciso que ele não tenha acesso às planilhas. O cód acima oculta o form... não é esta a intensão.

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.......

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:

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 - MacrosAtivas_Salvar Dim wa As Worksheet Public Sub MacrosAtivas_Open() 'Esconde a planilha de abertura e mostra as demais ..... Dim w As Worksheet 'Desabilita a atualização da tela enquanto executa Application.ScreenUpdating = False 'Desabilita a execução de eventos enquanto executa Application.EnableEvents = False 'Loop para mostrar todas todas as planilhas da pasta exceto a planiha de abertura.... For Each w In ActiveWorkbook.Worksheets If w.Name <> PlanilhaMensagem Then w.Visible = xlSheetVisible End If Next 'Esconde a planilha de abertura.... 'Utilizando "xlSheetVeryHidden" desabilita-se a possibilidade de reexibir a planilha pela interface do Excel ActiveWorkbook.Worksheets(PlanilhaMensagem).Visible = xlSheetVeryHidden 'Habilita atualização da tela Application.ScreenUpdating = True 'Habilita a execução de eventos Application.EnableEvents = True 'Define o Workbook como salvo pois as alterações de visível/invisível são entendidas como alterações a salvar ActiveWorkbook.Saved = True dados.Show dados.Data.Text = Date End Sub Public Sub MacrosAtivas_Salvar(ByRef Cancel As Boolean) 'Esconde todas as planilhas menos a da abertura Dim w As Worksheet 'Se já está executando, sai habilitando salvar a planilha If bolEmSave Then Cancel = False Exit Sub End If bolEmSave = True Cancel = True Application.ScreenUpdating = False Application.EnableEvents = False 'Seta a planilha ativa para retornar o foco depois.... Set wa = ActiveWorkbook.ActiveSheet 'Esconde todas as planilhas menos a de abertura ActiveWorkbook.Worksheets(PlanilhaMensagem).Visible = xlSheetVisible For Each w In ActiveWorkbook.Worksheets If w.Name <> PlanilhaMensagem Then w.Visible = xlSheetVeryHidden End If Next 'Invoca novamente "salvar a pasta".... 'A execução recursiva é controlada pela variável bolEmSave,impedindo a reexecução contínua dessa rotina ActiveWorkbook.Save 'Inverter a situação... Mostra todas as planilhas exceto a planilha de abertura For Each w In ActiveWorkbook.Worksheets If w.Name <> PlanilhaMensagem Then w.Visible = xlSheetVisible End If Next ActiveWorkbook.Worksheets(PlanilhaMensagem).Visible = xlSheetVeryHidden 'Habilita atualização da tela e de eventos Application.ScreenUpdating = True Application.EnableEvents = True 'Retorna o foco para a planilha ativa no momento de salvar wa.Activate bolEmSave = False 'Define o Workbook como salvo pois as alterações de visível/invisível são entendidas como alterações a salvar ActiveWorkbook.Saved = True End Sub

É 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?

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

Obrigada! Assunto resolvido!

Oie! Bom dia! Aparece: intNumero = Não tem nada depois do símbolo de igualdade (vazio). :blush:

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 = Right(strcampo, i - 1) intNumero = Left(strCaracter, 1) intMais = intNumero * i intSoma1 = intSoma1 + intMais Next i 'Separa os 4 primeiros dígitos do CNPJ strcampo = Left(CNPJ, 4) For i = 2 To 5 strCaracter = Right(strcampo, i - 1) intNumero = Left(strCaracter, 1) intMais = intNumero * i intSoma2 = intSoma2 + intMais Next i intSoma = intSoma1 + intSoma2 dblDivisao = intSoma / 11 intInteiro = Int(dblDivisao) * 11 intResto = intSoma - intInteiro If intResto = 0 Or intResto = 1 Then intDig1 = 0 Else intDig1 = 11 - intResto End If intSoma = 0 intSoma1 = 0 intSoma2 = 0 intNumero = 0 intMais = 0 strcampo = Left(CNPJ, 8) strCNPJ = Right(CNPJ, 6) strCNPJ = Left(strCNPJ, 4) strcampo = Right(strcampo, 3) & strCNPJ & intDig1 For i = 2 To 9 strCaracter = Right(strcampo, i - 1) intNumero = Left(strCaracter, 1) intMais = intNumero * i intSoma1 = intSoma1 + intMais Next i strcampo = Left(CNPJ, 5) For i = 2 To 6 strCaracter = Right(strcampo, i - 1) intNumero = Left(strCaracter, 1) intMais = intNumero * i intSoma2 = intSoma2 + intMais Next i intSoma = intSoma1 + intSoma2 dblDivisao = intSoma / 11 intInteiro = Int(dblDivisao) * 11 intResto = intSoma - intInteiro If intResto = 0 Or intResto = 1 Then intDig2 = 0 Else intDig2 = 11 - intResto End If StrConf = intDig1 & intDig2 DVCNPJ = StrConf End Function Depois, no evento beforeupdate do textbox: Private Sub CNPJ_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) Dim DIG, NVAR If IsNumeric(Sheets("Simulador").Range("H12")) Then 'se não preencher o campo ignora DIG = Right(Format(Sheets("Simulador").Range("H12"), "00000000000000"), 2) NVAR = Módulo3.DVCNPJ(Format(Sheets("Simulador").Range("H12"), "00000000000000")) If DIG = NVAR Then Else 'senão avisa em vermelho MsgBox ("CNPJ INVÁLIDO"), vbCritical, vbOKOnly End If End If End Sub Só que quando coloco um CNPJ, dá o seguinte erro: Erro de excução 13 Tipo incorreto Na linha intMais = intNumero * i do módulo. Alguém pode me ajudar?? :wacko:

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:

: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!

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:

As macros estão funcionando com o projeto protegido agora... Mas gostaria que ao clicar em desabilitar macros, o arquivo se fechasse... é possível?

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: