Formdan çıkınca sayfa koruması

[asav75]

Sevgili ustadlar yapmak istediğim şey;
Userformu kapatınca Sayfa 1 de korumanın aktif olması.
Şimdiden teşekkürler.

 

[Orion1]

Aşağıdaki kodu userform'un kod bölümüne Yapıştırınız.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Sheets("Sayfa1").Protect
End Sub