Sayfa korumaya hücre biçimlendirmeyi dahil edince makro çalışmıyor

[mozakay]

Arkadaşlar merhaba.
Koşula bağlı olarak hücre biçimlendirmesi yapan makrolar var.
Sayfayı korumaya aldığımda hücre biçimlendirmesini de dahil ettiğimde bu makrolar hata veriyor.
Kullanıcıların dosyada hücre biçimlendirmesi yapmasını istemiyorum. Hücre içine kopyala yapıştır yaptıklarında hücre biçimi bozuluyor.
Kopyala yapıştır yapabilsinler ama hücre biçimleri korunsun istiyorum

 

[mozakay]

Bu konuda bilgisi olan yok mu?

 

[mozakay]

Arkadaşlar konuyu güncel tutmak için tekrar yazıyorum. Bu korumaya ihtiyacım var.

 

[PLİNT]

Merhaba
Kodlarınızın arasına koruma açma kapama koysanız olmuyormu?

 Sub macro1()
Sheets("Sayfa1").Unprotect "123"
'....
'....kodlarınız
'......
Sheets("Sayfa1").Protect "123"
End Sub

 

[mozakay]

Koruma şifresini değiştirdiğimizde sorun yaşamaz mıyız?

 

[mozakay]

Sayın plit bunu deneyip sonucu paylaşıcam.

 

[PLİNT]

Koruma şifresini değiştirdiğimizde sorun yaşamaz mıyız?

123 yerine kendi parolanızı (varsa)yazacaktınız, " " tırnak içinde yazın
parola yoksa

Sheets("Sayfa1").Unprotect

şeklinde

Yalnız kullanıcılara izin verdiğiniz durumları koruma ekleme bölümünde virgül aralarına eklemelisiniz,

 Sheets("Sayfa1").Protect "123", , , ,

 

[mozakay]

Sayın Plint, burada koşul sağlanmaması halinde de hücre biçimlendirme var.
o nedenle iş yaramadı. Sayfa korumayı koşul sağlanması halinde aç dediğimde koşulun sağlanmadığı hallerde hata veriyor.

makrolardan 1 tanesinin kodları aşağıdaki gibi. bir incelerseniz.

If Intersect(Target, Range("B7:B65536")) Is Nothing Then GoTo 10


Set BUL = Sheets("TAKİP").Range("G:G").Find(Target, , , xlWhole)
If Not BUL Is Nothing Then
End If
With Target
If .Count > 1 Or .Column <> 2 Then Exit Sub

[COLOR="Red"].Font.Color = vbBlack 
[/COLOR].Interior.ColorIndex = 2
'.Interior.ColorIndex = xlNone
.Font.Size = 11
.Font.Bold = True
.Font.Italic = False
.Font.Underline = False
If Application.CountIf(Worksheets("TAKİP").Columns(2), .Value) > 0 Then
[COLOR="Blue"]sheets("KAYIT").Unprotect"123"
[/COLOR]'.Font.Color = vbGreen
'.Font.Color = vbBlack
'.Font.Color = vbRed
.Font.Color = vbBlack
'.Interior.ColorIndex = 1
.Interior.ColorIndex = 3
.Font.Size = 11
.Font.Bold = True
.Font.Italic = False
.Font.Underline = False
[COLOR="blue"]Sheets("KAYIT").Protect"123"
[/COLOR]MsgBox Worksheets("TAKİP").Columns(2).Find(.Value).Offset(, 2).Value

End If
End With
10

'MPC ye göre takip

 

[PLİNT]

Yanlış yere koymuşsunuz,
Aşağıdaki mavi Koşul sağlanırsa kodlar hemen çalışmaya başlayacağı için;
kodlarınız içindeki; aşağıdaki koşulun hemen altına yazın.

'..........kodlarınız
With Target
[COLOR="Blue"]If .Count > 1 Or .Column <> 2 Then Exit Sub[/COLOR]
[COLOR="Red"]Sheets("KAYIT").Unprotect "ŞİFRENİZ"  [/COLOR]
.Font.Color = vbBlack 
.Interior.ColorIndex = 2

'..........

Korumayı tekrar yapan bölümü "End Sub" un üstüne yazın

 Sheets("KAYIT").Protect"123"

 

[mozakay]

tamamdır. koruma çalışıyor.
yazı karakteri, font rengi gibi değişiklikler yapılamıyor.
ancak kopyala yapıştır ile hücre yapısı bozuluyor.
örnek:
birleştirilmiş bir hücreyi kopyalayıp "enter" tuşuna basarak yapıştırdığınızda hücre yapısı değişip birleştirilmiş hücre oluyor. kullanıcılar bu hatayı çok yapıyor. oysaki sadece değerleri yapıştırsa bu sorun olmayacak. aynı şekilde bir sutunda koşullu biçimlendirme var. o sütundaki bir hücre de aynı yöntemle başka yere yapıştırılırsa. koşullu biçimlendirme özelliklerini alıyor.
kopyala yapıştır özelliğini devre dışı bırakma şansım yok. kopyala yapıştır yapılabilmeli. ancak yapıştırırken sadece hücre değeri yapıştırılabilmeli.
bunun için bir çözüm varmıdır acaba.

 

[PLİNT]

Merhaba
Kesin çözüm sağlayacağını sanmıyorum ama ek örnekteki gibi;
Kullanıcılara izin verilen bölüme koruma konulmaz, korumalı bölümde kopyalama
yapılıp yapıştırılacak hücre seçildiğinde "Enter" a fırsat kalmadan yapıştırma işlemi
yapılabilir.
http://s6.dosya.tc/server5/anlmdz/kopyalama.zip.html

 

[mozakay]

İşe yaradı.
Sayfa veriyi nereden kopyalarsanız kopyalayın sayfa üzerine yapıştırırken sadece değerleri yapıştırıyor. Benim de istediğim buydu. Tekrar tekrar tekrar teşekkürler.

 

[PLİNT]

İşe yaradı.
Sayfa veriyi nereden kopyalarsanız kopyalayın sayfa üzerine yapıştırırken sadece değerleri yapıştırıyor. Benim de istediğim buydu. Tekrar tekrar tekrar teşekkürler.

Rica ederim.
Umarım işinize yarar aslında açıklamalı örnek bir dosya ekleseniz; üzerinde
isteklerinize uygun daha iyi bir uygulama yapılabilir diye düşünüyorum.
Yukarıdaki örnekte kodlar; mesela kullanıcı kopyalama yaptıktan sonra çoklu seçim yaptığında kopyalanan veri seçilen tüm hücrelerede yapıştıracak şekilde
bu uygunmu değilmi bilmiyoruz.Sorun çıkarsa örneğinizide ekleyiniz.