Access'te başlangıç seçeneklerinin Shift'e basarak atlanmasını engellemek istiyorum.

[Aristoteles]

Selamlar,
Access ile bir mdb dosyası oluşturdum ve başlangıç bölümünden bir form seçip bazı ayarlar yaptım ancak shift tuşuna basılarak açıldığında bu işlemler geçersiz oluyor. Bunu engellemek istiyorum bir çok kaynakta bir şeyler buldum am bir türlü başarılı olamadım (kod olaylarından fazla anlamadığım için olsa gerek) ricam bu işi bana şöyle tane tane bir anlatsanız.
Şimdiden çok teşekkürler
Access ile bir şeyler yapmaya çalışan herkese kolay gelsin. Başarılar diliyorum.

 

[mehmetdemiral]

Merhaba.. Şöyle yapacaksınız.
1- Önce modül sekmesine girin ve yeni bir modül oluşturun. İçine de şu kodları yapıştırın:

Option Compare Database
Option Explicit

Function BypassOzelliginiDegistir()
Const OzellikTipi As Long = 1
'AllowByPassKey ozelligini inaktif hale getir
OzellikDegistir "AllowBypassKey", OzellikTipi, False
End Function
Function OzellikDegistir(strOzellikAdi As String, varOzellikTipi As Variant, varOzellikDegeri As Variant) As Integer
Dim dbs As Object, varOzellik As Variant
Set dbs = CurrentDb
On Error GoTo OzellikDegistir_Hata
'Ozelligi degistir
dbs.Properties(strOzellikAdi) = varOzellikDegeri
'Hata olusmadigina gore
'Ozellik degistirme islemi basari ile gerceklestirildi
OzellikDegistir = True
OzellikDegistir_Cik:
Exit Function
OzellikDegistir_Hata:
'Olusan hata, Ozellik Bulunamadi (3270) hatasi ise
If Err = 3270 Then
'Bu ozelligi veritabanina ekle
Set varOzellik = dbs.CreateProperty(strOzellikAdi, _
varOzellikTipi, varOzellikDegeri)
dbs.Properties.Append varOzellik
'isleme devam et
Resume Next
Else
'Bilinmeyen bir hata olustu
'Degistirme islemi gerceklestirilemedi
OzellikDegistir = False
Resume OzellikDegistir_Cik
End If
End Function

2- Sonra bu modülü shiftkapat adıyla kaydedin.
3- Ardından bir yeni modül daha... O da şöyle:


Option Compare Database
Option Explicit

Function BypassOzelliginiDegistir2()
Const OzellikTipi As Long = 1
'AllowByPassKey ozelligini inaktif hale getir
OzellikDegistir "AllowBypassKey", OzellikTipi, True
End Function
Function OzellikDegistir(strOzellikAdi As String, varOzellikTipi As Variant, varOzellikDegeri As Variant) As Integer
Dim dbs As Object, varOzellik As Variant
Set dbs = CurrentDb
On Error GoTo OzellikDegistir_Hata
'Ozelligi degistir
dbs.Properties(strOzellikAdi) = varOzellikDegeri
'Hata olusmadigina gore
'Ozellik degistirme islemi basari ile gerceklestirildi
OzellikDegistir = True
OzellikDegistir_Cik:
Exit Function
OzellikDegistir_Hata:
'Olusan hata, Ozellik Bulunamadi (3270) hatasi ise
If Err = 3270 Then
'Bu ozelligi veritabanina ekle
Set varOzellik = dbs.CreateProperty(strOzellikAdi, _
varOzellikTipi, varOzellikDegeri)
dbs.Properties.Append varOzellik
'isleme devam et
Resume Next
Else
'Bilinmeyen bir hata olustu
'Degistirme islemi gerceklestirilemedi
OzellikDegistir = False
Resume OzellikDegistir_Cik
End If
End Function

4- Bunu da shiftac adıyla kaydedin.
5- Şimdi de bir makro tasarlayın. Eylem olarak kod çalıştırı seçin ve işlev adı olarak şunu yazın
BypassOzelliginiDegistir ()
6-Bu makroyu da shiftkapat adıyla kaydedin.
7- Bir makro daha oluşturun. Bunda da Eylem olarak kod çalıştırı seçin ve işlev adı olarak şunu yazın
BypassOzelliginiDegistir2 ()
8- Bu makroyu da shiftac adıyla kaydedin.
9- Artık bu makroları nerden çalıştırısınız bilemem. Ama başlangıç ayarlarını kapatırsanız ve shiftkapa makrosunu da bir şekilde çalıştırırsanız programa shift ile girilmez.
10- Haaa. Bilen girer. Nasıl mı? Bir access dosyası var onu çalıştırıyorsun dosyayı gösteriyorsun, shift aç makrosu çalışmış gibi dosya açılıyor. Zaten aynı yöntemin tersi de bu dosyayla yapılıyor. Yani yukarda anlattığım yöntemi dışarıdan bu programla da yapabiliyorsunuz. Kolay gelsin.

 

[simendifer]

SHİFT TUşUNU GİZLEMEK

'Dikkatrogramınızın bir yedeğini aliniz. Aksi takdirde programınızı tekrar açamayabilirisiniz...

'Modüle1 icine aşagıdaki kodu yapıştırın

'----------Kod Baslama------------------
Option Compare Database
Function BypassOzelliginiDegistir()
Const OzellikTipi As Long = 1
OzellikDegistir "AllowBypassKey", OzellikTipi, False
End Function

