Kodların xls ve xlsx de çalışması

[sosorry]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [c2:c400,f2:f400]) Is Nothing Or Target = "" Then Exit Sub
Cancel = True
dosya = Target.Text
If Target.Column = 3 Then yol = "\xxx\"
If Target.Column = 6 Then yol = "\yyy\"
If Dir$(ThisWorkbook.Path & yol & dosya & ".xls") <> "" Then
CreateObject("Shell.Application").Open ThisWorkbook.Path & yol & dosya & ".xls"
Else
MsgBox "Bu isimde bir dosya bulunmamaktadır.", vbCritical, "Dosya Bulunamadı"
End If
End Sub

bu koda hem de xlsx uzantıları açması için nasıl bir değişiklik yapabilirim?

 

[Orion1]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [c2:c400,f2:f400]) Is Nothing Or Target = "" Then Exit Sub
Cancel = True
dosya = Target.Text
If Target.Column = 3 Then yol = "\xxx\"
If Target.Column = 6 Then yol = "\yyy\"
If Dir$(ThisWorkbook.Path & yol & dosya & ".xls") <> "" Then
CreateObject("Shell.Application").Open ThisWorkbook.Path & yol & dosya & ".xls"
Else
MsgBox "Bu isimde bir dosya bulunmamaktadır.", vbCritical, "Dosya Bulunamadı"
End If
End Sub

bu koda hem de xlsx uzantıları açması için nasıl bir değişiklik yapabilirim?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [c2:c400,f2:f400]) Is Nothing Or Target = "" Then Exit Sub
Cancel = True
dosya = Target.Text
If Target.Column = 3 Then yol = "\xxx\"
If Target.Column = 6 Then yol = "\yyy\"
If Dir$(ThisWorkbook.Path & yol & dosya & ".xls") <> "" Then
CreateObject("Shell.Application").Open ThisWorkbook.Path & yol & dosya & ".xls"
Elseif Dir$(ThisWorkbook.Path & yol & dosya & ".xlsx") <> "" Then
CreateObject("Shell.Application").Open ThisWorkbook.Path & yol & dosya & ".xlsx"
else
MsgBox "Bu isimde bir dosya bulunmamaktadır.", vbCritical, "Dosya Bulunamadı"
End If
End Sub

 

[sosorry]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [c2:c400,f2:f400]) Is Nothing Or Target = "" Then Exit Sub
Cancel = True
dosya = Target.Text
If Target.Column = 3 Then yol = "\xxx\"
If Target.Column = 6 Then yol = "\yyy\"
If Dir$(ThisWorkbook.Path & yol & dosya & ".xls") <> "" Then
CreateObject("Shell.Application").Open ThisWorkbook.Path & yol & dosya & ".xls"
Elseif Dir$(ThisWorkbook.Path & yol & dosya & ".xlsx") <> "" Then
CreateObject("Shell.Application").Open ThisWorkbook.Path & yol & dosya & ".xlsx"
else
MsgBox "Bu isimde bir dosya bulunmamaktadır.", vbCritical, "Dosya Bulunamadı"
End If
End Sub

eheheheheh çok teşekkür ederim

 

[Orion1]

eheheheheh çok teşekkür ederim

Sende soru çoksa bendede cevap çok.hehehe.

 

[sosorry]

Sende soru çoksa bendede cevap çok.hehehe.

valla sordukça baya baya öğreniyorum ama bu işi nası çözcem bilmiyorum. bişi daha soriim o zaman, bir kitapta yanlızca butonları kullanarak işlem yapmayı, sayfada hücrelere birşeyler yazılmasını nasıl engelleyebilirim?

 

[Orion1]

valla sordukça baya baya öğreniyorum ama bu işi nası çözcem bilmiyorum. bişi daha soriim o zaman, bir kitapta yanlızca butonları kullanarak işlem yapmayı, sayfada hücrelere birşeyler yazılmasını nasıl engelleyebilirim?

*Exceli gizleyebilirsiniz.
*sayfayı korumalı yapabilirsiniz.İsterseniz parolada koyabilirsiniz.
Kod ile korumalı sayfaya veri girerken önce sayfa korunmasını kaldır.

Sheets("Sayfa1").unprotect

sonra verilerini gir.

Range("A1").value="EVREN"

Sonra tekrar sayfayı koru

sheets("Sayfa1").protect

buda parolalı koruma

sheets("Sayfa1").protect "1234"

buda açma

sheets("Sayfa1").unprotect "1234"

 

[sosorry]

*Exceli gizleyebilirsiniz.
*sayfayı korumalı yapabilirsiniz.İsterseniz parolada koyabilirsiniz.
Kod ile korumalı sayfaya veri girerken önce sayfa korunmasını kaldır.

Sheets("Sayfa1").unprotect

sonra verilerini gir.

Range("A1").value="EVREN"

Sonra tekrar sayfayı koru

sheets("Sayfa1").protect

buda parolalı koruma

sheets("Sayfa1").protect "1234"

buda açma

sheets("Sayfa1").unprotect "1234"

çok teşekkür ederim eline sağlık