• DİKKAT

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

Excel kitabını şifrelemek

Y

yavuz829

Katılım
8 Mart 2007
Mesajlar
582
Excel Vers. ve Dili
excel 2000 Türkçe
Merhaba arkadaşlar ekteki dosyama formdan indirdiğim bir şifre programını uyguladım. Ancak dosyayı kapatıp açtığım zaman şifreyi açmadan dosyadaki bir sayfa görünüyor. Eğer oluyorsa şifreyi açmadan sayfaların görünmesini istemiyorum. Yardımlarınızı bekliyorum. İyi çalışmalar.

Kullanıcı adı: admin
Şifre : 123
 

Ekli dosyalar

yavuz829' Alıntı:
Merhaba arkadaşlar ekteki dosyama formdan indirdiğim bir şifre programını uyguladım. Ancak dosyayı kapatıp açtığım zaman şifreyi açmadan dosyadaki bir sayfa görünüyor. Eğer oluyorsa şifreyi açmadan sayfaların görünmesini istemiyorum. Yardımlarınızı bekliyorum. İyi çalışmalar.

Kullanıcı adı: admin
Şifre : 123
Genişletmek için tıkla ...

Merhaba
Thisworbook'taki Wokbooks_Open Presedüründeki kodu bununla değiştirin.
Kod: 
Private Sub Workbook_Open()
Application.Visible = False
UserForm5.Show
End Sub
Userform5'in Tamam Butonundaki kodu bununla değiştirin.
Kod: 
Private Sub CommandButton1_Click()
K_Adi = Array("admin")
Sifre = Array("123")
For x = LBound(K_Adi) To UBound(K_Adi)
If TextBox1.Text = K_Adi(x) And TextBox2.Text = Sifre(x) Then
Unload Me
MsgBox "Girişiniz onaylandı.", vbInformation, "ONAY"
Application.Visible = True
Exit Sub: End If
Next
Unload Me
MsgBox "Hatalı giriş yaptınız.", vbCritical, "BİLGİ HATASI"
ThisWorkbook.Close False
End Sub
Dosyayı kaydedip kapatın ve tekrar açın deneyin.
 
İhsan Tank' Alıntı:
Rica ederim
Not : Application.visible=false Özelliğini her zaman kullanmayın özellikle yardım isterken yardımcı olacak kişiye işkence oluyor bilginiz olsun.
:keyif:
Genişletmek için tıkla ...

Hocam kodlardan fazka anlamiyorum. Bu sitede indirdiğim programların üzerinde bazı değişiklikler yapıyorum. Altnda çıkamadığım konularda da sizin gibi değerli arkadaşlar yardımcı oluyorlar. Application.visible=false nerelerde kullanılıyor ve ne işe yarıyor. Açıklarsanız sevinirim. İyi çalışmalar.
 
yavuz829' Alıntı:
Hocam kodlardan fazka anlamiyorum. Bu sitede indirdiğim programların üzerinde bazı değişiklikler yapıyorum. Altnda çıkamadığım konularda da sizin gibi değerli arkadaşlar yardımcı oluyorlar. Application.visible=false nerelerde kullanılıyor ve ne işe yarıyor. Açıklarsanız sevinirim. İyi çalışmalar.
Genişletmek için tıkla ...

Bu kod çalışma kitabını görünmez yapıyor. Ben tavsiye etmiyorum bu kodun kullanılmasını ama isteyen arkadaşlar oluyor sizin gibi ondan dolayı yazıp gönderiyorum bunun yerine o dosyada boş bir sayfa üzerinde userform'u çalıştırmak daha mantıklı geliyor bana. Herkesin düşüncesi farklı.
Sizi bu kodlarla ilgili uyarmamın sebebi yardım etmek isteyen arkadaşların sizin dosyanızla ilgili düzenleme yapmak için öncelikle bu kodu pasif hale getirmek zorunda oldukları için yardım etmeden başka sorulara bakılmasıdır. Yani ne kadar çabuk dosya üzerinde işlem yapabilirlerse o kadar çabuk yanıt alırsınız. Bilmem anlatabildim mi_?
 
