• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

PDF e çevirirken extra güvenlik için tavsiye?

K

kamenzü

Katılım
20 Aralık 2006
Mesajlar
173
Excel Vers. ve Dili
365 (2016) Türkçe
merhaba,

Firmalara hazırladığım dokümantasyonun kolay kopyalanmaması için;

1. PDF olarak kaydediyorum.
2. Filigran (fotoğraf) eklemeye başladım,

ancak sizlerden akıl almak istiyorum.

Firmaya gönderdiğim dosyaların başka firmalara göre çoğaltılmasını nasıl zorlaştırabilirim?

çalışma sayfalarını PDF olarak kaydederken vba aracılığı ile birşeyler yapılabilir mi?

mesela; PDF dosyasını açtığımda metni seçebiliyorum.
metni, metin olarak kaydetmemesini nasıl sağlayabilirim.
(normal taramada pdf olarak kaydetseniz bile fotoğraf olarak alması gibi)
 
Sayın Kamanzü
İlk önce Filigranlı olarak .jpeg dosyasına çevirin daha sonra .pdf yapın. Tarayıp metinleri almak isteyenleri biraz uğraştırmış olursunuz.
 
alicimri' Alıntı:
Sayın Kamanzü
İlk önce Filigranlı olarak .jpeg dosyasına çevirin daha sonra .pdf yapın. Tarayıp metinleri almak isteyenleri biraz uğraştırmış olursunuz.
Genişletmek için tıkla ...

Şu ara her sayfaya firma adına göre otomatik değişen filigran yerleştiriyorum. bugün biter diye umuyorum.

Bendeki excel dosyasında toplam 300 değişik pdf dosyası çıkarıyorum.

o yüzden vba olmazsa sizin dediğinizi yapmam pek bir uzun sürer.

ancak şunu vba yapmak için araştıracağım.

1. yeni bir Word belgesi aç. sayfa boşluklarını ayarla. aktif çalışma sayfasındaki kadar sayfa ayarla.
2. aktif çalışma sayfasındaki ilk sayfayı JPEG yap ve ilk sayfaya ekle.
3. aynı işlemi sayfalar bitene kadar yap.
4. Word belgesini pdf olarak kaydet.

bu sıraya göre makroyu 1 haftaya oluşturabilirim inşALLAH. :dusun:
 
Merhaba

pdf olarak yazdırdığınız metinler ardı ardına mı? Yoksa ayrı sayfalarda mı? örnek bir resim ekleme durumunuz var mı?
 
yasarcan'ın istediği bilgileri verirsen, düşündüğün kadar zor değil. vba ile kolayca halledebiliriz.
 
Eğer veriler alt alta ise örnek kod aşağıda satır ve sütunları kendinize göre ayarlayın
Kod: 
Sub KOD()
    Dim rng As Range, cht As ChartObject, say As Double, obj As Object
    Const strPath As String = "D:\"
    ilk = 1
    son = 56
    For i = 1 To 300
    Application.ScreenUpdating = False
        Set obj = CreateObject("Scripting.FileSystemObject").GetFolder(strPath)
        Set rng = Range("a" & ilk & ":e" & son)
        rng.CopyPicture xlScreen, xlPicture
        Set cht = ActiveSheet.ChartObjects.Add(0, 0, rng.Width + 0, rng.Height + 0)
        cht.Border.LineStyle = 0
        cht.Chart.Paste
        cht.Chart.Export strPath & i & ".png"
        cht.Delete
ExitProc:
    Set obj = Nothing: Set rng = Nothing: Set cht = Nothing
    ilk = ilk + 56
    son = son + 56
    Next
    Application.ScreenUpdating = True
  Dim objWord
   Dim objDoc
   Dim objSelection
   Set objWord = CreateObject("Word.Application")
   Set objDoc = objWord.Documents.Add
   objWord.Visible = True
   Set objSelection = objWord.Selection
   For i = 1 To 300
   objSelection.InlineShapes.AddPicture Filename:="D:\" & i & ".png", LinkToFile:=False, SaveWithDocument:=True
   Next
   objDoc.SaveAs ("D:\toplu")
objDoc.Close
objWord.Quit
End Sub
 
alicimri' Alıntı:
Eğer veriler alt alta ise örnek kod aşağıda satır ve sütunları kendinize göre ayarlayın
Kod: 
Sub KOD()
    Dim rng As Range, cht As ChartObject, say As Double, obj As Object
    Const strPath As String = "D:\"
    ilk = 1
    son = 56
    For i = 1 To 300
    Application.ScreenUpdating = False
        Set obj = CreateObject("Scripting.FileSystemObject").GetFolder(strPath)
        Set rng = Range("a" & ilk & ":e" & son)
        rng.CopyPicture xlScreen, xlPicture
        Set cht = ActiveSheet.ChartObjects.Add(0, 0, rng.Width + 0, rng.Height + 0)
        cht.Border.LineStyle = 0
        cht.Chart.Paste
        cht.Chart.Export strPath & i & ".png"
        cht.Delete
