Este fórum está sendo desativado

[jmarcelosp]

Olá


Como que faço para bloquear para impressão a aba "proposta" e gere o comando para gerar o PDF e mandar por email ?

Pra salva em PDF usei estes comandos em outra planilha teste

Sub SalvarPDF()

Dim pas

pas = Application.GetSaveAsFilename(InitialFileName:= Range("B2"), _
FileFilter:="PDF files, *.pdf", _
Title:="Save PDF File")

If TypeName(pas) = "Boolean" Then
Else
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=pas, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End If

End Sub



Para tentar bloquear a impressão tentei este e não deu certo.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
'Essa linha é opcional, pode ser desabilitada
'se achar que não cabe a sua solicitação
If ActiveSheet.Name = "Plan1" Then

'verifica se o Range G6 está preenchido
If Range("G6").Value = "" Then
MsgBox ("Campo Vazio !!"), vbCritical, "Preenchimento Obrigatorio !!!"
Cancel = True
End If

End If

End Sub



Como proteger uma informação para que fique invisível e só mostre se colocar uma senha ? Seria os campos que estão em rosa ( L3 à m4), da aba "CUSTO FIXO COM BASE Com busca"


Outra hipótese.


Pergunto, teria como deixar uma coluna com uma cor a partir do momento que marco o campo C3, ou C4 ou C5 com "X", e seria a partir da linha 12 até 63, ficasse com uma cor, exemplo, se eu marcar a C3 com X , as colunas L, M, S, T e Af, ficasse com o preenchimento Azul, C4 verde e C5 rosa.


Grato

[PHSabater]

Boa noite.
Qual versão do excel que utiliza? As versões de 2013 acima tem a opção de salvar pdf nativa, é bem tranquilo fazer a rotina.
Quer salvar a proposta em pdf?

Como proteger uma informação para que fique invisível e só mostre se colocar uma senha ? Seria os campos que estão em rosa ( L3 à m4), da aba "CUSTO FIXO COM BASE Com busca"
Se não puder mudar de lugar da pra proteger esse intervalo com senha... não é uma coisa que eu faria, mas é possível... só formatar para texto não ficar visível também.

Pergunto, teria como deixar uma coluna com uma cor a partir do momento que marco o campo C3, ou C4 ou C5 com "X", e seria a partir da linha 12 até 63, ficasse com uma cor, exemplo, se eu marcar a C3 com X , as colunas L, M, S, T e Af, ficasse com o preenchimento Azul, C4 verde e C5 rosa.
É possível com macro ou formatação condicional.

[jmarcelosp]

Queria travar para gerar a informação somente em PDF e não habilitar a impressão normal para os vendedores.

Grato pela atenção

[jmarcelosp]

Coloquei esta macro para imprimir com a data e não está aceitando .



Sub PDF()
'
' PDF Macro
'

Dim PastaNome As String

PastaNome = "D:\excel\" & Range("g9").Value & " Replace(Date, " / ", ""),pdf"




Range("A1:K61").Select
ChDir "D:\excel"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
PastaNome, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
ActiveWindow.SmallScroll Down:=-42
Range("G9").Select
End Sub



Como como estava antes, dai gera o arquivo sem a data.
PastaNome = "D:\excel\" & Range("g9").Value & ",pdf"

Tentei implementar com este comando

& Replace(Date, "/", "")


PastaNome = "D:\excel\" & Range("g9").Value & " Replace(Date, " / ", ""),pdf"