• DİKKAT

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

Izin takip çizelgesi (fikir istiyorum)

Katılım
1 Kasım 2012
Mesajlar
275
Excel Vers. ve Dili
Microsoft Office 2013 Türkçe
Selamlar arkadaşlar.

İzin takip çizelgesi yapmak istiyorum, 20 personelimiz var, bu program ağ paylaşımı yardımıyla tüm personelin erişimine açık olacak. Lakin istediğim şey şu: İstiyorum ki, her personel için kullanıcı adı ve şifre oluşturalım, her personel kullanıcı adı ve şifresiyle giriş yaptığında sadece kendisiyle ilgili işlem yapabilsin, sadece kendi bilgilerini görebilsin. Personel biriminde tek bir yetkili her işlemi görebilir, her işlemi yapabilir olsun.
 
Merhaba;
Bir kullanıcımız için yaptığım örneği sizin için uyarladım.
İnceleyin.
Not: Ağ üzerinde deneme şansım olmadığından ağdaki sonuçlarını bilemem.
sicil=admin
kullanıcı=admin
şifre=admin
Olarak dosyayı açın (h sayfasını inceleyin)
Daha sonra diğer kullanıcılar için test edin.

İyi çalışmalar.

Link:http://s3.dosya.tc/server5/4aisso/-sifreli_ve_zamanli_dosya_ornegi-userform.zip.html
 

Ekli dosyalar

peki hocam bunu her personel için ayrı ayrı sayfalarda değil de, tüm personel için bir liste olduğunda nasıl uygulayabiliriz. farzedelim ki 10 20 değil de bunu 300 personel için uygulayacağız, 300 personele ayrı ayrı sayfa açarak değil de tüm personelleri tek bir sayfada nasıl toplarız. yani benim http://s3.dosya.tc/server5/e6mnmc/Izin_Kagidi_Ornek.rar.html bu dosyamda nasıl uygularız, yada şöyle sorayım bu şifrelemenin mantığı nedir, nasıl yaparız bunu
 
Son düzenleme:
Sefaburan , ağdan excel dosyasını sadece 1 bilgisayar kullanabiliyor. Bunu göz önüne alın. Herhangi bir bilgisayarda excel açıksa diğer bilgisayardan girmeye çalıştığında hata alırsın, 20 kişi de az değil sürekli çakışacaktır.
 
aynı anda açılmaz, izin sürekli kullanılan birşey değil, o durumu biliyorum, teşekkürler,

hocam yalnız ben kendi dosyamı şifrelerken, şifre bölümüne yazdığımı unuttum, dosyayı kapattım, şimdi dosyaya girdiğimde sadece açılış sayfasını gösteriyor, onun dışında tüm sayfaları gizlemiş, gösteremiyorum, nasıl düzeltirim
 
üstadım tamam herşeyi hallettim, sadece tek bir sıkıntım kaldı, o userformdaki sicil numarasını girdiğimizde gir dediğimizde açılış sayfasında a1 hücresine o sicil numarasını otomatik nasıl yazdırabiliriz.
 
Merhaba.
Sicil numarasını kişinin kendisine ait sayfanın A1 hücresine yazdırmak istiyorsanız;
başlangıç adlı kod'un sonlarına doğru aşağıdaki iki siyah satırın arasındaki kırmızı satırı ekleyiniz.
Kod:
Sheets(i).Visible = xlSheetVisible 'xlVeryHidden
[COLOR="Red"]Sheets(i).Cells(1, 1) = sicilno[/COLOR]
End If
 
Merhabalar, bu dosyada şifreleri 31.12.2015 tarihine kadar geçerli kılmıştım. fakat o tarihten önce uzatmayı unuttum. şimdi dosyaya giremiyorum. makroları etkinleştirme dedim yine göremedim. Çok acil yardımcı olurmusunuz? programı kullanamıyorum.
 
Bence bunu access kullanarak yap çok daha kolay halledebilirsin.
 
Merhaba;
Neyseki çözümsüz değil.
Sorun "sefaburan-şifreli ve zamanlı dosya örneği-userform" dosyasında ise;

1-Dosyayı açın ve userformu (şifre vs.. girmeden) X den kapatın.
2-Dosyayı tekrar açın (dosya yeniden açılsın mı? Sorusunu Hayır olarak yanıtlayın)
Artık dosyanız 2015 sayfası ile açılacaktır.
3-2015 sayfasında sayfa adına sağ tuş ile ve “kodu görüntüle” seçeneği ile makro kısmına girin.
4-Userform1 e çift tıklayarak userform üzerine bir CommandButton ekleyin. Bu butona;

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
On Error Resume Next
For i = 1 To Worksheets.Count
ThisWorkbook.Sheets(i).Visible = xlSheetVisible
Next i
Application.ScreenUpdating = True
End Sub

Kodlarını atayın.
5-Dosyayı kaydederek kapatın.
6-Sonra dosyayı açın.
7-CommandButton1 butonuna basın.
8-Userformu X den kapatın.
9-Dosyayı tekrar açın (dosya yeniden açılsın mı? Sorusunu Hayır olarak yanıtlayın)
Sayfalarınız artık açık.
Gereken düzeltmeleri yapabilirsiniz.

İyi çalışmalar.
 
çok teşekkürler efendim. fakat çok basit bir yöntemle hallettim. bilgisayarın tarihini geri aldım, dosyayı açtım düzenledim kapattım :) çok teşekkürler
 
Geri
Üst