sayfa koruma hatası

[sadolayn]

arkadaslar elımde bır excel var makro atanmısş tuslar yaratılmıs ben sayfanın koruma modunda acılmasını ıstıyorum yanı sayfayla ılgılı hıc bır bılgı degısmesın sayfayı koru dıyorum ilk iki hucre kutucugu ısaretlı sayfayı koruma parolasını gırıyorum fakat bu sefer tus butonuna basınca run tıme error 1004 hatası alıyorum hem makroların calısması hemde sayfamım kılıtlı olması ıcın napabılırım tesekkur ederım

 

[Emir Hüseyin Çoban]

. . .

Merhaba.

Tuş kodlarının başına sayfa korumasını kaldır kodlarını ve
tuş kodlarının sonunada korumaya al kodlarını ilave etmelisiniz.

Forumda aratırsanız örnekler mevcut.

. . .

 

[sadolayn]

sagolun huseyın bey arastırdım ama o kodları bulamadım rıca etsem lınkını verırmısınız sayfa korumasını kaldır kodlarını yanı sayfa korumalı olsun makrolarında caısması ıcın hangı kodu dahıl edıcegım

 

[Emir Hüseyin Çoban]

. . .

Sub kod_koru()
    ActiveSheet.Protect
End Sub


Sub kod_ac()
    ActiveSheet.Unprotect
End Sub

N Sayıda Sayfanın Aynı Sütunlarında Hücre Koruma

Otomatik Hücre Koruması

. . .

 

[sadolayn]

bu kodları makro olan kısma eklıyorum gene koruma hatası verıyor neden sayfa koruma modunu kılıtleyemıyecekmıım be n

 

[Emir Hüseyin Çoban]

bu kodları makro olan kısma eklıyorum gene koruma hatası verıyor neden sayfa koruma modunu kılıtleyemıyecekmıım be n

. . .

Çalışmanızın bir örneğini ekleyin, inceleyim.

. . .

 

[sadolayn]

thx

tesekkurler huseyın bey sayfa koruma sıfresı "a" yaptım tıkladıgınız zaman hata verıyor ama sayfamında koruma altında kalmasınıda ıstıyorum kod bu
Private Sub CheckBox1_Click()

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sat As Long
sat = Cells(Rows.Count, "B").End(xlUp).Row
Range("B1:B" & sat).Font.Size = 10
Range("B1:B" & sat).Interior.Color = vbWhite
Range("B1:B" & sat).Font.Color = vbBlack
If Target.Column = 2 Then
Target.Font.Size = 18
Target.Interior.Color = vbBlack
Target.Font.Color = vbWhite
End If
End Sub
sızın verdıgınız komutu ekledım olmadı

 

[Emir Hüseyin Çoban]

. . .

Merhaba.
Kodlarınıza aşağıda kırmızı ile belirttiğim satırları ilave ettim. Bu şekilde deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[COLOR="Red"]ActiveSheet.Unprotect "a"[/COLOR]
Dim sat As Long
sat = Cells(Rows.Count, "B").End(xlUp).Row
Range("B1:B" & sat).Font.Size = 10
Range("B1:B" & sat).Interior.Color = vbWhite
Range("B1:B" & sat).Font.Color = vbBlack
If Target.Column = 2 Then
    Target.Font.Size = 18
    Target.Interior.Color = vbBlack
    Target.Font.Color = vbWhite
End If
[COLOR="Red"]ActiveSheet.Protect "a"[/COLOR]
End Sub

. . .

 

[sadolayn]

çok teşekkur ederım huseyın bey oldu ama dıger makro kodlarında bu komut neden uymuyor ornegın
Sub RAKAMLIŞB()
'
' RAKAMLIŞB Makro
'

'
ActiveSheet.Range("$A$10:$G$9683").AutoFilter Field:=7, Criteria1:=Array( _
"1", "2", "3", "4", "5", "6", "7", "8", "9"), Operator:=xlFilterValues
End Sub
Sub RR()
'
' RR Makro
'

