Soru VBA Çalışma Kitabı Şifreleme

[Erdogan3434]

Merhaba Hocalarım,

Bir konu hakkında bilgi/yardım rica ediyorum. Bir excel çalışma kitabım var. Kaydet ve kapat gibi bir buton oluşturmak istiyorum. Butona tıkladığımda "Bir sonraki açılışta kullanılmasını istediğiniz şifreyi yazınız" gibi bir şifre ekranı çıkmasını, şifrenin hatalı yazımını da engellenmesi için doğrulama penceresi için iki kere sormasını şartlar doğru olduğunda exceli şifrelemesini ve ardından kapatmasını eğer şifreler uyuşmazsa da "şifreler uyuşmuyor" gibi bir hata vermesini sağlayabilir miyiz? Şayet yapabilirsek bunu bazı çalışmalarıma dahil edebileceğim.

Saygılarımla.

 

[Muzaffer Ali]

Merhaba.

Sub Kaydet_Kapat()
    Dim Parola As String
    Parola = InputBox("Parola giriniz.")
    If Parola = InputBox("Parola tekrar giriniz.") Then
        Application.DisplayAlerts = False
        ThisWorkbook.SaveAs Filename:=ThisWorkbook.FullName, Password:=Parola
        Application.DisplayAlerts =True
        If Workbooks.Count = 1 Then
            Application.Quit
        Else
            ThisWorkbook.Close
        End If
    Else
        MsgBox "Parolalar uyuşmuyor."
        Exit Sub
    End If
End Sub

 

[Erdogan3434]

Merhaba.

Sub Kaydet_Kapat()
    Dim Parola As String
    Parola = InputBox("Parola giriniz.")
    If Parola = InputBox("Parola tekrar giriniz.") Then
        Application.DisplayAlerts = False
        ThisWorkbook.SaveAs Filename:=ThisWorkbook.FullName, Password:=Parola
        If Workbooks.Count = 1 Then
            Application.Quit
        Else
            ThisWorkbook.Close
        End If
    Else
        MsgBox "Parolalar uyuşmuyor."
        Exit Sub
    End If
End Sub

Hocam muhteşem kod. Ellerine sağlık cidden talebime birebir uyan harika bir çalışma. Tekrar teşekkür ederim.
Saygılarımla.

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.