Korumalı sayfada kod veya makro çalıştırma

[mural]

Merhabalar,
Ben herhangi bir makro veya kodu sayfa korumalı bi yerde çalıştırmak istiyorum..
Örnek dosyam ektedir..
Yardımlarını esirgemeyen arkadaşlara şimdiden teşekkürler...

 

[Vedat Özer]

Selamlar,

Sayfa Koruması Yaparken "Satırları Biçimle" Aktif Yapın

 

[mural]

Teşekkür ederim Vedat Özer Basitmiş ama bilmeyince zor oluyor.. Tekr TŞk

 

[Vedat Özer]

Selamlar,

Bende Zaten Sizin Sayenizde Öğrendim Deneyerek....

Hayırlı Günler

 

[tokman]

Hayırlı günler;
Aynı sıkıntıdan bende muzdaribim, konuya yazanları yapmaya çalıştım ama olmadı, birkaç kod buldum ama nereye yerleştireceğimi bulamadım. Userform botonu sayfa1 de kaydedilen veriler sayfa2 de, sayfa ikiye sayfayı kuru diyince makro hata veriyor kaydetmiyor, sayfayı koru dediğimde açılan pencereden satır,sutunları biçimlendiri de işaretliyorum ama yinede olmuyor. Ne yapabilirim, yardımlarınızı bekliyorum şimdiden teşekkürler.
Makro sayfam şu şekilde;

