- Katılım
- 18 Şubat 2008
- Mesajlar
- 44
- Excel Vers. ve Dili
- türkçe
Değerli hocalarım....
uygulamış olduğum bir makro var...uygulanan bu hücrelerin kilitlenmesini istiyorum...kilitleme işlemini ise Araçlar\Koruma\Sayfayı koru yapıyorum fakat makro hata veriyor....Yardımcı olurmusunuz
Saygılarımla...
İyi çalışmalar...
Uygulanan makro
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("d4:d48, l4:l39")) Is Nothing Then Exit Sub
bugun = Format(Now, "hh:mm;@")
Target.Offset(0, 1) = bugun
End Sub
uygulamış olduğum bir makro var...uygulanan bu hücrelerin kilitlenmesini istiyorum...kilitleme işlemini ise Araçlar\Koruma\Sayfayı koru yapıyorum fakat makro hata veriyor....Yardımcı olurmusunuz
Saygılarımla...
İyi çalışmalar...
Uygulanan makro
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("d4:d48, l4:l39")) Is Nothing Then Exit Sub
bugun = Format(Now, "hh:mm;@")
Target.Offset(0, 1) = bugun
End Sub