Calisma Sayfalari arasinda parola!!!

[smiles]

Merhabalar,
Ek'te gonderdigim ornek stok calismasini isyerinde 5-6 kullanici icin paylasima acmak istiyorum.. Ama kullanicilarin sadece Malzeme Icmal sayfasini gorebimelerini diger calisma sayfalarina ise erismelerini bir parola ile engellemek istiyorum.
Mumkun mudur?
Ilginize simdiden cok tesekkurler..
Zafer

 

[tufan03]

1.042.390.250 Sayfasının Sayfa kodu bölümüne (Şifre:1234)

Private Sub Worksheet_Activate()

Application.EnableCancelKey = xlErrorHandler
Application.DisplayAlerts = False
Dim sifre As String

sifre = InputBox("Lütfen Kişisel Şifrenizi Giriniz,")
If sifre <> 1234 Then
MsgBox "Malesef Şifreniz geçerli değil"
Worksheets("MALZEME İCMAL").Select
Exit Sub

Else
MsgBox ("Şifreniz Doğrulandı")
ActiveWindow.DisplayWorkbookTabs = True
Worksheets("1.042.390.250").Select
Application.DisplayAlerts = True
End If
End Sub

 

[smiles]

Cok tesekkurler!!

Bu soruyu daha onceleri de sormus ama istedigim cevabi bir turlu alamamistim. Gonderdiginiz kod kesinlikle ve kesinlikle isimi inanilmaz kolaylastirdi.
Cok tesekkurler..
Emeginize bilginize saglik..
Saygilar..
Zafer

 

[tufan03]

Her sayfanın henhangi bir hücresine mesela A1 hücresine şifreyi yazarsan
kodlara müdahale etmeden şifreyi istediğin zaman değiştirebilirsin.
koddaki:
If sifre <> 1234 Then
satırını
If sifre <>[A1] Then
ile değiştirimen lazım.

 

[ANTALYA 01]

S

Merhaba

Bu güzel çalışmada Sayfalar arası geçiş yaparken Run time error 13 Type mismetch hatası veriyor.Diğer sayfaya geçilemiyor niçin ?

 

[tufan03]

Aslında küçük bir dosya eklerseniz,belki hata giderilebilir.

 

[ANTALYA 01]

S

Dosya ektedir.
Şifreli sayfada Cansel da hata veriyor

 

[smiles]

Çalışma ile ilgili son bir soru daha!!

Selam,
Sormak istediğim son bir soru daha var.
Bu dosyanin MALZEME İCMAL denen ana sayfasinda en sağda malzeme miktarlarini gösteren sütunlara ilişkin bir koruma nasıl sağlayabilirim?
Birde benim stok listem oldukça kabarık.. 120 çalışma sayfası var. Her birine girip gönderdiğiniz bu kodu tek tek yazmak yerine bunun daha kolay bir yolu var mı ki?

 

[tufan03]

Kodlar çalışıyor 3 adet sayfa ekledim,ve uyguladım.

 

[ozcanakgun]

dostum bu şifreleri cansel dediğimizde yine sayfada işlem yapılabiliyor,bu şifreleme işlemi biraz daha çalışma istiyor bence

 

[ANTALYA 01]

D

Merhaba aynı hata devam ediyor bende

 

[tufan03]

Özcan bey koddaki
If sifre <> 1234 Then satırı

If sifre <> ("1234") Then şeklinde değiştirerek deneyin.

 

[hamitcan]

Arkadaşlar ben de bir örnek yaptım, faydalı olacağını düşündüm. Eki inceleyin.

 

[serhanex]

Peki sayfanın hiç görünmeme olanagı varmı acaba? Bu sekilde sayfa gozukuyor fakat işlem yapılamiyor.

 

[hamitcan]

Sayfalar g&#246;r&#252;nmesin derseniz, kod tamamiyle de&#287;i&#351;ir. Yapt&#305;&#287;&#305;m &#246;rnek, sayfa se&#231;ildi&#287;i zaman olay&#305;na dayanmaktad&#305;r.

 

[hamitcan]

Bununla ilgili bir örnek hazırladım. Eki inceleyin.

 

[GUMUSOMUR]

Şİfreyİ SÖylersenİz Her İkİ İŞlemdede Daha Rahat Anlayabİlİrİm Çok GÜzel Bİr ÇaliŞma Elİnİze SaĞlik

 

[hamitcan]

&#350;ifreyi 1 olarak varsayd&#305;m.

 

[ocamsul]

Arkadaşlar örnekleri inceledim. üstadların elie sağlık. Ancak BİÇİM + SAYFA + GÖSTER bölümünden bu sayfalar görüntülenebiliyor. buna ne gibi bir çare düşünülebilir?

 

[hamitcan]

Aktif men&#252; bar&#305; gizlemek belki bir &#231;&#246;z&#252;m olabilir.