'
Range("G10").Select
ActiveSheet.Range("$A$10:$G$9683").AutoFilter Field:=7, Criteria1:="R"
End Sub
Sub TÜMLİSTE()
'
' TÜMLİSTE Makro
'

'
ActiveSheet.Range("$A$10:$G$9683").AutoFilter Field:=1
ActiveWindow.SmallScroll Down:=-9

End Sub

sızın dedıgınız gıbı yapınca hata verıyor bunuda cozersem sorunum kalmıyacak sagolun

 

[Emir Hüseyin Çoban]

. . .

Bu şekilde deneyiniz.

Sub RAKAMLIŞB()
ActiveSheet.Unprotect "a"
ActiveSheet.Range("$A$10:$G$9683").AutoFilter Field:=7, Criteria1:=Array( _
"1", "2", "3", "4", "5", "6", "7", "8", "9"), Operator:=xlFilterValues
ActiveSheet.Protect "a"
End Sub

Sub RR()
ActiveSheet.Unprotect "a"
ActiveSheet.Range("$A$10:$G$9683").AutoFilter Field:=7, Criteria1:="R"
ActiveSheet.Protect "a"
End Sub

Sub TÜMLİSTE()
ActiveSheet.Unprotect "a"
ActiveSheet.Range("$A$10:$G$9683").AutoFilter Field:=1
ActiveSheet.Protect "a"
End Sub

. . .

 

[sadolayn]

teşekkurler huseyın bey

 

[sadolayn]

huseyın bey
Private Sub worksheet_selectionchange(ByVal target As Range)
ActiveSheet.Unprotect "a"
Dim sat As Long
sat = Cells(Rows.Count, "B").End(xlUp).Row
Range("B2:B" & sat).Font.Size = 12
Range("B2:B" & sat).Interior.Color = vbBlack
Range("B2:B" & sat).Font.Color = vbWhite
If target.Column = 2 Then
target.Font.Size = 18
target.Interior.Color = vbWhite
target.Font.Color = vbBlack
End If
ActiveSheet.Protect "a"
End Sub

komutta hata alıyorum hata FONT SINIFININ SİZE ÖZELLİĞİ KURULAMIYOR HATASI RUN TIME ERROR 1004 BUNUN NEDENI NEDIR .
calısma sayfasında 10 tane lınk var 8 lınk ınternet sıtesıne lınklı 2 tanesı aynı calısma sayfasında baska bır sayfaya lınklı hatayı o 2 sınde alıyorum o sayfaların worksheetlerı bos nasıl bısey yazmam lazım umarım anlatabılmısımdır tesekkurler

 

[Emir Hüseyin Çoban]

. . .

Merhaba.
Hata aldığınız çalışmanın örnek bir dosyasını oluşturup ekleyin. İnceleyelim.

. . .

 

[sadolayn]

mrb

buyrun huseyın bey ekledım deneme lınkıne tıklayınca hata verıyor kopru kuramıyacakmıyım yada kopru kurdugum sayfayadamı aynı kodları yazıcagım bakarsanız sevınırım

 

[Emir Hüseyin Çoban]

. . .

Bu şekilde deneyiniz. Kırmızı ile belirttiğim satırı ilave ettim.

Private Sub worksheet_selectionchange(ByVal target As Range)
ActiveSheet.Unprotect "a"
[COLOR="Red"]On Error Resume Next[/COLOR]
Dim sat As Long
sat = Cells(Rows.Count, "B").End(xlUp).Row
Range("B2:B" & sat).Font.Size = 12
Range("B2:B" & sat).Interior.Color = vbBlack
Range("B2:B" & sat).Font.Color = vbWhite
If target.Column = 2 Then
target.Font.Size = 18
target.Interior.Color = vbWhite
target.Font.Color = vbBlack
End If
ActiveSheet.Protect "a"
End Sub

 

[sadolayn]

on numara tesekur ederım