Dosyanızı Kaydedilmeye Karşı Koruma

    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
        If SaveAsUI Then
            Cancel = True'False farklı kaydede izin verir.
        End If
    End Sub

    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
        If SaveAsUI Then
        parola = InputBox("Şifreyi giriniz:", "Şifre Korumalı Kaydetme")
        If parola <> "12345" Then
            Cancel = True 'False farklı kaydede izin verir.
            MsgBox "Parola hatalı olduğundan kaydetme izni verilmedi   " & vbCr & _
            "Kayıt yetkilisi değilseniz doaysyı kaydedemezsiniz   ", _
            vbExclamation, "www.ExcelVBA.Net"
        End If
        End If
    End Sub