Mendrot

Boa tarde a todos! Estou com o seguinte problema, criei uma macro no excel que bloqueia ctrl+c / ctrl+v; print screen; imprimir e por aí vai, e para reforçar a segurança, estou enviando via outlook com permissão restrita (IRM) impedindo que o email seja encaminhado, o problema é que o anexo desse email quando a pessoa recebe não executa a macro, aparece uma mensagem no topo do arquivo com a seguinte mensagem (Não Encaminhar: Os destinatários podem ler esta mensagem, mas não podem encaminhar, imprimir ou copiar o conteúdo.....), o que não entendo, é porque o arquivo não executa a macro que inputei no Workbooks_Open e para os usuários que tem a macro desabilitada não aparece aquele botão de opções que permite que a pessoa habilite ? Quem puder me ajudar agraço muito! :rolleyes: Valeu Thyago Mendrot

Boa tarde ! Você pode tentar utilizar o Do While, é "gambiarra" total, mas é uma outra forma de "travar" a execução. Do While x < 100000000 x = x + 1 Loop Abraço

Boa tarde Amigo! Você pode tentar criar uma várialvel public num módulo que cada vez que o código é executado ele incremente em 100 (por ex.) o valor da variável e na linha onde você desloca para a esquerda e para cima você substitui o valor por essa variável. Espero ter ajudado Abraço MSN: mendrot@hotmail.com :D

Exatamente meu amigo, eu estou utilizando a mesma Sub() que utilizava com a versão 2003 e funcionava, antes que perguntem (rs), estou referenciando a .dll "Microsoft Outlook 12.0 Object Libray", vale observar que utilizando o DoCmd.SendObject funciona, mas eu preciso enviar pelo Excel. Obrigado

Bom dia meus amigos! Alguém poderia me ajudar ? Não estou conseguindo enviar email via VBA com a versão 2007 do Outlook, alguma idéia ? Abraço e obrigado pela atenção :rolleyes:

Alguém conseguiu a DLL de graça ? poderia enviar no meu email por favor? mendrot@hotmail.com Grato!

Bom dia! Você consegue selecionar 2 valores apenas em ListBox. Abs Thyago Mendrot

Bom dia! Segue o código para "salvar como" clicando 2x sobre uma determinada célula Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If ActiveCell.Offset(0, 0).Value = Range("A1") Then ActiveWorkbook.SaveAs Range("A1").Value End If End Sub Espero ter ajudado...abs Thyago Mendrot :ninja:

Já respondida! :ninja:

Bom dia amigo! 1º Não exibir o arquivo enquanto atualiza Para o usuário não ver q você está atualizando a planb você pode fazer o seguinte Application.Screenupdate = False Windows.Open('PLANB') Workbook('PLANB').activated ' Atyivo aplanilha B Workbook('PLANB').save Workbook('PLANB').close Application.Screenupdate = True Msgbox "Dados gravados com sucesso!", vbInformation, "Título" ______________________________________________________ 2º Existe como eu obter o usuário que esta logado no windows através de VBA??? Declarar em um módulo as APIs Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long Public Function fGetUserName() Dim lpName As String Dim strTemp As String lpName = String$(255, 0) Call GetUserName(lpName, 255) If lpName = "" Then strTemp = "NoUserName" Else strTemp = lpName End If fGetUserName = fStripNull(strTemp) End Function Public Function fGetComputerName() Dim lpName As String Dim strTemp As String lpName = String$(255, 0) Call GetComputerName(lpName, 255) If lpName = "" Then strTemp = "NoComputerName" Else strTemp = lpName End If fGetComputerName = fStripNull(strTemp) End Function Na macro basta colocar esse código: (Variável) Usuario = fGetUserName que ele guardará na variável o UserID da máquina. 3º Como eu faço para abrir uma Mensagem do Outllok através do vba??? , é possivel instanciar uma variável desse tipo para essas operações Sub Enviar() Dim OutApp As Outlook.Application Dim OutMail As Outlook.MailItem Dim Para As String Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(olMailItem) OutMail.Importance = olImportanceHigh OutMail.To = Para '(Variável) OutMail.CC = COPIA '(Variável) OutMail.BCC = fGetUserName OutMail.Subject = "Solicitação de Serviço" OutMail.Body = "Msg no corpo do email" OutMail.Send Set OutMail = Nothing Set OutApp = Nothing End Sub ....é isso! Espero ter ajudado Abssss :ninja:

Bom dia amigo! Se a página estiver oculta você precisa primeiro reexibir utilizando o código abaixo. Me.MultiPage.Pages(1).Visible = True Dps para selecionar você utiliza esse código. Me.MultiPage.Value = 1 ...é isso! Espero ter ajudado abs

Bom dia amigo! Se "RA" é declarado como uma variável ela não pode estar entre "", se você deixar desta forma ele tenta localicar a célula RA e dá erro porque não tem o número da linha (Ex.: A1)....bom é isso! Espero ter ajudado. absssssss :rolleyes:

Bom dia! Você pode fazer assim, Const Variavel = "Teste" Espero ter ajudado, bom dia! :rolleyes:

Bom dia! Informe qual aplicativo você está utilizando....Access, Excel ou Word. Se for excel já vou mandar um exemplo, você pode replicar p/ o Access mudando apenas a forma de salvar, o que você realmente precisa que é o mês e ano automático vou te ajudar. Sub Salva_Rel() Dim sAno As String, sMes As String, sData as String, sRelat as String sData = Date sAno = Mid(sData, 9, 2) sMes = Mid(sData, 4, 2) Select Case sMes Case "01" sMes = "Janeiro" Case "02" sMes = "Fevereiro" Case "03" sMes = "Março" Case "04" sMes = "Abril" Case "05" sMes = "Maio" Case "06" sMes = "Junho Case "07" sMes = "Julho" Case "08" sMes = "Agosto" Case "09" sMes = "Setembro" Case "10" sMes = "Outubro" Case "11" sMes = "Novembro" Case "12" sMes = "Dezembro" End Select sRelat = "Relatório " & sMes & "/" & sAno Espero ter ajudado....Abs :rolleyes: