tüm kapalı kitaplara aynı makroyu uygulamak

birol_mumcu · 27 Aralık 2006

merhaba;
çalışma kitabımda modül içinde bir makro çalışmakta.
ben bu makroyu, herhangi bir klasör içindeki farklı çalışma kitaplarına nasıl uygularım. klasörde 300 adet çalışma sayfası var. ve herişlemi farklı klasörlere de uygulamam gerekecek.

Mahmut Kök · 27 Aralık 2006

Anladığım kadarıyla, makronuzu, oluşturduğunuz çalışma kitabından farklı belgelerde de çalıştırmak istiyorsunuz. Eğer doğru anlamışsam, makroda geçen excelbelgesi adının yerine "thisworkbook" ifadesini kullanabilirsiniz. Bu şekilde, herhangi bir excel belgesine bağımlı kalmamış olursunuz.

birol_mumcu · 27 Aralık 2006

yapmak istediğim kısaca;
modül içindeki makroyu diğer çalışma kitaplarınada aynı şekilde uyarlamak.

Haluk · 27 Aralık 2006

Şöyle bir şey yapabilirsiniz;

Diyelim ki TestProc isminde bir kodunuz var ve siz bunu herhangibir Excel dosyasında kullanmak istiyorsunuz.

İlk önce yeni bir Excel dosyası açıp, ilgili kodu bir modüle yerleştirip bu dosyayı XLA olarak kaydediyorsunuz. (Excel'in varsayılan kaydettiği yeri değiştirmeyin.) Yani, bir eklenti dosyası oluşturuyorsunuz ...

Örneğin, aşağıdaki kodu bir dosyaya yerleştirin ve dosyanın adını da MyXLA.xla olarak adlandırın, kaydettikten sonra Excel'i kapatın.

Kod:

Sub TestProc()
    MsgBox "Merhaba !"
End Sub

Şimdi herhangibir Excel dosyası açın ve bir modül ekledikten sonra, aşağıdaki kod yapıştırıp .... çalıştırın.

Kod:

Sub Test()
    Application.Run ("MyXLA.xla!TestProc")
End Sub

Umarım, anlaşılmayan bir şey yoktur ....

birol_mumcu · 28 Aralık 2006

ilk denemeden sonra gelişmelerle birlikte buraya aktaracağım

teşekkürler

birol_mumcu · 29 Aralık 2006

merhaba;
teşekkürler syn haluk verdiğiniz bilgilerde bir anlaşmazlık yok. fakat ben bu işi yapamadım.
hata veriyor.
kullandığın kodlar aşağıda
Const strTxtFile As String = "C:\Program Files\Adobe\strTxt.txt"
Sub Aut

pen()
If Dir(strTxtFile) <> Empty Then
ThisWorkbook.IsAddin = False
Else
ThisWorkbook.IsAddin = True
MsgBox "Kayitli kullanici degilsiniz....", vbCritical, "Kullanicinin dikkatine !"
ThisWorkbook.Close SaveChanges:=False
End If
End Sub
bunu bir .xla olarak kayıt ediyorum
sorun yok

Sub Test()
Application.Run ("MyXLA.xla!TestProc")
End Sub

kodunda myxla.xla kısmınıda değiştirip dosya adını veriyorum. ve de TestProc u da "auto_open" olarak değiştiriyorum.

hata veren kod satırı
If Dir(strTxtFile) <> Empty Then
buna göre yapmam gereken nedir.
yada yanlış yaptığım yer neresi

birol_mumcu · 30 Aralık 2006

birol_mumcu' Alıntı:
Sub Test()
Application.Run ("MyXLA.xla!TestProc")
End Sub

kodunda myxla.xla kısmınıda değiştirip dosya adını veriyorum. ve de TestProc u da "auto_open" olarak değiştiriyorum.

hata veren kod satırı
If Dir(strTxtFile) <> Empty Then
buna göre yapmam gereken nedir.
yada yanlış yaptığım yer neresi

makro bilen arkadaşlar bana bu konuda yardımcı olabilir mi ?

alpi · 4 Ocak 2007

Sayın birol_mumcu ThisWorkbook.IsAddin = True yazdığınız zaman eklenti açılacak ve Aut

pen prosedürü otomatik çalışacaktır sizin ayrıyeten Run ile çalıştırmanıza gerek yok.

Eğer Run ile bir prosedür çalıştırmak istiyorsanız Excel tarafından tanımlanmış bir prosedür adı yerine başka bir isim verdiğiniz prosedürü çalıştırınız. Çünkü Aut

pen, Auto_Close gibi prosedür isimleri zaten Excel tarafından tanımlanmış ve otomatik çalışan prosedürlerdir.

birol_mumcu · 4 Ocak 2007

alpi' Alıntı:
Sayın birol_mumcu ThisWorkbook.IsAddin = True yazdığınız zaman eklenti açılacak ve Autpen prosedürü otomatik çalışacaktır sizin ayrıyeten Run ile çalıştırmanıza gerek yok.

kod içindeki ThisWorkbook.IsAddin = False satırındaki değişikliği yaptım
çalışıyor yanlız sadece "book1.xla" dosyasında.
eğer ilgili dosya yoksa, "kayıtlı kullanıcı değilsiniz uyarısı" geliyor.
buraya kadar tamam
şimdi bu işlemi tüm kitaplara nasıl uygulayacağız ?

alpi · 4 Ocak 2007

Bir başka eklenti daha oluşturun. Bu eklenti her zaman eklenmiş olsun. Bu eklenti içerisine yazacağınız kod ile diğer eklentinin çalıştırılıp çalıştırılmayacağını kontrol edebilirsiniz.

birol_mumcu · 4 Ocak 2007

anlamadım.
örneklermisin veya başka bir eklentiyi çalıştıracak 2. eklentiyi syn haluk'un anlattığı gibi mi yapacağız. (yukarıdaki sorumda anlatmaya çalıştığım şekilde bir örnek olursa daha iyi anlayacağım)
aklıma gelmişken hemen sorayım. daha sonra 2. eklentiyi de çalıştıracak bir 3. eklenti gerekecek mi?

alpi · 5 Ocak 2007

Anladığım kadarıyla yapmak istediğiniz; uygulamanızın yetkisiz kişiler tarafından kullanılmasını engellemek. Eğer kullanıcı yetkili ise eklenti aktif olacak değilse aktif olmayacak.
Doğru anlamış mıyım? Yada siz detaylı açıklarsanız daha iyi olur.

birol_mumcu · 5 Ocak 2007

evet doğru anlamışsınız.
yapmaya çalıştığım;
kullanılan çalışma sayfası bir bilgisayarda kayıtlı olacak.
eğer diğer bilgisayara kopyalanırsa çalışmayacak.
bunu istememin sebebi girişyapılırken veya kayıt alınırken aynı dosya üzerinden çalışma yapılsın.
bu işlem dosyanın kopyalanmasını da engelleyecek.
isteğim bu ama benim makrolar konusunda çok fazla bilgim yok. bu yüzden yapamadım. (keşke formülle halledebilsem ama yok)

birol_mumcu · 5 Ocak 2007

Const strTxtFile As String = "C:\Program Files\Adobe\strTxt.txt"
Sub Aut

pen()
If Dir(strTxtFile) <> Empty Then
ThisWorkbook.IsAddin = False
Else
ThisWorkbook.IsAddin = True
MsgBox "Kayitli kullanici degilsiniz....", vbCritical, "Kullanicinin dikkatine !"
ThisWorkbook.Close SaveChanges:=False
End If
End Sub
bu kodlar anladığım kadarıyla "şu dosya yoksa uyarı ver ve dosyayı açma" anlamında
eğer kopya alınıp başka bilgisayarda çalıştırlırsa, bilgisayarda makro güvenliği "yüksek"se bu çalışmayacak ve dosya açılacak.
diğer yandan ise eklenti olarak hazırlanacak dosya da araçlar>eklenilerden aktif hale getirlmesi gerek.

alpi · 5 Ocak 2007

O zaman hiç eklentiyle falan uğraşmaya gerek yok. Uygulamanızın çalıştığı bilgisayarın HD Seri Nosunu kontrol edelim, eğer listemizde yoksa uygulama çalışmasın.

birol_mumcu · 5 Ocak 2007

alpi' Alıntı:
O zaman hiç eklentiyle falan uğraşmaya gerek yok. Uygulamanızın çalıştığı bilgisayarın HD Seri Nosunu kontrol edelim, eğer listemizde yoksa uygulama çalışmasın.

diyelimki belge kopyalandı ve başka bilgisayara kayıt edildi (ki belge önemli ve gizli kesinlikle kopyalanmamalı)
makro güvenliği yüksekse de çalışabilecekmi

alpi · 5 Ocak 2007

Dosyanızın tüm sayfalarını öncelikle gizlemeliyiz.
Makro seviyesi düşük olan bilgisayarda uygulama çalışacak ve HDD seri no kontrol edecek doğruysa uygulamanız çalışacak sayfalar gösterilecek, yanlışsa çalışmayacak
Makro seviyesi yüksekse sayfalar gizli olduğundan zaten kullanıcı sayfalara ulaşamayacak.

birol_mumcu · 5 Ocak 2007

söyldiğiniz şekilde de olablir.

Korhan Ayhan · 6 Ocak 2007

Selamlar,

Konuyla ilgili örnek bir dosya hazırladım. İlk olarak dosyayı makroları etkinleştirerek açın. Ekrana mesaj ile sizin HDD numaranız gelecektir. Bu numarayı bir yere yazın. Daha sonra dosyayı makroları etkinleştirmeden açın. HDD numaranızı koddaki aşağıdaki kısıma yazın. VBA penceresine uzun ve hatırlayacağınız bir şifre vererek dosyanızı bu haliyle kaydedip kapatın. Artık VBA şifreniz çözülene kadar dosyanız başka bilgisayarda çalışmayacaktır. Umarım faydası olur.

Kod:

If Seri_No <> [color=blue][B]1234567890[/B][/color] Then

Not : Dosyanın VBA şifresi ++COST_CONTROL++

Tankut SAZLI · 6 Ocak 2007

Burda birşeye dikkatinizi çekmek istedim.Hdd numarasına göre güvenlik ayarı yapmak sadece başka bilgisayar için değil sizin bilgisayarınız içinde engelleme yapabilir.Çünkü eğer format atarsanız HDD numarası değişecektir.Böylece kendi bilgisayarınızdada dosya erişimi engellenmiş olacaktır.Bunun yerien CPU nosu ile çalışılması bence biraz daha sağlam olabilir.

tüm kapalı kitaplara aynı makroyu uygulamak

birol_mumcu

Mahmut Kök

Özel Üye

birol_mumcu

Haluk

Özel Üye

birol_mumcu

birol_mumcu

birol_mumcu

alpi

birol_mumcu

alpi

birol_mumcu

alpi

birol_mumcu

birol_mumcu

alpi

birol_mumcu

alpi

birol_mumcu

Korhan Ayhan

Administrator

Tankut SAZLI