Kapalı Excel Dosyasından Veri Alma

[Mehmet Sait]

Merhabalar,

Kapalı ve şifreli bir excel dosyasından; veri çekilecek sayfaya şifre kaydı yapılarak, her açılışta şifre girmeden veri almak mümkün mü ?

Teşekkür ederim.

 

[acar6783]

Merhabalar,
Kodlarınız bu şekilde..
Deneyiniz..

Sub veri_al()
With ActiveSheet
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False
yol = ThisWorkbook.Path & "\Kitap1.xlsx"

 Set wb = Workbooks.Open(yol, Password:="1234").Sheets("Sayfa1").UsedRange
 
 
 wb.Copy .Range("A1")
Workbooks("Kitap1.xlsx").Close 0
 End With
 Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
Application.DisplayAlerts = True
End Sub

 

[Mehmet Sait]

Merhabalar,
Kodlarınız bu şekilde..
Deneyiniz..

Sub veri_al()
With ActiveSheet
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False
yol = ThisWorkbook.Path & "\Kitap1.xlsx"

Set wb = Workbooks.Open(yol, Password:="1234").Sheets("Sayfa1").UsedRange


wb.Copy .Range("A1")
Workbooks("Kitap1.xlsx").Close 0
End With
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
Application.DisplayAlerts = True
End Sub

Teşekkür ederim Hocam,

Bu kodları butona atayıp, butonu tıklamak mı gerek?

 

[acar6783]

Örnek dosya ekledim. "1234" yazan yere şifrenizi girebilirsiniz.
dediğiniz gibi kodları butona atayacaksınız.

 

[Mehmet Sait]

Örnek dosya ekledim. "1234" yazan yere şifrenizi girebilirsiniz.
dediğiniz gibi kodları butona atayacaksınız.

Teşekkür ederim

 

[Mehmet Sait]

=TOPLA.ÇARPIM(('Fire Takibi'!$E$8:$E$300=$B$4)*('Fire Takibi'!$F$8:$F$300=$B$3);('Fire Takibi'!$G$8:$G$300))

Teşekkür ederim

Merhaba Hocam,

Verdiğiniz kodları uyguladım ancak " wb.Copy .Range("A1") " veri aldığından kodlama yapılan hücreler gelmemekte.

 

[acar6783]

Anlayamadım tam olarak ne olduğunu?

Merhaba Hocam,

Verdiğiniz kodları uyguladım ancak " wb.Copy .Range("A1") " veri aldığından kodlama yapılan hücreler gelmemekte.