Function OzellikDegistir(strOzellikAdi As String, varOzellikTipi As Variant, varOzellikDegeri As Variant) As Integer
Dim dbs As Object, varOzellik As Variant
Set dbs = CurrentDb
On Error GoTo OzellikDegistir_Hata'Ozelligi degistir
dbs.Properties(strOzellikAdi) = varOzellikDegeri
OzellikDegistir = True
OzellikDegistir_Cik:
Exit Function
OzellikDegistir_Hata:
If Err = 3270 Then
Set varOzellik = dbs.CreateProperty(strOzellikAdi, _
varOzellikTipi, varOzellikDegeri)
dbs.Properties.Append varOzellik
Resume Next
Else
OzellikDegistir = False
Resume OzellikDegistir_Cik
End If
End Function
'----------Kod Bitis------------------


. ve autoexec adında bir makro oluşturun. Autoexec Access açıldığında otomatik çalışan makrodur. (Ayni Autoexec.bat gibi)
'Makronun içinde Kodçalistir(RunCode)seç ve parametre bölümüne aşağıdaki satiri yaz.
=ByPassOzelliginiDegistir()

bu kod bu formdan alınmıştır emegi gecene teşekkür ederim

ekteki programlada shift tuşu gizlenmiş programı açmak için

 

[mehmetdemiral]

Aristoteles, biliyorum bana özel mesaj atıp teşekkür ettiniz ama buraya herhangibir şey yazsaydınız buraya gelip birşeyler soran arkadaşların cevap alma yüzdeleri artacaktı. Şimdi baktım sizin ilk ve son mesajınız. Bu formu ayakta tutmak ve birşeyler öğrenmek için sorduğumuz konuyla ilgili -özel mesaj değil- normal mesajla dönerseniz bir sonuç almış oluruz. Bu da bize şevk verir, sunduğumuz desteği güçlendiririz.. Selamlar, kolay gelsin..

 

[Nevzat GÜRBÜZ]

Arkadaşlar Ben bu mesajı yeni gördüm.Cevap veren arkadaşlara teşekkür ederim. Mehmet Arkadaşımın dediği gibi Access'ten anlayan herkes bunu açabiliyor.Ama bir shift tuşune iptal veya aktif etmek için şifre konulabilse çok güzel olurdu. Sonuç olarak eğer bir şifre konamıyorsa zaten ACCESS'ten anlamayan biri shift tuşu ile açmasını bilmez. Eğer açmasını biliyorsa da kilitlemenin bir manası yok.Cünkü yukardaki Access ile aktif ve pasif edebiliyorsun. İyi çalışmalar

 

[mehmetdemiral]

Sevgili Nevzat bey,
Access'i çok iyi anlamışsınız. Ben bir ilave yapayım ve bir ek göndereyim size. Access'te shift kilidini hiçbirşey yapmadan dışardan açıp kapatabiliyorsunuz. Gösteriyorsun dosyayı aç diyorsun ya da kapat diyorsun. O kadar...

 

[ens]

emeği geçen tüm arkadaşlara teşekkürler

 

[ahcan]

mehmet demiral hocama teşekkürler..

 

[mehmetdemiral]

Rica ederim sevgili ahcan.. Bu kadar zaman sonra eski bir mesajın hala birinin işine yaramasına sevindim.. Her zaman arkadaşlara memnuniyetle ve zevkle yardıma hazırız. Hatta bu sitedeki tüm uzman arkadaşlar benden de çok daha bilgililer ve yardımlarını hiç mi hiç esirgemiyorlar. İyi ki var bu site...

 

[Ersen]

dosyanın yenilenmesi

Sevgili Nevzat bey,
Access'i çok iyi anlamışsınız. Ben bir ilave yapayım ve bir ek göndereyim size. Access'te shift kilidini hiçbirşey yapmadan dışardan açıp kapatabiliyorsunuz. Gösteriyorsun dosyayı aç diyorsun ya da kapat diyorsun. O kadar...

Mehmet Bey
acaba rica etsek bu dosyayı yeniden foruma kazandırabilir misiniz, ya da elinde bu dosyadan bulunan arkadaşlar sizler tekrar yükleyebilir misiniz.

Teşekkürler.

 

[Ersen]

shifttuşuaçkapa

Arkadaşlar bana çok acil lazım olduğu için başka bir forumdan bu dosyayı buldum. Burada arayan arkadaşlar olabilir diye ekliyorum.

 

[modalı]

Sayın Ersen,

Aslında bu çözümlerin çoğu buradan oralara gitme.
O siteler daha doğmamışken çözümler buradaydı.

İyi çalışmalar

 

[Ersen]

Sayın Modalı;

Aslında ben de biliyorum buranın bir okul, bir akademi olduğunu, ancak örnekler kayboldu, herşeye en başından başlamak zorunda kalmanın zorluğunu hep birlikte yaşıyoruz. Örneği istedikten sonra iki gün bekledim, ancak eklenmediği için diğer arkadaşların da istifadesine sunmak için ekledim.

Diğer forumlardaki arkadaşlar da excel.web.tr'nin hakkını teslim ediyor, merak etmeyin.

Size de iyi çalışmalar.

 

[mehmetdemiral]

Arkadaşlar, benden örneği tekrar isteyen mesajınızı görmedim.Kusura bakmayın. Kendimi affettirmek için bir başka çalışmayı alternatif olarak sunayım ben de))