Private Sub ComboBox1_Change()
End Sub
Private Sub ComboBox1_Click()
If ComboBox1.ListIndex = 0 Then
Label6.Caption = ""
Label5.Caption = ""
End If
If ComboBox1.ListIndex = 1 Then
Label6.Caption = Sheets("Sayfa2").Range("E6").Value
Label5.Caption = Sheets("Sayfa3").Range("c3").Value
End If
If ComboBox1.ListIndex = 2 Then
Label6.Caption = Sheets("Sayfa2").Range("h6" & Satir)
Label5.Caption = Sheets("Sayfa3").Range("c4").Value
End If
If ComboBox1.ListIndex = 3 Then
Label6.Caption = Sheets("Sayfa2").Range("m6" & Satir)
Label5.Caption = Sheets("Sayfa3").Range("c5").Value
End If
---------------------------------------------------
Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
UnHook_Mouse
End Sub
---------------------------------------------------
Private Sub UserForm_Activate()
Hook_Mouse
End Sub
-----------------------------------------------------
Private Sub CommandButton1_Click()
If TextBox1.Text <> "" Then
If ComboBox1.Text <> "" Then
If ComboBox1.ListIndex = 1 Then
Son_Dolu_Satir = Sheets("Sayfa2").Range("E65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("sayfa2").Range("E" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("Sayfa2").Range("E:E")) + 1
Sheets("sayfa2").Range("e" & Bos_Satir).Value = TextBox1.Text
TextBox1.Value = ""
Label6.ControlSource = "sayfa2!e6" 'LABEL6 YI GÜNCELLEMEK İÇİN OLAN KOD
MsgBox "VERİ KAYDEDİLDİ"
End If
If ComboBox1.ListIndex = 2 Then
Son_Dolu_Satir = Sheets("Sayfa2").Range("H65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("sayfa2").Range("H" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("Sayfa2").Range("H:H")) + 1
Sheets("sayfa2").Range("h" & Bos_Satir).Value = TextBox1.Text
TextBox1.Value = ""
Label6.ControlSource = "sayfa2!h6"
MsgBox "VERİ KAYDEDİLDİ"
End If
If ComboBox1.ListIndex = 3 Then
Son_Dolu_Satir = Sheets("Sayfa2").Range("m65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("sayfa2").Range("m" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("Sayfa2").Range("m:m")) + 1
Sheets("sayfa2").Range("m" & Bos_Satir).Value = TextBox1.Text
TextBox1.Value = ""
Label6.ControlSource = "sayfa2!m6"
MsgBox "VERİ KAYDEDİLDİ"
End If

 

[tokman]

Benzer bir uygulama yapan yokmu acaba.

 

[antonio]

Benzer bir uygulama yapan yokmu acaba.

Hangi sayfalarınızın koruması sorun yaratıyorsa, kodlarla korumayı kaldırıp, işlemi yaptıktan sonra yeniden korunmasını aşağıdaki örnekle yapabilirsiniz.

Sheets("[B][COLOR="Red"]Sayfa1[/COLOR][/B]").Unprotect "[B][COLOR="red"]1234[/COLOR][/B]"
   [B] '[COLOR="Blue"]bu araya kodlarınız gelecek
    'kodlarınız bitince sayfayı yeniden aşağıdaki gibi koruyabilirsiniz.[/COLOR][/B]
Sheets("[B][COLOR="red"]Sayfa1[/COLOR][/B]").Protect "[B][COLOR="red"]1234[/COLOR][/B]"

 

[tokman]

Çok teşekkür ederim, deneyip dönüş yaparım.

 

[tokman]

Tekrar teşekkür ederim dediklerinizi uygulayabildim ve oldu.

 

[antonio]

Tekrar teşekkür ederim dediklerinizi uygulayabildim ve oldu.

Rica ederim. Kolay gelsin.

 

[manly]

Hangi sayfalarınızın koruması sorun yaratıyorsa, kodlarla korumayı kaldırıp, işlemi yaptıktan sonra yeniden korunmasını aşağıdaki örnekle yapabilirsiniz.

Sheets("[B][COLOR="Red"]Sayfa1[/COLOR][/B]").Unprotect "[B][COLOR="red"]1234[/COLOR][/B]"
   [B] '[COLOR="Blue"]bu araya kodlarınız gelecek
    'kodlarınız bitince sayfayı yeniden aşağıdaki gibi koruyabilirsiniz.[/COLOR][/B]
Sheets("[B][COLOR="red"]Sayfa1[/COLOR][/B]").Protect "[B][COLOR="red"]1234[/COLOR][/B]"

Ağ ortamında dosya paylaşıma açıldığında protect hatası veriyor.. Bunun için ne yapabiliriz...

 

[Orion1]

Ağ ortamında bazı vba kodları çalışmamaktadır.Kanımca bu sebeptendir.

 

[yenilik025]

Ağ ortamında bazı vba kodları çalışmamaktadır.Kanımca bu sebeptendir.

Hocam Merhabalar

Sub TextBox3_Change()
Application.ScreenUpdating = False
On Error Resume Next
METİN = TextBox3.Value
Set FC2 = Range("A3:E65000").Find(What:=METİN)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter field:=2, Criteria1:="*" & TextBox3.Value & "*"
If METİN = "" Then
Selection.AutoFilter field:=3
End If
End Sub

Kodunda
Satır 1 i hücreleri biçimelndirden koruma altına aldığımızda
Textbox a değer girildiğinde e süz işlemi çalışmamaktadır. düzeltilebilirmi ?

 

[Orion1]

Hocam Merhabalar

Sub TextBox3_Change()
Application.ScreenUpdating = False
On Error Resume Next
METİN = TextBox3.Value
Set FC2 = Range("A3:E65000").Find(What:=METİN)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter field:=2, Criteria1:="*" & TextBox3.Value & "*"
If METİN = "" Then
Selection.AutoFilter field:=3
End If
End Sub

Kodunda
Satır 1 i hücreleri biçimelndirden koruma altına aldığımızda
Textbox a değer girildiğinde e süz işlemi çalışmamaktadır. düzeltilebilirmi ?

önce korumayı kaldırın sonra süzün ,sonra tekrar koruma koyun.

activesheet.unprotect "şifre"

activesheet.protect "şifre"

 

[yenilik025]

Hocam sağolun cevaplamışsınız benim amacım textbox değer girildiğinde aranan kritere göre süzme gerçekleşsin zaten şifre kaldırıp tekrar açtıktan sonra o zaman korumanın bir manası kalmamakta

Sanırım korumalı sayfada süzme kodu herhalde çalışmıyor.

 

[Emir Hüseyin Çoban]

Yanlış düşünüyorsunuz.
Arama yapmak istediğinizde koruma açılacak, süzme işlemini gerçekleştirip
Tekrar korumaya alacak.
Tablonuzda herhangi bir veri değişikliği olmayacak. O yüzden koruma işlemi etkisini kaybetmiyor.

Veya sayfayı korumaya alırken
Oradaki seçeneklerden filtre kullanı işaretleyerek yapabilirsiniz.
.