Dosyayı Kaydetme Şifresi

[vasifokur]

Bu sitede daha önce bulduğum ve kullandığım bir şifreleme var. Gayet de güzel çalışıyor. Bu şifreleme metodunu farklı şekilde uyarlayabilir miyiz ? Şöyleki ; Thisworkbook bölümünde bir şifre var.Buraya şifre girilecek.Programı kullanan kişi Sayfa1 deki B4 hücresine bu şifreyi girerse otomatik kayıt yapılacak. Aksi halde ise program kayıt yapmadan kapanacak. Bu mümkünse yardımlarınızı bekliyor ve teşekkür ediyorum.

 

[N.Ziya Hiçdurmaz]

yanıt

Şifrelerinizi metin karekteri olarak giriniz. ali veli gibi

 

[vasifokur]

Sn V.Basic For Applications ;
Öncelikle verdiğiniz bilgiye teşekkür ederim. Aradığım biraz farklı galiba. Thisworkbookta makroyu oluşturacağız.İf şifre bölümüne şifre atayacağız.Sayfa 1 deki B4 hücresine , atadığımız şifre yazılırsa program otomatik kayıt yapacak.Yoksa kayıt yapmadan kapanacak.

 

[N.Ziya Hiçdurmaz]

yanıt

Şifre ali siz istediğiniz gibi değiştiriniz.

Private Sub Workbook_BeforeSave _
(ByVal SaveAsUI As Boolean, Cancel As Boolean)
sifre = "ali"
If sifre = Sheets("Sayfa1").[b4].Value Then
MsgBox "Kayıt işlemi tamamlandı", vbInformation, _
"KAYIT BAŞARILI"
Else
MsgBox "Yanlış şifre girdiniz." & Chr(13) & _
"Dosya kaydedilemedi", vbCritical, "HATALI ŞİFRE"
Cancel = True
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End If
End Sub

 

[vasifokur]

Size çok çok teşekkür ederim. Benim için çok önemli olan bir sorundu. İyi akşamlar

 

[N.Ziya Hiçdurmaz]

Bişey değil.

 

[baydeniro]

Çok teşekkürler sayın N.Ziya Hiçdurmaz.