modülleri gizlemek

[uzmanamele]

merhaba
vba yı açan biri yazılan kodları görmesin istersek, bunun yolu nedir?
modülleri gizlemek mümkün mü?

 

[Merhum İdris SERDAR]

merhaba
vba yı açan biri yazılan kodları görmesin istersek, bunun yolu nedir?
modülleri gizlemek mümkün mü?

Password vererek.

Ekteki dosyaya bakın.

.

 

[uzmanamele]

merhaba
syn Yurttaş ilginize teşekkür.
benim sormak istediğim vba nın tümden şifrelenmesi değil.
5 adet modülüm var diyelim. 1.modülde sayfa koruma kodları var ve bir şifre barındırıyor varsayalım.
vba yı açan kişi 4 modülü görebilsin ama 1.modülü göremesin, bu mümkün mü?

 

[Merhum İdris SERDAR]

merhaba
syn Yurttaş ilginize teşekkür.
benim sormak istediğim vba nın tümden şifrelenmesi değil.
5 adet modülüm var diyelim. 1.modülde sayfa koruma kodları var ve bir şifre barındırıyor varsayalım.
vba yı açan kişi 4 modülü görebilsin ama 1.modülü göremesin, bu mümkün mü?

Olur mu? Bilmiyorum. Oluyorsa; bu sayede bende öğrenmiş olurum.

.

 

[uzmanamele]

merhaba
syn Yurttaş biz değil ama sizin gibi uzman arkadaşlar bunu başarabilir sanıyorum. bir yolunu bulursanız bizimle paylaşacağınızdan eminim.

 

[Leoncio]

Merhaba;

Konu ile ilgili olarak Sayın Haluk tarafından yazılmış kodları uygulayabilirsiniz.

Excel'deki Tools | Macro >> Macros ( Araçlar | Makro >> Makrolar ) menüsünden açılan pencerede, çalışma kitabındaki prosedurlerin (makroların) listelendiği pencerede, sözkonusu prosedurlerin (makro)listelenmesini engellemek için bir alternatif de; sözkonusu makrolarda, argüman kullanmaktır.

Önemli olan konu ise, argüman kullanılan proseduru yine, argümanları ile birlikte çağırmaktır. Argümanları "sahte" olmayan bir prosedurü çağırmak için de, "Call" deyimininin kullanılmasına dikkat edin.

Aşağıdaki satırları, bir modül içine yerleştirdikten sonra, Araçlar | Makro | Makrolar menüsünden, makro listesine bakın. Orada, Test3 ve Test5 isimli prosedurlerin listelenmediğini ancak, diğerlerinin listelendiğini göreceksiniz.

Sub Test()
Dim Value1 As Integer, Value2 As Integer
Value1 = 500
Value2 = 600
MySum = Value1 + Value2
MsgBox MySum
End Sub
'
Sub Test2()
Test3 (SumTest)
End Sub
'
Sub Test3(SumTest)
Dim Value1 As Integer, Value2 As Integer
Value1 = 500
Value2 = 950
MySum = Value1 + Value2
MsgBox MySum
End Sub
'
Sub Test4()
Dim Val1 As Integer, Val2 As Integer
Val1 = 800
Val2 = 150
Call Test5(Val1, Val2)
End Sub
'
Sub Test5(MyVal1, MyVal2)
RetVal = MyVal1 + MyVal2
MsgBox RetVal
End

 

[uzmanamele]

merhaba
syn leventer ve syn Haluk arkadaşlara teşekkürler.
Test3 ve Test5 isimli prosedurlerin listelenmiyor ama bu kodları yazdığımız modül görünür durumda. kendi modülünü nasıl görünmez yapabiliriz?
bu kodları sevdim. bakalım kendi çalışmama uyarlayabilecekmiyim.

 

[Haluk]

Kodlarınızın olduğu modülün en üst satırına aşağıdakini ekleyin ...

Option Private Module

 

[uzmanamele]

merhaba
syn Haluk modülleri gizlemeyi beceremedim. rica etsem, ekli dosyada 2 adet modül var, bunları görünmez yapmak için ne yapmalıyız?
en üste Option Private Module yazdım ama olmadı.

 

[Haluk]

merhaba
syn Yurttaş ilginize teşekkür.
benim sormak istediğim vba nın tümden şifrelenmesi değil.
5 adet modülüm var diyelim. 1.modülde sayfa koruma kodları var ve bir şifre barındırıyor varsayalım.
vba yı açan kişi 4 modülü görebilsin ama 1.modülü göremesin, bu mümkün mü?

Bu yazdığınızı sonradan gördüm....

Böyle bir şey mümkün değil !

 

[uzmanamele]

merhaba
syn Haluk ilginize teşekkürler.