ExitProc:
    Set obj = Nothing: Set rng = Nothing: Set cht = Nothing
    ilk = ilk + 56
    son = son + 56
    Next
    Application.ScreenUpdating = True
  Dim objWord
   Dim objDoc
   Dim objSelection
   Set objWord = CreateObject("Word.Application")
   Set objDoc = objWord.Documents.Add
   objWord.Visible = True
   Set objSelection = objWord.Selection
   For i = 1 To 300
   objSelection.InlineShapes.AddPicture Filename:="D:\" & i & ".png", LinkToFile:=False, SaveWithDocument:=True
   Next
   objDoc.SaveAs ("D:\toplu")
objDoc.Close
objWord.Quit
End Sub
Genişletmek için tıkla ...

Merhaba,

Bir önceki mesajımda ekran görüntüsü, örnek dosya ve bendeki kodun bulunduğu eklenti dosyasını paylaştım.

Bu dosya normal veri sayfalarından oluşmuyor.

Bir dokümantasyon sistemini ve bir yıl boyunca sistemin tutulan kayıtlarını sanal olarak oluşturuyorum.

içinde firma içi eğitimler toplantılar, hedefler vs. vs. birbirine bağlı olarak hesaplanıp çıktı alınıyor.
 
dosyada toplam 338 çalışma sayfası mevcut ve bunun yaklaşık 300 tanesinden çıktı alınıyor.

100 tanesi de pdf olarak firmaya teslim ediliyor.

pdf kaydı esnasında; metnin sadece görüntüsünü (fotoğrafmış gibi) kaydetmek için bir kod olmalı diye düşünüyorum.

ya da sizin tavsiye edebileceğiniz herhangi bir yönteme de açığım.

maksat firmaya teslim ettiğim pdf lerin değiştirilmesini / kopyalanmasını zorlaştırmak.
 
Dosya yapınızı anlamadım, hangi sayfalar PDF dosyanıza eklenecek gibi.
Başka bir öneri; oluşturduğunuz PDF dosyalarını daha sonra PhotoShop ve/veya Adobe Acrobat ile istediğiniz hale dönüştürülebilir diye düşünüyorum. Çok önce PhotoShop ile buna benzer bir çalışma yapmıştım. İlk önce Pdf'yi PhotoShop'a alıyorsunuz (kendisi resim olarak alıyor) daha sonra tekrar bu resimleri topluca PDF'ye dönüştürüyorsunuz.
Vba ile ancak yukardaki örnekte olduğu gibi dolaylı yoldan bir şeyler yapılabilinir.
 
PDF dosyalarınızı aşağıdaki linkdeki proğram ile kopyalamayı ve yazdırmayı engelliyebilirsiniz.

proğramı açınca File List bölümüne PDF dosyalarının hepsini sürükleyerek listeye alabilir ve Settings bölümünde şifreleme ,kopyalama ve yazdırma gibi ayarlarını da yapabilirsiniz.

http://www.tamindir.com/pdf-encrypt/

Not:bu gibi uygulamalar kesin tam çözüm olmamakta sadece erişim birazcık zor olmakta farklı proğramlar da yazdırmayı ve kopyalama engellerini de kaldırır



 
alicimri' Alıntı:
Dosya yapınızı anlamadım, hangi sayfalar PDF dosyanıza eklenecek gibi.
Başka bir öneri; oluşturduğunuz PDF dosyalarını daha sonra PhotoShop ve/veya Adobe Acrobat ile istediğiniz hale dönüştürülebilir diye düşünüyorum. Çok önce PhotoShop ile buna benzer bir çalışma yapmıştım. İlk önce Pdf'yi PhotoShop'a alıyorsunuz (kendisi resim olarak alıyor) daha sonra tekrar bu resimleri topluca PDF'ye dönüştürüyorsunuz.
Vba ile ancak yukardaki örnekte olduğu gibi dolaylı yoldan bir şeyler yapılabilinir.
Genişletmek için tıkla ...

dosya yapısı şu şekilde;

1. bölüm Kalite Yönetim Sistemi Dokümantasyonu,
2. Kayıtlar (işlenen formlar vs)

Bu iki bölümden toplam 4 klasör çıkıyor.

1. Dokümanlar,
2. Kayıtlar, (ISO denetleme dosyası)
3. TSE denetleme dosyası.
4. Teknik Dosya.

sizin tavsiye ettiğiniz şekilde 2-3 günde ancak bitiririm.

Toplamda 300 civarı pdf dosyası çıkıyor.
 
halit3' Alıntı:
PDF dosyalarınızı aşağıdaki linkdeki proğram ile kopyalamayı ve yazdırmayı engelliyebilirsiniz.

proğramı açınca File List bölümüne PDF dosyalarının hepsini sürükleyerek listeye alabilir ve Settings bölümünde şifreleme ,kopyalama ve yazdırma gibi ayarlarını da yapabilirsiniz.

http://www.tamindir.com/pdf-encrypt/

Not:bu gibi uygulamalar kesin tam çözüm olmamakta sadece erişim birazcık zor olmakta farklı proğramlar da yazdırmayı ve kopyalama engellerini de kaldırır



Genişletmek için tıkla ...

teşekkürler, filigran işini bitirince bunu kullanacağım.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst