Onay istemeden kayıt etmek.

[hezarpare]

Üstadlar bir sorum vardı. Kullandığım exxcel kitabının çıkışta kayıt edilsinmi sorusunu sormadan otomaatik olarak kayıt etmesini istiyorum. Bunu nasıl yapabilirim? Yardımcı olursanız sevinirim.

 

[N.Ziya Hiçdurmaz]

yanıt

ThisWorkbook'a yazılacak

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
End Sub

 

[parametre]

Slm peki bu dosyayı sadece biz kaydetmek için şifreli kayıt etme olanagı varmıdır ?

 

[Civan Jack]

Exceli sizden başkası kaydedemesin.

Private Sub Workbook_BeforeSave _
(ByVal SaveAsUI As Boolean, Cancel As Boolean)
sifre = InputBox("Özel bir döküman olduğundan lütfen şifre giriniz.", _
"Yetkili Kişi", "Kaydetmek İçin Şifre girin")
If sifre = "1111" Then 'Örnek Şifre olarak 1111
MsgBox "Kayıt işlemi tamamlandı", vbInformation, _
"KAYIT BAŞARILI"
Else
MsgBox "Yanlış şifre girdiniz." & Chr(13) & _
"Dosya kaydedilemedi", vbCritical, "HATALI ŞİFRE"
Cancel = True
End If
End Sub

Şifre: 1111

 

[izcik]

Harika bir kod değerli Civan Jack

 

[izcik]

Yalnız yukarıdaki

Özel bir döküman olduğundan lütfen şifre giriniz

'Örnek Şifre olarak 1111


uyarıları ne zaman çıkıyor?

 

[Civan Jack]

Kod daki o bölümü ('Örnek Şifre olarak 1111) silebilirsiniz.
Resme bir bakınız.

 

[Orion1]

Yalnız yukarıdaki

Özel bir döküman olduğundan lütfen şifre giriniz

'Örnek Şifre olarak 1111


uyarıları ne zaman çıkıyor?

Dosyayı kaydetmek istediğiniz zaman çıkar.
ama güvenlik düzeyini yükseğe çekerek.Bu şifreyi atlatmak çok kolaydır.

 

[izcik]

Olsun değerli Evren Gizlen. Mevcut haliyle bile şahsen işime yarar. Örnek benden başka stok dosyasına bakmak isteyen birisi, sağ alt köşedeki entere basacağına 3 e basabilir. Ve çıkarken de yanlışlıkla kaydeder. Daha önce buna benzer şeyler başıma geldiği için iyi oldu değerli Civan Jack'ın kodu. Bütün arkadaşlara teşekkürler. Neler öğrendik burada.

 

[Civan Jack]

Faydalı olduğuma sevindik Sn. İzcik.

 

[parametre]

verdiğiniz bilgiye tesekkur ederiz

 

[thegreyone]

teşekkürler elinize sağlık