sayın arkadaşlar kitaptaki çalışma sayfalarının hepsini birden , sayfa korumasını veya koruma kaldırma işlemini makro ile forumdan öğrendiğim kadarıyla yaptım kodlar şöyle
Sub sayfalarıkoru()
For Each sayfa In Worksheets
sayfa.Protect "dd11"
Next sayfa
End Sub
Sub Korumalarıkaldır()
t = InputBox("şifreyi girin", "SAYFA KORUMALI")
If t <> "dd11" Then End
For Each sayfa In Worksheets
sayfa.Unprotect "aa13"
Next sayfa
End Sub
arkadaşlar sayfa korunduktan sonra sadece kilidi açılmış hücreler seçilsin istiyorum araçlar>seçenekler>sayfayıkoru menüsünden kilitli hücreleri seç onay kutusunu temizliyorum makro ile sayfayı koruyunca sadece kilitli hücreler seçiliyor fakat dosyayı kaydedip kapatıp tekrar açınca sayfa koruması olduğu halde kilitlli hücreler seçilebiliyor bunu nasıl önlerim teşekkürler.
Sub sayfalarıkoru()
For Each sayfa In Worksheets
sayfa.Protect "dd11"
Next sayfa
End Sub
Sub Korumalarıkaldır()
t = InputBox("şifreyi girin", "SAYFA KORUMALI")
If t <> "dd11" Then End
For Each sayfa In Worksheets
sayfa.Unprotect "aa13"
Next sayfa
End Sub
arkadaşlar sayfa korunduktan sonra sadece kilidi açılmış hücreler seçilsin istiyorum araçlar>seçenekler>sayfayıkoru menüsünden kilitli hücreleri seç onay kutusunu temizliyorum makro ile sayfayı koruyunca sadece kilitli hücreler seçiliyor fakat dosyayı kaydedip kapatıp tekrar açınca sayfa koruması olduğu halde kilitlli hücreler seçilebiliyor bunu nasıl önlerim teşekkürler.