sayfa korumalı iken bul ?

[nadirornek]

sayfa korumalı iken bul ve renklendir makrosu çalışmıyor sayfa korumalı iken bu işlemi nasl yapabiliriz ?


http://uploaded.to/?id=g5011x

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub Bul_Renklendir()
 Dim neyi As String, rng As Range, alan As Range
[COLOR="Blue"] ActiveSheet.Unprotect 1234[/COLOR]
 neyi = Application.InputBox("A1:D20 hücrelerinde, bulmak istediğiniz veri", , "")
 Set alan = Range("A1:D20")
 alan.Interior.ColorIndex = xlNone
 For Each rng In alan
  If StrConv(rng, vbProperCase) = StrConv(neyi, vbProperCase) Then
   biriktir = biriktir & rng & ":" & rng.Address(0, 0) & " Adresinde var" & Chr(10)
   rng.Interior.ColorIndex = 35
  End If
 Next rng
 [COLOR="Blue"]ActiveSheet.Protect 1234[/COLOR]
 MsgBox biriktir
 Set alan = Nothing
End Sub

 

[nadirornek]

Eline sağlık güzel oldu bu vesile ile tüm arkadaşların mevlit kandili kutlar saygı ve sevgiler sunarım