Korumalı+Macro içeren sayfalarda çalışılan satırın renklenmesi

[BUL_TR]

Korumalı+Macro içeren sayfalarda çalışılan satırın renklenmesi

LeventM;

http://www.excel.web.tr/showthread.php?t=12495&highlight=aktif+sat%FDr+renkli+ama

sayfasında:
"...mantık şu koda ilk satır olarak sayfa korumasını kaldıran, son satır olarakta korumayı tekrar koyan kodlar ilave edebilirsiniz." demiş...

Kodun aşağıdaki gibi olduğunu söylersem korumanın konması+kaldırılması için gerekli kodu ekleme şansınız olur mu?
----------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 0
ActiveCell.EntireRow.Interior.ColorIndex = 6
End Sub
-----------------------------
Teşekkürler...

 

[mehmett]

Aşağıdaki gibi deneyin; (Sayfa şifresi 123)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[COLOR=red]ActiveSheet.Unprotect "123"
[/COLOR]Cells.Interior.ColorIndex = 0
ActiveCell.EntireRow.Interior.ColorIndex = 6
[COLOR=red]ActiveSheet.Protect "123"
[/COLOR]End Sub

 

[Ali]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Dim sayfa As Object
For Each sayfa In Sheets
sayfa.Unprotect Password:="[COLOR=red]123[/COLOR]"
Cells.Interior.ColorIndex = 0
ActiveCell.EntireRow.Interior.ColorIndex = 6
sayfa.Protect Password:="[COLOR=red]123[/COLOR]"
Next sayfa
End Sub

123 yerine siz kendi sayfa korumanızı yazarak deneyin

 

[Ali]

Sn Mehmet hızlısınız şifreleri bile aynı vermişiz 123

 

[mehmett]

Sn Mehmet hızlısınız şifreleri bile aynı vermişiz 123

Siz kodları üç satır fazla yazdığınız için zaman kaybetmişsiniz, yoksa hızımız aynı sayılır

Örnek şifreler de genellikle 123 olur nedense.

 

[BUL_TR]

Ne diyeyim....
Teşekkürden başka elimden birşey gelmiyor... Yanlız ufak bir pürüz çıkardı ama olsun o kadar kusur (excel'in) kadı kızında da olur