sayfa koruma

[alicanxy58]

20 sayfalı bir excell dosyam var. Sayfalar korumalı.Zaman zaman dosyalarda değişiklik yapıyorum. her defasında sayfa korumalarını kaldırıyor ve yeniden sayfa koruma işlemini yapıyorum. Ancak bazen sayfa korumasını yapmayı unutuyorum. Benim istediğim sayfada çalışma yaptıktan sonra unutarak koruma yapmadan çıkmak istersem beni uyarsın ve koruma şifre penceresi açılsın. Yardımlarınıza şimdiden teşekkür ederim.

 

[BG]

Merhaba

Forumda "sayfa koruma" gibi arama yaparsanız bir sonuç görebilirsiniz, bunlara bir örnek aşağıdaki linktedir.

http://www.excel.web.tr/showthread.php?t=41037&highlight=sayfa+koruma

iyi çalışmalar dilerim.

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub SKORU()
[IV1] = ""
For S = 1 To Sheets.Count
Sheets(S).Protect 123
Next
End Sub
Sub KORUAC()
For S = 1 To Sheets.Count
Sheets(S).Unprotect 123
Next
[IV1] = 1
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If [IV1] = 1 Then
MsgBox "SAYFAYI KORUMAYI UNUTTUNUZ", vbInformation
[A1].Select
End If
End Sub

 

[alicanxy58]

sayın,H.Ziya Hiçdurmaz ve Brain cevabınıza teşekkür ederim. gönderdiğiniz kodları ve dosyayı kullandım ancak benim istediğim cevabı göremedim. Tam olarak istediğim; korumalı herhangi bir sayfada korumayı kaldırdıktan sonra diğer sayfaya geçmek, yada dosyayı kapatmak istediğimde bulunduğum sayfayı tekrar koruma yapmayı unuttuğumu uyarsın istiyorum.