şifre

[ahmett46]

Slm
Bir excel dosyası hazırladım ve kullanıcı adı, şifre koydum.
Option Explicit

Dim kullanici_adi(2, 3) As String
Dim şifreler(2, 3) As String

Private Sub CommandButton41_Click()
On Error GoTo Exit_sub

If TextBox1.Text = kullanici_adi(1, 1) And TextBox2.Text = şifreler(1, 1) Then
MsgBox ("SİSTEME GİRİŞİNİZ ONAYLANMIŞTIR!")
GoTo Exit_sub
ElseIf TextBox1.Text = kullanici_adi(2, 1) And TextBox2.Text = şifreler(2, 1) Then
MsgBox ("DOĞRU GİRİŞ YAPTINIZ.")
GoTo Exit_sub
ElseIf TextBox1.Text = kullanici_adi(1, 2) And TextBox2.Text = şifreler(1, 2) Then
MsgBox ("DOĞRU GİRİŞ YAPTINIZ.")
GoTo Exit_sub
End If

MsgBox ("MAALESEF DOĞRU GİRİŞ YAPMADINIZ..AÇMAYA ÇALIŞTIĞINIZ SAYFA KAPATILACATIR.!")
TextBox1 = ""
TextBox2 = ""
Unload Me
Application.Visible = True
ThisWorkbook.Close
Exit Sub
Exit_sub:
Application.Visible = True
Unload Me
End Sub
Private Sub UserForm_Activate()
'Kullanıcı adları tanımlanıyor
kullanici_adi(1, 1) = "tuğçe"
kullanici_adi(2, 1) = "tuğçe"
kullanici_adi(1, 2) = "tuğçe"

'Şifreler tanımlanıyor
şifreler(1, 1) = "2005"
şifreler(2, 1) = "2005"
şifreler(1, 2) = "2005"
şifreler(2, 2) = "2005"
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox "Buradan Kapatıp Sayfaya Ulaşacağını Sanma Üzgünüm..!"
Cancel = True
End If
End Sub

Kodlarını kullanarak.
Buradaki sorunum: Güvenlik düzeyi yüksekse makrolar çalışmıyor. Dolayısıyla kullanıcı adı ve şifre de istemiyor. Ve excel sayfasında işlem yapılabiliyor. Kullanıcı adı ve şifre girilmeden excel sayfasınında açılmamasını istiyorum mümkün mü? TEŞEKKÜRLER...

 

[karadami]

farklı kaydet ten şifre koysanız. yada tüm sayfayı koruyarakda verilerin değiştirilmesini engelleyebilirsiniz..

 

[ahmett46]

sayfa koruma yaptığımda makrolar çalışmıyor. şifre girmaden yada yanlış girince hiç açılmasın istiyorum. Teşekkürler

 

[karadami]

tek bir kullanıcı mı olacak yoksa birden fazla mı ?

 

[ahmett46]

tek kullanıcı
dosyayı kullanıcı adı ve şifreyi bilmeyen açmaya çalıştığında açılmasın.

 

[karadami]

excel de farklı kaydet ile sifre koyun. sadece şifre sorar ama yeterince güvenlidir.

dosya > farkli kaydet > araclar (sağ üst köşede) > genel secenekler den acma sifresini girmeniz yeterlidir.


iyi günler...

 

[baydeniro]

Sayın ahmett46, makro güvenlik düzeyi yüksek ise zaten hiçbir makro çalışmaz, bu genel bir excel kuralıdır. Makroların çalışması için güvenlik düzeyinin "düşük" olması gereklidir. Yazdıklarınızın hepsi gayet normal. Makrooların etkinleşebilmesi için makro güvenlik düzeyini düşük yapın.

 

[ahmett46]

Sn Serdarokan sorunumu yanlış anladınız herhalde güvenlik düzeyi yüksek olduğunda makroların çalışmayacağını biliyorum. Yaptığım programın güvenlik düzeyi yüksek bir pc de açıldığı zaman şifre sormadan açılıyor olması. Ben şifre girmeden excel sayfası da açılmasın istiyorum. tşk

 

[baydeniro]

Pardon, ben soruyu gerçekten yanlış anlamışım. Bu durum ile ben de karşılaştım. XP ortamında yaptığım dosyayı Vista ortamında açan arkadaş, makro güvenlik düzeyi yüksekse bile makroların çalıştığını bana aktardı. Kendim test etmedim ama güvenilir bir arkadaştan bu bilgiyi aldım. Sizin bahsettiğiniz dosya hangi işletim sistemi ile bu şekilde açılıyor ?

 

[çilli]

Merhabalar
userformda yazılmış olan kodları nasıl şifreleyebiliriz.?
Teşekkürler..

 

[meslan]

Sn.ahmett46 bence dosyanın kapanışında sayfaları gizleyin. Şifre girişiyle de gösterin. Böylece mecburi makrolar etkinleştirilecektir.

Sub auto_close() 'sayfagizle
Worksheets("Sayfa1").Visible = xlVeryHidden
'diğer sayfalar
Worksheets("uyarı").Select 'Bu sayfaya Makroların Etinleştirilmesi ile ilgili bir mesaj
End Sub
'MsgBox ("SİSTEME GİRİŞİNİZ ONAYLANMIŞTIR!") dan sonra
Worksheets("Sayfa1").Visible = True
've diğer sayfalar
Worksheets("ana menü").Select
Şeklinde deneyin. Projenizi de şifreleyin. Kolay gelsin.

Sn. Çilli sanırım istediğiniz ekteki resimde. Yanlış anladıysam tebessüm et gittsin. Kolay gelsin.

 

[çilli]

Teşekkürler

 

[baba_karabatak]

sayfa koruma yaptığımda makrolar çalışmıyor. şifre girmaden yada yanlış girince hiç açılmasın istiyorum. Teşekkürler

sizde sayfalarından veri akışı olduğu zaman proğramın makro kısmında korumalı sayfaların şifresini kaldırıp tekrar aktif hale getiriniz.