Sayfayı korumaya alınca Makro Hata veriyor

[wezyr]

iyi çalışmalar hazırladığım çalışmada çalışma sayfasını korumaya aldığımda oluşturmuş olduğum sayfayı kopyala butonuna tıkladığımda makro önce çalışıyor ensonda makro hatası veriyor(runtime 1004) dosyama bir bakarsanız sevinirim.

 

[monelogg]

Merhaba, eğer aynı adla oluşturulmuş bir başka sayfa yoksa çalışıyor ama aynı isimli sayfalara izin vermediğinden sonraki denemelerinizde hata alıyorsunuz. Aşağıdaki kodu dener misiniz?

Sub klasikkopya()
'
' Makro1 Makro
'

'
Sheets("KLASIK ANA").Copy After:=Sheets(4)
sayac = 0
For i = 1 To Sheets.Count
If Sheets(i).Name = Sheets("KLASIK ANA").Range("BJ1").Value Then
sayac = sayac + 1
End If
Next

If sayac = 0 Then
ActiveSheet.Name = Sheets("KLASIK ANA").Range("BJ1").Value
Range("BJ1").Select
Selection.ClearContents
Sheets("KLASIK ANA").Select
Exit Sub
Else
snc = InputBox(Sheets("KLASIK ANA").Range("BJ1").Value & " sayfası daha önceden oluşturulmuş. Farklı bir adla deneyin.")
ActiveSheet.Name = snc
Range("BJ1").Select
Selection.ClearContents
Sheets("KLASIK ANA").Select
Exit Sub
End If
End Sub

Not: Çok incelemedim ama yukarıdaki kod bende sorun vermedi, eğer koruma ile ilgili bir sıkıntıyla karşılaşırsanız aşağıdaki konuya bakmanızı öneririm.
http://www.excel.web.tr/f48/makroya-sayfa-korumasyny-kaldyrma-ve-ekleme-kodu-t73761.html

 

[wezyr]

teşekkür ederim kodunuz gayet güzel çalışıyor. sorunum yine devam etti ama hatayı çözdüm. sayfa kopyalandığı zaman en son sayfanın adını oluşturduğuğum hüçreye geldiği için bu hatayı almaaya devam ediyormuşum. en son seçili hüçreyi kilitli olmayan bir hüçre ile değiştirdiğim zaman sorunum çözüldü.
ilginiz için tekrardan teşekkürler...iyi çalışmalar dilerim..

 

[wezyr]

kusura bakmayın yine aynı hatayı alıyorum sanırım office 2010 dan kaynaklanıyor.

Sub temiz()
'
' temiz Makro
'

'
    Rows("11:70").Select
    Range("B11").Activate
    Selection.RowHeight = 11
    Range("F11:BD70").Select
    Selection.ClearContents
    Range("G6:BD9").Select
    Selection.ClearContents
    Range("AJ3:AQ3").Select
    ActiveCell.FormulaR1C1 = ""
    Range("C3:L3").Select
    ActiveCell.FormulaR1C1 = ""
    Range("AY3:AZ3").Select
    ActiveCell.FormulaR1C1 = ""
    Range("C3:L3").Select
End Sub

ve

Sub goster1()
For Each t In Range("C11:C70").Cells
If t.Value = "" Then 'boş hücreleri gösterir
t.EntireRow.Hidden = False
End If
Next t
End Sub

Sub gizle1()
For Each t In Range("C11:C70").Cells
If t.Value = "" Then 'boş hücreleri gizler
t.EntireRow.Hidden = True
End If
Next t
End Sub

makrolarında hata almaya devam ediyorum
temizle makrosunda 1004 (range sınıfının Rowheight özelliği kullanılamıyor)
gizle makrosunda 1004 (range sınıfının hidden özelliği kullanılamıyor)

Sayfa koruma şifreleri 2008ece2008

 

[Emir Hüseyin Çoban]

. . .

Sayfa koruması varken hücrelere fiziki olarak müdahele edemezsiniz.
O yüzden kodların başına önce sayfa korumasını kaldır kodunu ekleyin. Kodlar çalışmasını bitirince tekrar korumaya al kodlarını ilave edin.

Sub gizle1()
ActiveSheet.UnProtect Password:="2008ece2008" '[COLOR="Green"] korumayı kaldır[/COLOR]
[COLOR="Green"]' Kodlarınız[/COLOR]
'
ActiveSheet.Protect Password:="2008ece2008" '[COLOR="Green"] koru[/COLOR]
End Sub

. . .

 

[lider22]

Arkadaşlar güzel açıklamışlar. Bir yöntemde benden gelsin
Öncelikle makronun işlem yaptığı yani dğeiştirdiği hücrelere sağ tıklayın. Koruma sekmesinden kilitli işaretini kaldırın. Şimdi sayfanızı koruyun ve makronuzu çalıştırın

 

[hımmmmmmmm]

wezyr kardeşim;
senin macrolarının çalışması, korumaya alınmamış sayfalar için geçerli...
sayfayı korumaya alırsan hücreler kiltli olduğundan şu an için macroların hücrelere işlem yapamaz...

bu nedenle:
1. sayfalrını korumaya alacaksan, her modüldeki macrolarının başına ve bitimine Hüseyin ÇOBAN hocanın yazdığı formülü kullan...

2.yada tüm sayfalarının korumasını manuel olarak kaldır...

macronun korumalı sayfalarda, her hücreye yapacağı işlemi için, yine macro ile o hücreyi hidden=false yaparak hücrelerin korumasını teker teker kaldırmak pratik olmadığından yukardaki 2 işlemden birini tercih etmelisin...

 

[wezyr]

çok teşekkür ederim.