• DİKKAT !

    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 Dosya Yükleme 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

Yeni Üye
Katılım
9 Ağu 2021
Mesajlar
767
Çözümler
3
Aldığı beğeni
234
Excel V
Office 2016 TR
Konu Sahibi
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:

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 2 Negatif oyla
Çözüm
Konu Sahibi
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:

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
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
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
Konu Sahibi
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