Kaydet - Farklı Kaydet (Şartlı)

[vivident]

Merhaba

Ekteki dosyamda kaydet ve farklı kaydet işlemi yapınca, userform çıkıyor, eğer şifre doğru ise kayıt ediyor, şifre yanlış ise hiçbirşey yapmıyor

Şifre doğru ise kısmında ; kayıt ediyor lakin Userform6.hata veriyor. Nerede yanlış yapıyorum

Thisworkbook kısmında

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
UserForm6.Show
Cancel = True
End Sub

Userform kısmında kodları mevcut. Dosyam ektedir

Option Explicit
Private Sub CommandButton1_Click()
    If TextBox5 = "" Then
        MsgBox "Lütfen şifrenizi giriniz !", vbExclamation
        TextBox5 = ""
        TextBox5.SetFocus
    ElseIf TextBox5 <> 123 Then
        MsgBox "Hatalı şifre girdiniz !", vbExclamation
        TextBox5 = ""
        TextBox5.SetFocus
        UserForm6.Hide
        Sheets("AAA").Select
    ElseIf TextBox5 = 123 Then
        MsgBox "Girişiniz onaylanmıştır", vbInformation
        ActiveWorkbook.Save
        MsgBox "Kaydetme işlemi yapılmıştır", vbInformation
        Unload Me
    End If
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then Cancel = True
End Sub

 

[Korhan Ayhan]

Çalışmanıza boş bir modül ekleyin ve aşağıdaki kodu uygulayın.

Public Kontrol As Boolean

Kaydetme bölümündeki kodu aşağıdaki gibi değiştirin.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Kontrol <> True Then
        UserForm6.Show
        Cancel = True
    End If
End Sub

GİRİŞ butonuna ait kodu aşağıdaki gibi değiştirip deneyiniz.

Private Sub CommandButton1_Click()
    If TextBox5 = "" Then
        MsgBox "Lütfen şifrenizi giriniz !", vbExclamation
        TextBox5 = ""
        TextBox5.SetFocus
    ElseIf TextBox5 <> 123 Then
        MsgBox "Hatalı şifre girdiniz !", vbExclamation
        TextBox5 = ""
        TextBox5.SetFocus
        UserForm6.Hide
        Sheets("AAA").Select
    ElseIf TextBox5 = 123 Then
        MsgBox "Girişiniz onaylanmıştır", vbInformation
        Kontrol = True
        ActiveWorkbook.Save
        Kontrol = False
        MsgBox "Kaydetme işlemi yapılmıştır", vbInformation
        Unload Me
    End If
End Sub

 

[vivident]

Korhan bey teşekkür ederim