sayfa geçişi

[bekir38]

arkadaşlar merhaba,
sayfadan sayfaya geçerken şifre ile giçişi sağladım,
yani şifre soruyor ama ctrl+page up veya ctrl+pagedown yapınca
o sayfalara geçişi sağlıyor. bunu nasıl kısıtlayabiliriz.
yardımcı olursanız sevinirim,

kolay gelsin,

 

[Levent Menteşoğlu]

Aşağıdaki kodu thisworkbook sayfasına kopyalayarak deneyin. Her sayfa değişiminde sayfa1e geri dönecektir. Bu kod içinede şifre ile ilgili bilgiyi mukayese için koymalısınız.

[vb:1:4a67897a13]Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sheets("sayfa1").Select
End Sub
[/vb:1:4a67897a13]

 

[bekir38]

MAKRO AÞAÐIDAKİ GİBİ,
Sub GFAFS()
Dim sPassWord As String
sPassWord = InputBox("SAYFAYI GÃ?RMEK İÇİN LÜTFEN ÞİFREYİ GİRİNİZ ", "Ã?Z LİDER")
Select Case sPassWord
Case "1861"
GFAF
Case ""
Case Else
MsgBox "GİRİLEN ÞİFRE YANLIÞ. GÃ?RMEK İÇİN YETKİNİZ YOK "
End Select
End Sub

GÃ?NDERDİÐİNİZ MAKROYUDA BÃ?YLE DÜZENLEDİM AMA OLMADI,

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sheets("ANA SAYFA").Select
GFAFS
End Sub

BİRÞEYLERİ YANLIÞ YAPIYORUM AMA NEYİ,
İSTERSENİZ PROÐRAMI GÃ?NDEREYİM,

İLGİNİZ İÇİN TEÞEKKÜRLER,

 

[Mahmut Bayram]

syn bekir38,
Sub GFAFS()
Dim sPassWord As String
sPassWord = InputBox("SAYFAYI GÃ?RMEK İÇİN LÜTFEN ÞİFREYİ GİRİNİZ ", "Ã?Z LİDER")
Select Case sPassWord
Case "1861"
GFAF
Case ""
Case Else
MsgBox "GİRİLEN ÞİFRE YANLIÞ. GÃ?RMEK İÇİN YETKİNİZ YOK "
End Select
End Sub
kodu VBA 'da her sayfaya
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sheets("ANA SAYFA").Select
GFAFS
End Sub
kodu da thisworkbook sayfasına kopyalayı ve bu sayfada "GFAFS "adlı kelimeyi silin ben uyguladım gayet çalışıyor

 

[Levent Menteşoğlu]

Dosyanızı eklerseniz kesin sonuç elde edebiliriz diye düşünüyorum.

 

[bekir38]

TAMAM TEÞEKKÜRLER ARKADAÞLAR,
BEN YANLIÞ YERE EKLEMİÞİM,
HEPİNİZE YARDIMLARINIZDAN DOLAYI TEÞEKKÜRLER,

İYİ ÇALIÞMALAR,

 

[bekir38]

TAMAM TEÞEKKÜRLER ARKADAÞLAR,
BEN YANLIÞ YERE EKLEMİÞİM,
HEPİNİZE YARDIMLARINIZDAN DOLAYI TEÞEKKÜRLER,

İYİ ÇALIÞMALAR,

YA ARKADAÞLAR TAMAM DEDİM AMA,
KOD GAYET GÜZEL ÇALIÞIYOR FAKAT;
ÞİFRELİ SAYFALARA GİRMEK İSTEDİÐİMDE
YENİDEN ANA SAYFAYA DÃ?NÜYOR.
ÞİFRE DOÐRU İSE GİRMESİ LAZIM,
YANLIÞ İSE ZATEN GİREMEZ.
BEN EN İYİ DOSYAYI YOLLAYAYIM,

DOSYAYI SON HALİYLE EKLEDİM
RESİMLERİ GÃ?STEREBİLMESİ İÇİN
C:\TOYOTA\TYT\**.JPG RESMİ OLMASI LAZIM.
YADA MAKROLARDAN RESİM ALDIÐI YERİ DEÐİÞTİREBİLİRSİNİZ.
PROÐRAM ÇALIÞIR AMA RESİM DEÐİÞTİRMEZ.

MAHMUT BEY KAYSERİDENSİNİZ GALİBA,
BENDE KAYSERİLİYİM,
İYİ ÇALIÞMALAR,

 

[Levent Menteşoğlu]

Ekteki dosyayı inceleyin.

 

[bekir38]

İLGİNİZE TEÞEKKÜRLER,
ÞİFRELİ SAYFALAR İÇİN ÇÃ?ZÜM ÜRETİLMİÞ AMA
KAYIT SAYFASI ÞİFRESİZ.
ONUN MAKROSUNU ÇALIÞTIRDIÐIMDA YENİDEN ANA SAYFAYA
GELİYOR. BÃ?YLE BİR DÃ?NGÜ ONUN İÇİNDE OLABİLİRMİ.
SAYFA ADLARI - UBF VE KAYIT

 

[Levent Menteşoğlu]

Thisworkbook sayfasındaki kodu aşağıdaki ile değiştirin.

[vb:1:b043c314d7]Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name = "KAYIT" Then Exit Sub
If ActiveSheet.Name = "UBF" Then Exit Sub
If a = 1 Then Exit Sub
Sheets("ANA SAYFA").Select
End Sub

[/vb:1:b043c314d7]

 

[Levent Menteşoğlu]

Size birde öneride bulunayım. Bence şifre ile girilen sayfaları gizleyin ve şifre doğru girilirse görünür yapın. Bunun için kullanılacak kod aşağıdaki gibi olacaktır.

sheets("sayfa1").visible=true

 

[bekir38]

VALLA DOÐRU SÃ?YLÜYORSUNUZ AMA,
KAYIT SAYFASINDA BİR GİZLİ VERİ, BİR DE NORMAL KAYIT YERİ VAR.
AYRICA GİZLİ SAYFALARI AZ ÇOK EXCEL BİLENLER GİDİYOR
BİÇİM-SAYFA-GÃ?STER DİYOR.
GİZLİ SAYFALARA YETKİSİZ KİÞİLERİN GİRMESİNİ İSTEMİYORUM.
SİZİN GÃ?NDERDİÐİNİZ KOD ÇALIÞIYOR FAKAT ODA BİR KERE ÞİFRE GİRİLİNCE CTRL+PAGE DOWN VE PAGE UP ÇALIÞIR DURUMA GEÇİYOR.
AMA NEYSE ÞİFREYİ BİLEN ZATEN DOLAÞIMA HAK KAZANMIÞ DEMEKTİR.

İLGİNİZE TEÞEKKÜRLER, İYİ ÇALIÞMALAR.