Makro Çalışırken Deactivate Olur mu

[baydeniro]

Merhaba arkadaşlar. Aşağıdak ikodun makro çalışırken "deactive" olmasının bir yolu var mı ?


Private Sub Worksheet_Activate()
Sheets("DATA").Activate
Sheets("MAHSUP").Select
End Sub

 

[fedeal]

sayfa açılınca kodlar işleyecektir onu ancak sorguyla durdurursunuz.

Private Sub Worksheet_Activate()
If Sheets("data").Cells(1, 1) = "*" Then Exit Sub
Sheets("DATA").Activate
Sheets("MAHSUP").Select
End Sub

Kırmızı satırdaki sorguyu ilave ettik.
makromuzun başına ve sonunada alttki kodları girersek istediginiz olacaktır.

Sub n()
Sheets("data").Cells(1, 1) = "*"

'buraya kodları yazınız.

Sheets("data").Cells(1, 1) = ""
Sheets("data").select
End Sub

burada data sayfasının a1 hücresine yazıyor siz boş bir hücre seçersiniz, saygılar.

 

[baydeniro]

Sayın fedeal yardımınız için çok teşekkür ederim. Dosyada çok makro var, sayfalara girip çıkıyorlar, o yüzden çözümü uygulamak benim için biraz zor. Ben sayfaya giriş kısıtlamasını yeterliliği olmayan kullanıcıların o sayfayı bozmasını engellemek için bu yolu düşünmüştüm. Belki kullanıcıları engellemenin başka yolu vardır !! Sizin aklınıza buna benzer bir çözüm geliyor mu ? Teşekkür ederim.

 

[fedeal]

sayfa gizleme desem tekrar makroların başına ve sonuna göster gizle komutu koyulmalı, korunsa korumayı kaldırıp tekrar koyacak kod uygulanmalı
makroların başına ve sonuna kopyala yapıştırla bahsettigim kodları uygulamak en kolayı gibi geliyor bana, tabi altarnatif olursa ögrenmek adına uzmanlarımızın fikirleri benimde işime yarar.
saygılar.

 

[baydeniro]

Peki sadece şu kodu "koşullu" kaldırmanın yolu var mıdır ?

Not : Thisworkbook altında

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name <> "MAHSUP" Then
Sheets("MAHSUP").Select
End If
End Sub

 

[fedeal]

Bu kod zannedersem MAHSUP isimli sayfadan başka sayfa açılmasın diye yazılmış.

Aklıma birde makrolarınızdaki select terimlerini kaldırmanız geliyor.

sheets("sayfa1").select
cells(1,1)=date

yerine

sheets("sayfa1").cells(1,1)=date

şeklinde kullanırsanız problem kalmayacaktır.