If Sheets("VeriSayfası").ProtectContents = True Then Sheets("VeriSayfası").Unprotect "şifre" 'sayfa korumasını kaldır
' bu aralıga _
yapılacaklar işlemler
Sheets("VeriSayfası").Protect "şifre" 'sayfa korumasını tekrar ekler
excel sayfasını gizleyip şifreleyebilirsiniz işlem yaparken açıp işlem bitince yeniden kilitleyebilirsiniz