• Bir süredir maillerde yaşanan sorunlar giderilmiştir. Şifremi unuttum yaparak şifrelerinizi mailinizden alabilirsiniz.

  • Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Anahtar İle Excel Dosyasını Açma

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
hakki83

hakki83

Bronz Üye
Kullanıcı Bilgileri
Aktiflik
Çevrimdışı
Katılım
9 Ağu 2021
Mesajlar
745
Çözümler
3
Aldığı beğeni
223
Excel V
Office 2016 TR
Konuyu Başlatan
Merhaba değerli hocalarımız,

Excel dosyalarımı anahtar ile açılacak şekilde kullanmak istiyorum,

Aklıma not defterini anahtar gibi kullanmak geldi,

Şöyle bir kod oluşturabilir miyiz,



Private Sub Workbook_Open()

If D diskinde deneme123.txt adlı bir dosya YOK ise, Then
MsgBox "Anahtar Bulunamadı"
Application.Quit (Excel programı kapansın)


If D diskinde deneme123.txt adlı bir dosya VAR ise, Then
MsgBox "Anahtar Bulundu"
ThisWorkbook.Worksheets("RAPORLAR") sayfası açılsın
Range("A2").Select (A2 hücresi seçilsin)

End Sub
 
Çözüm
TiOr
hakki83' Alıntı:
Merhaba değerli hocalarımız,

Excel dosyalarımı anahtar ile açılacak şekilde kullanmak istiyorum,

Aklıma not defterini anahtar gibi kullanmak geldi,

Şöyle bir kod oluşturabilir miyiz,



Private Sub Workbook_Open()

If D diskinde deneme123.txt adlı bir dosya YOK ise, Then
MsgBox "Anahtar Bulunamadı"
Application.Quit (Excel programı kapansın)


If D diskinde deneme123.txt adlı bir dosya VAR ise, Then
MsgBox "Anahtar Bulundu"
ThisWorkbook.Worksheets("RAPORLAR") sayfası açılsın
Range("A2").Select (A2 hücresi seçilsin)

End Sub
Genişletmek için tıkla...
Selam,
Ekte bulunan Deneme.xlsm ve Deneme.txt dosyalarını masa üstünüze kayıt edin.
txt dosyası masa üstünüzde iken işlem yapın açacak txt içinde bir şifre yazılı ve bu şifre ile excel...
Tarihe göre sırala Oylara göre sırala
hakki83' Alıntı:
Merhaba değerli hocalarımız,

Excel dosyalarımı anahtar ile açılacak şekilde kullanmak istiyorum,

Aklıma not defterini anahtar gibi kullanmak geldi,

Şöyle bir kod oluşturabilir miyiz,



Private Sub Workbook_Open()

If D diskinde deneme123.txt adlı bir dosya YOK ise, Then
MsgBox "Anahtar Bulunamadı"
Application.Quit (Excel programı kapansın)


If D diskinde deneme123.txt adlı bir dosya VAR ise, Then
MsgBox "Anahtar Bulundu"
ThisWorkbook.Worksheets("RAPORLAR") sayfası açılsın
Range("A2").Select (A2 hücresi seçilsin)

End Sub
Genişletmek için tıkla...
Selam,
Ekte bulunan Deneme.xlsm ve Deneme.txt dosyalarını masa üstünüze kayıt edin.
txt dosyası masa üstünüzde iken işlem yapın açacak txt içinde bir şifre yazılı ve bu şifre ile excel karşılaştırma yapacak şifre doğru ise açacak yanlış ise açmayacak. txt dosyası masa üstünüzde yok ise hiç bir şekilde işlem yapmacak.

Olumlu olumsuz dönüş yaparsınız.
İyi çalışmalar.

Aşağıdaki kodu BuÇalışmaKitabı alanında kullandım:

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 

Ekli dosyalar

  • Deneme.xlsm
    16.9 KB · Gösterim: 11
  • Deneme.txt
    14 bayt · Gösterim: 7
Olumlu oy 2 Negatif oyla
Çözüm
Sadece D de 123.txt dosyasının olup olmadığına göre
 

Ekli dosyalar

  • Dene.xlsm
    15.6 KB · Gösterim: 9
Olumlu oy 0 Negatif oyla
TiOr' Alıntı:
Selam,
Ekte bulunan Deneme.xlsm ve Deneme.txt dosyalarını masa üstünüze kayıt edin.
txt dosyası masa üstünüzde iken işlem yapın açacak txt içinde bir şifre yazılı ve bu şifre ile excel karşılaştırma yapacak şifre doğru ise açacak yanlış ise açmayacak. txt dosyası masa üstünüzde yok ise hiç bir şekilde işlem yapmacak.

Olumlu olumsuz dönüş yaparsınız.
İyi çalışmalar.

Aşağıdaki kodu BuÇalışmaKitabı alanında kullandım:

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Genişletmek için tıkla...
TiOr Hocamız emeğinize bilginize sağlık. Çok güzel bir şifreli örnek olmuş.
 
Olumlu oy 0 Negatif oyla
Alicimri' Alıntı:
Sadece D de 123.txt dosyasının olup olmadığına göre
Genişletmek için tıkla...
AliCimri Hocamız emeğinize bilginize sağlık. Çok güzel bir örnek olmuş. (Modüldeki kodlar fazlalıktı sanıyorum, onları pasif yaptım.)
 
Olumlu oy 0 Negatif oyla
hakki83' Alıntı:
TiOr Hocamız emeğinize bilginize sağlık. Çok güzel bir şifreli örnek olmuş.
Genişletmek için tıkla...
Rica ederim ne demek bu tür sorular ile de hem bilgilerimizi güncelliyoruz hemde formda güzel bir arşiv olmuş oluyor :)
 
Olumlu oy 0 Negatif oyla
Bilgileri güncellemek ve forumda güzel bir arşiv oluşması, tamamen aynı fikirdeyim değerli hocalarımız.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst