veri aktarımı

[algil]

Merhaba

Bir excel sayfasında oluşturduğum butona bastığım zaman A3:A10 hücrelerindeki verileri A1'de yazmış olduğum isimde yeni bir protectli excel dosyası açsın ve ona kaydetsin. Bunu yapabilirmiyiz?
Teşekkürler

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Bu kod aktif dosyaya açılış şifresi koyar ve A1 hücresindeki isim ile farklı kaydeder.

[vb:1:90d68610b4]Sub sifrele()
On Error GoTo 10
adr = ActiveWorkbook.Path
anadosya = ActiveWorkbook.Name
ad = [a1].Value
ActiveWorkbook.SaveAs Filename:=adr & "\" & ad & ".xls", Password:="1", WriteResPassword:="1"
Workbooks.Open Filename:=adr & "\" & anadosya
Workbooks(ad & ".xls").Close
Exit Sub
10 MsgBox "bu isimde dosya mevcuttur"
End Sub[/vb:1:90d68610b4]

 

[algil]

Merhaba Leventm

Bu kod aktif dosyaya açılış şifresi koyar ve A1 hücresindeki isim ile farklı kaydeder.

benim istediğim yeni bir dosya. Çünkü aktif olan dosyanın boyutu büyük. aktif dosyadan sadece belirlediğim hücrelerdeki değerleri yeni dosyaya taşıması gerekiyor. Yani yeni dosyada herhangibir macro veya ana dosyaya ait başka bir şey olmaması gerekiyor. Bunu istememin sebebide ana dosyanın boyutu yaklaşık 1 MB civarında ve bu dosya çok kullanılıyor ve kaydedilip ve saklanıyor. Buda aşırı derecede yer kaplıyor.

 

[veyselemre]

[vb:1:4f7fe05062]Public ad, adr As String
Sub sifrele()
ad = [a1].Value
adr = ActiveWorkbook.Path
Range("a3:a10").Copy
Workbooks.Add
[a1].PasteSpecial
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.SaveAs Filename:=adr & "\" & ad & ".xls"
ActiveWorkbook.Close
End Sub
[/vb:1:4f7fe05062]

 

[algil]

teşekkürler Veyselemre

 

[algil]

Merhaba Arkadaşlar
AAA.xls : Açma parolası olmayan sadece değiştirme parolası "1234" olan ReadOnly bir dosyadır.
BBB.xls dosyasındaki "Dosya Aç" butonuna bastığım zaman AAA.xls dosyasını açsın. Yalnız dosya açılırken değiştirme parolasını girsin ("1234") ve AAA.xls dosyası için ReadOnly uyarısıyapılmadan açılsın.
Yardımcı olursanız sevinirim.

 

[veyselemre]

Workbooks.Open Filename:="c:\bbb.xls", WriteResPassword:="123"

 

[algil]

Workbooks.Open Filename:="c:\bbb.xls", WriteResPassword:="123"

Bu kod ile dosyayı açabiliyorum ama yinede aşağıdaki mesajı veriyor.

"BBB.xls, değişiklikleri kaydetmek istemediğiniz sürece salt okunur olarak açılmalıdır. Salt olarak açılsın mı? diye soruyor ve EVET, HAYIR ve İPTAL diye seçenek sunuyor ve bende elle HAYIR'ı tıklamak zorunda kalıyorum. Bu işlemi yapmak istemiyom otomatik olarak HAYIR seçilsin istiyorum. Yani dosyanın readonly olarak açılmasını istemiyorum.

Teşekkürler

 

[veyselemre]

Workbooks.Open Filename:="c:\bbb.xls", WriteResPassword:="123", ignorereadonlyrecommended:=True

 

[algil]

teşekkürler veyselemre
bu beni oldukça rahatlattı.