Excel'e şifre ile giriş ve kayıt

[Ahmet Sami]

İyi günler kıymetli abilerim. Gönderdiğim dosyada verilerim var ve en az 6 veya 7 personel bu excel çalışma kitabında veri girişi veya çıkışı yapabiliyor. Benim sorunum bazen yanlış veri girişi veya çıkışı olabiliyor. Bizde bunun önüne geçebilmek için excel'e şifre ile girilsin (tüm personelin şifresi olsun) ve şifresi ile giren personelin şifresini KULLANICI sayfasına hem şifre hem tarih ve saat olarak işlesin istiyorum. Yardımlarınız için şimdiden teşekkür ediyorum.

 

[Korhan Ayhan]

Eğer bu dosyayı ortak alanda bir yerde kullanmayı düşünüyorsanız denemedim ama paylaşıma açılmış dosyalarda makrolar kısıtlı olarak çalışıyor diye biliyorum.

Tecrübe etmiş olan arkadaşlar yönlendirme yapacaklardır.

makro ve VBa kullanıldığında sayfa paylaşımı olmamaktadır.

Üstadlar merhabalar, Ekteki dosyayı yardımlarınız sayesinde oluşturdum. Bir sorunum kaldı bunuda aşarsam işlem bitmiştir. Burada ben bu dosyayı çalışma sayfasını birden fazla kullanıcıya paylaştırdığım zaman vba da sayfayı koruma altına altığım kodla çakışmaktadır. Çalışma kitabını nasıl...

www.excel.web.tr

 

[ragnorak]

Dosyayı incelemedim ama yanlış veri girişi şifre ile giderilemez diye düşünüyorum. Yerinde olsam kimin ne değişiklik yaptığını Pc adı ve tarih ile kayıt altına alırdım. "Environ$("computername") & " | " & Format(Now(), "dd.mm.yyyy Hh:Nn")"

 

[Ahmet Sami]

Sayın Korhan ve ragnorak dosya sadece benim bilgisayarım da olacak, burada kast ettiğim sadece kim dosyaya girerse onun şifresini KULLANICI sayfasına aktarması.

 

[Korhan Ayhan]

Burada önemli olan dosyayı aynı anda kaç kişi kullanacak? Eğer çoklu giriş için düşünüyorsanız dediğim durum geçerli diye biliyorum. Dediğim gibi tecrübe etmedim. Ama araştırdığım kadarıyla çoklu kullanım makro açısından sıkıntılı.

Eğer tek kişi kullanarak veri girişi yapacaksa forumda bununla ilgili örnekler var diye hatırlıyorum.

Soru - Userform LOGİN Ekranı Kullanıcı Yetkilendirme

Merhabalar Ekte Göndermiş Olduğum Örnekte 1 Adet Kullanıcı Girişli Login Ekranı Bulunmakta LOGİN Ekranına Kullanıcı Adı ve Şifre Girince Panel Sayfası Açılmaktadır. Gelelim Yardımınıza İhtiyaçım Olduğu Kısıma 1 Kullanıcı Girişini 2 Adet Kullanıcıya Çıkarmak ve 1'nci Kullanıcıya Tam Yetki vermek...

www.excel.web.tr

 

[Orion1]

Tek sayfayı çok kullanıcı giriş yaparsa ve bu makro ile şifre yaparsanız,makroyu devre dışı bırakarak yine şifreleriniz kırılır ve veri girişine uygun hale girer.

 

[Ahmet Sami]

Sayın Üstadlarım anladığım kadarı ile böyle bir şey mümkün değil, ilginizden dolayı ve zaman ayırdığınız için çok teşekkür ederim.

 

[spacebar]

burada sanırım istediğiniz çözüm var. bir inceleyin.

SEKMELERE ŞİFRE KOYMA

Arkadaşlar Şöyle Bir Sorum Olacak Birtane Excel Dosyamız Olacak Bu Tamamen Şifresiz Olacak Ama İçinde Bulunan Sekmelerin Her Biri Bir Kişiye Ait Olacak Mesela Sekme İsimleri AHMET,MEHMET,HÜSEYİN ve Bu kişilerin Ayrı Bir şifresi Olacak Kimse Kimsenin Sekmesini tıklayıp açamayacak şifreyi...

www.excel.web.tr

 

[Ahmet Sami]

Sayın spacebar teşekkür ederim. İstediğim tam anlamı ile bu değildi ama buda farklı bir dosyamda çok işime yaradı teşekkür ederim.

 

[usubaykan]

Böyle bir çözüm ürettim fakat işinizi ne ölçüde görür bir deneyin lütfen.

 

[Ahmet Sami]

Sayın Usubaykan teşekkür ederim ama her giriş yaptığımızda giriş yapanın şifresini KULLANICI sayfasına aşağıya doğru giriş yapacak tarihi ile birlikte

 

[usubaykan]

Siz en son girilen tarihi mi arıyorsunuz yoksa bu kullanıcı kaç kere girmiş hangi günlerde girmiş onu mu arıyorsunuz?

 

[Ahmet Sami]

Kullanıcı hangi tarihte kaç kere girmiş onu bilmek istiyorum.

 

[usubaykan]

Option Explicit
Private Sub Worksheet_Activate()
Dim Şifre As Variant, Bul As Range, Say, Son

Say = WorksheetFunction.CountIf(Sheets("KULLANICI").Range("D:D"), "AKTİF")
If Say > 0 Then Exit Sub

Cells.EntireRow.Hidden = True

Şifre = InputBox("Şifre Giriniz")

If Şifre = "" Then
MsgBox "Şifre ekranını boş geçemezsiniz"
Exit Sub
End If

Set Bul = Sheets("KULLANICI").Cells.Find(What:=Şifre, LookAt:=xlWhole)

If Not Bul Is Nothing Then
    Cells.EntireRow.Hidden = False
    Son = Sheets("KULLANICI").Cells(Rows.Count, 1).End(3).Row + 1
    Sheets("KULLANICI").Cells(Son, "A") = Şifre
    Sheets("KULLANICI").Cells(Son, "B") = Format(Now, "DD.MM.YYYY")
    Sheets("KULLANICI").Cells(Son, "C") = Format(Now, "hh:mm:ss")
Else

    MsgBox "Şifreyi Yanlış Girdiniz."

End If

End Sub

Bu şekilde revize edin birde öyle deneyin.

 

[Ahmet Sami]

Çok teşekkür ederim. Dosya açılınca direkt olarak şifre istese olur mu burada açıldıktan sonra KULLANICI sayfasına gidip ana sayfaya geldikten sonra şifre istiyor.

 

[usubaykan]

Private Sub Workbook_Open()

çalışma kitabınızın ilgili bölümüne makroyu kopyalayın.

 

[Ahmet Sami]

Üstad denedim ama herhangi bir değişiklik olmadı

 

[usubaykan]

Deneyin...

 

[Ahmet Sami]

Sayın usubaykan bıkmadan usanmadan yardım ettiğiniz için çok teşekkür ederim. Emeğinize sağlık.