makro makroyu engelliyor çözüm nedir

[meda58]

Sub FormulKoru()
ActiveSheet.Unprotect "123"
Range("A1:AR80").Locked = False
Range("A1:AR80").SpecialCells(xlCellTypeFormulas, 23).Locked = True
Range("A1:AR80").SpecialCells(xlCellTypeFormulas, 23).FormulaHidden = True
ActiveSheet.Protect "123", DrawingObjects:=True, Contents:=True, Scenarios:=True
MsgBox "Sayfalar Korumaya Alındı !"
End Sub

arkadaşlar yukardaki makroyu devreye soktugum zaman aşagıdaki makroda Selection.Interior.ColorIndex = 6 satırında hata veriyor bir türlü çözemedim yardımlarınızı bekliyorum şimdiden çok teşekkürler

Option Explicit

Sub SEÇİMİ_AKTAR()
Selection.Copy Sheets("Sayfa1").Range("A1048576").End(3).Offset(1)
Selection.Interior.ColorIndex = 6
End Sub

 

[halit3]

Sub FormulKoru()
ActiveSheet.Unprotect "123"
Range("A1:AR80").Locked = False
Range("A1:AR80").SpecialCells(xlCellTypeFormulas, 23).Locked = True
Range("A1:AR80").SpecialCells(xlCellTypeFormulas, 23).FormulaHidden = True
ActiveSheet.Protect "123", DrawingObjects:=True, Contents:=True, Scenarios:=True
MsgBox "Sayfalar Korumaya Alındı !"
End Sub

arkadaşlar yukardaki makroyu devreye soktugum zaman aşagıdaki makroda Selection.Interior.ColorIndex = 6 satırında hata veriyor bir türlü çözemedim yardımlarınızı bekliyorum şimdiden çok teşekkürler

Option Explicit

Sub SEÇİMİ_AKTAR()
Selection.Copy Sheets("Sayfa1").Range("A1048576").End(3).Offset(1)
Selection.Interior.ColorIndex = 6
End Sub

Buada kodu çalıştırırken aktif sayfanın korumasını açmak gerekiyor sonra kodu çalıştırıp işlem bittikten sonra sayfayı yeniden korumak gerekiyor aşağıdaki kırmızı yerlere dikkat edin

Sub SEÇİMİ_AKTAR()
[COLOR=red]ActiveSheet.Unprotect "123"
[/COLOR]Selection.Copy Sheets("Sayfa1").Range("A10").End(3).Offset(1)
Selection.Interior.ColorIndex = 6
[COLOR=red]ActiveSheet.Protect "123", DrawingObjects:=True, Contents:=True, Scenarios:=True[/COLOR]
End Sub

 

[meda58]

korumayı kaldırmadan işlem yapmak istiyorum bunun yolu yokmu

 

[meda58]

arkadaşlar korumayı kaldırmadan işlem yapmanın hiç bir yolu yokmu

 

[revelte]

Korumayı kaldırmadan değişiklik yapamazsın. Tek yol Halit Bey'in dediği gibi korumayı kaldırıp işlemi yapıp tekrar korumayı aktif hale getirmek.
Zaten farklı bir ihtimal olsa, parolalı sayfa korumasının anlamı kalmaz.

 

[Korhan Ayhan]

Selamlar,

Ne kadar işinize yarar ama şöyle bir çözüm işinize yarayabilir. Koruma anında hücreleri biçimlendir seçeneğinide aktif hale getirin.

ActiveSheet.Protect "123", DrawingObjects:=True, Contents:=True, Scenarios:=True, [COLOR=red]AllowFormattingCells:=True[/COLOR]

 

[meda58]

korhan ayhan kardeş harika olmuş tam istediğim gibi çok çok teşekkürler