Çok teşekürler Hocam. Daha önce boş bir sayha eklemiştim. ve ThisWorkbook e Sheets("Sayfa1").Select kodunu eklemiştim. Dosyayı kapattığım zaman sayfa1 gittikten sonra dosyayı kapatıyordu. Dosyayı açacağım zanan bazen sayfa1 yerine başka sayfa görünüyordu onun için dosyanın gizlenmesini istemiştim. Dosya açılmadan devamlı istediğimiz sayfa görünecekse de olur. Devamlı aynı sayfanın görüntüleneceği bir kod eklerseniz. Daha önce eklediğiniz kodları değiştirebilirim.
 
yavuz829' Alıntı:
Çok teşekürler Hocam. Daha önce boş bir sayha eklemiştim. ve ThisWorkbook e Sheets("Sayfa1").Select kodunu eklemiştim. Dosyayı kapattığım zaman sayfa1 gittikten sonra dosyayı kapatıyordu. Dosyayı açacağım zanan bazen sayfa1 yerine başka sayfa görünüyordu onun için dosyanın gizlenmesini istemiştim. Dosya açılmadan devamlı istediğimiz sayfa görünecekse de olur. Devamlı aynı sayfanın görüntüleneceği bir kod eklerseniz. Daha önce eklediğiniz kodları değiştirebilirim.
Genişletmek için tıkla ...

Merhaba
Thisworkbook'a
Kod: 
Option Explicit
Private Sub Workbook_Open()
Sheets("Sayfa1").Select
End Sub
Bu kodu kopyalayın ve dosyayı başka bir sayfada kaydedip kapatın. Sonuçları gözlemleyin.
 
Hocam size son bir zahmet daha verebilirmiyim. Ekteki dosyada verileri girerek kayıtet butonuna bastığımız zaman verileri aktardıktan sonra bütün hücreleri ve ve çalışma kıtabını koruma altına alsın ve hücreler ve sayfalar devamlı korumalı olsun ayni zamanda UserFormdan verileri girmemize izin versin. Örneğin koruma şifresi 123 olabilir. Sebebine gelince yanlışlıkla hücrelerdeki verileri ve sayfaları silmememiz için. Yardımlarınız için teşekürler.
 
yavuz829' Alıntı:
Hocam size son bir zahmet daha verebilirmiyim. Ekteki dosyada verileri girerek kayıtet butonuna bastığımız zaman verileri aktardıktan sonra bütün hücreleri ve ve çalışma kıtabını koruma altına alsın ve hücreler ve sayfalar devamlı korumalı olsun ayni zamanda UserFormdan verileri girmemize izin versin. Örneğin koruma şifresi 123 olabilir. Sebebine gelince yanlışlıkla hücrelerdeki verileri ve sayfaları silmememiz için. Yardımlarınız için teşekürler.
Genişletmek için tıkla ...

Merhaba
Kod: 
Private Sub CommandButton1_Click()
Sheets("Sayfa2").Unprotect "123"
'Kodlarınızı bu araya yazın.
Sheets("Sayfa2").Protect "123"
End Sub
 
Private Sub CommandButton1_Click()
Sheets("Sayfa2").Unprotect "123"
On Error Resume Next
Dim i As Integer
For i = 6 To 32000
If (ActiveSheet.Cells(i, 1) = "") Then
ActiveSheet.Cells(i, 1) = CDate(ComboBox2)
ActiveSheet.Cells(i, 2) = ComboBox3.Text
ActiveSheet.Cells(i, 3) = TextBox3.Text * 1
ActiveSheet.Cells(i, 4) = TextBox4.Text * 1
ActiveSheet.Cells(i, 5) = TextBox5.Text * 1
ActiveSheet.Cells(i, 6) = TextBox10.Text * 1
ActiveSheet.Cells(i, 7) = TextBox11.Text * 1
ActiveSheet.Cells(i, 8) = TextBox13.Text * 1
ActiveSheet.Cells(i, 9) = TextBox6.Text * 1
ActiveSheet.Cells(i, 10) = TextBox7.Text * 1
ActiveSheet.Cells(i, 11) = ComboBox1.Text
MsgBox "Bilgi Eklendi !...", vbOKOnly + vbInformation, "Bilgi Ekleme"
CommandButton2_Click
TextBox8.Text = [L4]
TextBox9.Text = [L6]
ComboBox2.Text = [L7]
UserForm_Initialize
Exit Sub
End If
Next i
Sheets("Sayfa2").Protect "123"
End Sub

Hocam kodları bu şekilde değiştirdim olmadı.
 
yavuz829' Alıntı:
Private Sub CommandButton1_Click()
Sheets("Sayfa2").Unprotect "123"
On Error Resume Next
Dim i As Integer
For i = 6 To 32000
If (ActiveSheet.Cells(i, 1) = "") Then
ActiveSheet.Cells(i, 1) = CDate(ComboBox2)
ActiveSheet.Cells(i, 2) = ComboBox3.Text
ActiveSheet.Cells(i, 3) = TextBox3.Text * 1
ActiveSheet.Cells(i, 4) = TextBox4.Text * 1
ActiveSheet.Cells(i, 5) = TextBox5.Text * 1
ActiveSheet.Cells(i, 6) = TextBox10.Text * 1
ActiveSheet.Cells(i, 7) = TextBox11.Text * 1
ActiveSheet.Cells(i, 8) = TextBox13.Text * 1
ActiveSheet.Cells(i, 9) = TextBox6.Text * 1
ActiveSheet.Cells(i, 10) = TextBox7.Text * 1
ActiveSheet.Cells(i, 11) = ComboBox1.Text
MsgBox "Bilgi Eklendi !...", vbOKOnly + vbInformation, "Bilgi Ekleme"
CommandButton2_Click
TextBox8.Text = [L4]
TextBox9.Text = [L6]
ComboBox2.Text = [L7]
UserForm_Initialize
Exit Sub
End If
Next i
Sheets("Sayfa2").Protect "123"
End Sub

Hocam kodları bu şekilde değiştirdim olmadı.
Genişletmek için tıkla ...

Merhaba
Kod: 
Private Sub CommandButton1_Click()
ActiveSheet.Unprotect "123"
On Error Resume Next
Dim i As Integer
For i = 6 To 32000
If (ActiveSheet.Cells(i, 1) = "") Then
ActiveSheet.Cells(i, 1) = CDate(ComboBox2)
ActiveSheet.Cells(i, 2) = ComboBox3.Text
ActiveSheet.Cells(i, 3) = TextBox3.Text * 1
ActiveSheet.Cells(i, 4) = TextBox4.Text * 1
ActiveSheet.Cells(i, 5) = TextBox5.Text * 1
ActiveSheet.Cells(i, 6) = TextBox10.Text * 1
ActiveSheet.Cells(i, 7) = TextBox11.Text * 1
ActiveSheet.Cells(i, 8) = TextBox13.Text * 1
ActiveSheet.Cells(i, 9) = TextBox6.Text * 1
ActiveSheet.Cells(i, 10) = TextBox7.Text * 1
ActiveSheet.Cells(i, 11) = ComboBox1.Text
MsgBox "Bilgi Eklendi !...", vbOKOnly + vbInformation, "Bilgi Ekleme"
CommandButton2_Click
TextBox8.Text = [L4]
TextBox9.Text = [L6]
ComboBox2.Text = [L7]
UserForm_Initialize
Exit Sub
End If
Next i
ActiveSheet.Protect "123"
End Sub
Bu Kodu deneyin olmazsa bilgi verin dosya üzerinde deneyip kodu düzenliyelim
 
İhsan Tank' Alıntı:
Merhaba
Kod: 
Private Sub CommandButton1_Click()
ActiveSheet.Unprotect "123"
On Error Resume Next
Dim i As Integer
For i = 6 To 32000
If (ActiveSheet.Cells(i, 1) = "") Then
ActiveSheet.Cells(i, 1) = CDate(ComboBox2)
ActiveSheet.Cells(i, 2) = ComboBox3.Text
ActiveSheet.Cells(i, 3) = TextBox3.Text * 1
ActiveSheet.Cells(i, 4) = TextBox4.Text * 1
ActiveSheet.Cells(i, 5) = TextBox5.Text * 1
ActiveSheet.Cells(i, 6) = TextBox10.Text * 1
ActiveSheet.Cells(i, 7) = TextBox11.Text * 1
ActiveSheet.Cells(i, 8) = TextBox13.Text * 1
ActiveSheet.Cells(i, 9) = TextBox6.Text * 1
ActiveSheet.Cells(i, 10) = TextBox7.Text * 1
ActiveSheet.Cells(i, 11) = ComboBox1.Text
MsgBox "Bilgi Eklendi !...", vbOKOnly + vbInformation, "Bilgi Ekleme"
CommandButton2_Click
TextBox8.Text = [L4]
TextBox9.Text = [L6]
ComboBox2.Text = [L7]
UserForm_Initialize
Exit Sub
End If
Next i
ActiveSheet.Protect "123"
End Sub
Bu Kodu deneyin olmazsa bilgi verin dosya üzerinde deneyip kodu düzenliyelim
Genişletmek için tıkla ...

Hocam eklediğiniz kodu değiştirdim. Hücreleri ve sayfaları korumaya almiyor. Dosyaya uygularsanız iyi olur.
 
yavuz829' Alıntı:
Hocam eklediğiniz kodu değiştirdim. Hücreleri ve sayfaları korumaya almiyor. Dosyaya uygularsanız iyi olur.
Genişletmek için tıkla ...

Merhaba
Bu kodu kullanın
Kod: 
Private Sub CommandButton1_Click()
ActiveSheet.Unprotect "123"
On Error Resume Next
Dim i As Integer
For i = 6 To 32000
If (ActiveSheet.Cells(i, 1) = "") Then
ActiveSheet.Cells(i, 1) = CDate(ComboBox2)
ActiveSheet.Cells(i, 2) = ComboBox3.Text
ActiveSheet.Cells(i, 3) = TextBox3.Text * 1
ActiveSheet.Cells(i, 4) = TextBox4.Text * 1
ActiveSheet.Cells(i, 5) = TextBox5.Text * 1
ActiveSheet.Cells(i, 6) = TextBox10.Text * 1
ActiveSheet.Cells(i, 7) = TextBox11.Text * 1
ActiveSheet.Cells(i, 8) = TextBox13.Text * 1
ActiveSheet.Cells(i, 9) = TextBox6.Text * 1
ActiveSheet.Cells(i, 10) = TextBox7.Text * 1
ActiveSheet.Cells(i, 11) = ComboBox1.Text
MsgBox "Bilgi Eklendi !...", vbOKOnly + vbInformation, "Bilgi Ekleme"
ActiveSheet.Protect "123"
CommandButton2_Click
TextBox8.Text = [L4]
TextBox9.Text = [L6]
ComboBox2.Text = [L7]
UserForm_Initialize
Exit Sub
End If
Next i
End Sub
 
yavuz829' Alıntı:
Hocam koruma yapmiyor.
Genişletmek için tıkla ...

Hocam hücre biçimlendirmesinde korumayı işratlemediğim için yapmiyordu şimdi hücre korumasını yapiyor. Ancak çalışma kitabını korumasını yapmadığı için kendim çalışma kitabının korumasına 123 olarak şifre koyarak koruma yaptım. Bu sefer UserForm3 de TextBox1 Yeni müşteri adını yazıp yeni müşteri ekle butonunu tıkladığım zaman hata veriyor ve muşteri adına değil de ŞABLON(1) olarak yeni sayfa ekliyor.
 
Son düzenleme:
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst