• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Calisma Sayfalari arasinda parola!!!

  • Konbuyu başlatan Konbuyu başlatan smiles
  • Başlangıç tarihi Başlangıç tarihi
S

smiles

Katılım
4 Ağustos 2006
Mesajlar
35
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
 
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
 
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
 
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.
 
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 ?
 
Ç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?
 
dostum bu şifreleri cansel dediğimizde yine sayfada işlem yapılabiliyor,bu şifreleme işlemi biraz daha çalışma istiyor bence
 
Özcan bey koddaki
If sifre <> 1234 Then satırı

If sifre <> ("1234") Then şeklinde değiştirerek deneyin.
 
Arkadaşlar ben de bir örnek yaptım, faydalı olacağını düşündüm. Eki inceleyin.
 
Peki sayfanın hiç görünmeme olanagı varmı acaba? Bu sekilde sayfa gozukuyor fakat işlem yapılamiyor.
 
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.
 
Bununla ilgili bir örnek hazırladım. Eki inceleyin.
 
:)

Şİ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
 
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?
 
Aktif men&#252; bar&#305; gizlemek belki bir &#231;&#246;z&#252;m olabilir.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst