Sayfa Korumalı, Kilitli Hücreleri Makro İle Açma

[SanaLSukuL]

Bu konu "Sayfa Korumalı Kilidi Açık Hücreleri Makro İle Kilitleme" konusunun devamıdır.
Sn.COST_CONTROL'un yardımıyla sayfa korumalı olsa dahi hücreleri CommandButton ile kilitlettirdi.
Yanlışlıkla hatalı girilen bir veriyi düzeltmek için hücre kilitlerini açmak gerekirse dedim ve user form yaptım. Şifre ile user formu açtık. User formda kilitlediğimiz hücrelerin kilidini açacak CommandButton lar mevcut.
Hücreleri kilitlerken

Private Sub CommandButton1_Click()
ActiveSheet.Unprotect Password:="q789520p"
Worksheets("turkce").Range("D9:D38").Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect Password:="q789520p"
End Sub

Hücreleri Açmak için ben kodda oynama yaptım galiba çalıştı

Private Sub CommandButton1_Click()
ActiveSheet.Unprotect Password:="q789520p"
Worksheets("turkce").Range("D9:D38").Select
Selection.Locked = False
Selection.FormulaHidden = True
ActiveSheet.Protect Password:="q789520p"
End Sub

bu kod doğru mu yanlış mı?
Çalışmam ektedir.
Sayfa koruma şifresi : q789520p
Kullanıcı Adı : 1
Kullanıcı Şifresi : 1
User form Turkce sayfasında KİLİT AÇ da
Bir de user formların X kapat düğmelerinden kapanmaması nasıl olur, Arkadaş yanlış yazılan kullanıcı şifrelerine 3 hak vermiş bu 3 hakkınıda yanlış yapan kullanıcının excel sayfası komple kapansın. Yardımcı olursanız sevinirim Teşekkürler.

 

[Tankut SAZLI]

bu kod doğru mu yanlış mı?

Kodlarınız sizinde dediğiniz gibi çalışıyor,sorun görmedim.

Arkadaş yanlış yazılan kullanıcı şifrelerine 3 hak vermiş bu 3 hakkınıda yanlış yapan kullanıcının excel sayfası komple kapansın. Yardımcı olursanız sevinirim Teşekkürler.

Bunu deneyin;

Private Sub CommandButton1_Click()
    Static HATA
    If TextBox1 = "1" And TextBox2 = "1" Then
    Unload Me
    UserForm2.Show
    Exit Sub
    End If
    HATA = HATA + 1
    HAK = 3 - HATA
    MsgBox "HATALI KULLANICI ADI YADA ŞİFRE GİRİŞİ !" & vbCrLf & vbCrLf & _
    "KALAN GİRİŞ HAKKINIZ :  " & HAK, vbCritical
    With TextBox1
    .SetFocus
    .SelStart = 0
    .SelLength = Len(TextBox1)
    End With
    If HAK = 0 Then
    MsgBox "BU İŞLEM İÇİN YETKİNİZ BULUNMAMAKTADIR !", vbInformation
    Unload Me
    ActiveWorkbook.Close
    End If
End Sub

Bir de user formların X kapat düğmelerinden kapanmaması nasıl olur

Aşağıdaki konudaki örnekleri incelediğinizde sorununuzun çözümüne ulaşacaksınız.
USERFORM GÖRÜNÜMLERİ

 

[SanaLSukuL]

Sn.Tankut SAZLI teşekkürler

 

[SanaLSukuL]

 Bir de user formların X kapat düğmelerinden kapanmaması nasıl olur 

Aşağıdaki konudaki örnekleri incelediğinizde sorununuzun çözümüne ulaşacaksınız.

çok güzel çalışma emeğinize sağlık Sn. Tankut SAZLI

 

[Tankut SAZLI]

Eyvallah...

 

[SanaLSukuL]

Sn.Tankut SAZLI
verdiğiniz kodda

ActiveWorkbook.Close

Sadece aktif çalışma sayfası kapatılıyor, komple exceli kapatmak için hangi kodu yazmamız gerekiyor acaba.

 

[Tankut SAZLI]

Sn.Tankut SAZLI
verdiğiniz kodda

ActiveWorkbook.Close

Sadece aktif çalışma sayfası kapatılıyor, komple exceli kapatmak için hangi kodu yazmamız gerekiyor acaba.

Pardon,karıştırmışım,epeydir Excel-VBA dan çok VB6 ile ilgileniyorum,ondan dalmışım.

 Application.Quit

şeklinde değiştirin.

 

[SanaLSukuL]

çook teşekkür ederim işte şimdi sayenizde istediğim gibi oldu.
o dediğiniz VB6 yı bir türlü bulamadım ah bir bulsam
bende internetten verilen VB6 görüntülü eğitim videoları ile başlamaya çalışacağım ama bir türlü bulamadım.

 

[Tankut SAZLI]

Bulamadığınız nedir?Programın kendisimi yoksa görsel eğitimimi?
Programın kendisi ise yasal olmamasına rağmen nettte yada forum sayfalarında bulabilirsiniz.Eğitim kısmına gelince,aşağıdaki linklerden başlayabilirsiniz.
http://www.bilgisayarogren.com/vbdersler.htm
http://www.kentmerkezi.com/ebook.htm

 

[SanaLSukuL]

VB6 yı bulamadım ama forumlarda varsa bulurum linkler içinde tşk ler.

 

[SanaLSukuL]

Kod doğru çalışıyor

Private Sub CommandButton1_Click()
ActiveSheet.Unprotect Password:="q789520p"
Worksheets("turkce").Range("D9:D38").Select
Selection.Locked = False
Selection.FormulaHidden = True
ActiveSheet.Protect Password:="q789520p"
End Sub

Hücrenin koruma kilidini açıyor ama tutuyor hücre korumadaki GİZLİ seçeneğini işaretletiyor bu kod.
GİZLİ seçeneğini, aç dediğimde işaretlememesi ne yapmalıyız kodda acaba yardımcı olurmusunuz.

 

[Tankut SAZLI]

Tam anlamadım ama şöyle bir şey yaptım.Bir inceleyin isterseniz.Üstüste konmuş iki butona dikkat edin.

 

[SanaLSukuL]

tşk ederim güzel bir çalışma.
Sn. Tankut SAZLI imzanızdaki sayfaya üye oldum ama aktifleştirme üyeliği gelmedi hala
inşllah bu mesaja mod lar bir şey demez. yardımlar için teşekkürler

 

[Tankut SAZLI]

İstediğiniz olmuşmu.
Modların birşey diyeceğini sanmıyorum,sonuçta paylaşımın ve eğitimin yapıldığı her forum mübahtır. )

 

[SanaLSukuL]

Sn. Tankut SAZLI aktifleştirme maili gelmemiş
Excel de yaptığınız yardımlar içinde tşk ler

 

[Tankut SAZLI]

Özelinizi kontrol edin.Konuyla ilgili bilgi özelinize gönderilmiştir.