• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Eklenti Problemi

  • Konbuyu başlatan Konbuyu başlatan bekir38
  • Başlangıç tarihi Başlangıç tarihi
Katılım
13 Temmuz 2005
Mesajlar
345
arkadaşlar merhaba,

toplu sayfa koruma yapma ve açmak için bir eklentim vardı. süreklide kullanıyordum ama bilgisayara format attık.
koruma ve açma mokraları yeniden hazırladım ama resimde görünen yere kısayol yapamıyorum.
 
Son düzenleme:
Probleminizin ne olduğu anlaşılmıyor, yani kasdettiğiniz menüye bir buton ekleyip bu butona makromu bağlamaya çalışıyorsunuz.
 
Probleminizin ne olduğu anlaşılmıyor, yani kasdettiğiniz menüye bir buton ekleyip bu butona makromu bağlamaya çalışıyorsunuz.

evet sayın leventm,
aynen böyle yapmaya çalışıyorum,
makroyu ekledim ama hata veriyor,
sorun nerde anlamadım,
 
Butona eklediğiniz makroyu verirmisiniz.
 
açmak için;

Sub a()
Dim i As Integer
For i = 1 To Worksheets.Count
Worksheets(i).Unprotect ("1861")
Next i
End Sub

kilitleme için;

Sub k()
Dim i As Integer
For i = 1 To Worksheets.Count
Worksheets(i).Protect Password:="1861"
Next i
End Sub

açmayı gülen adama, kilitlemeyi anahtar resmine bağladım ama,
sürekli hata veriyor,
 
Kodlarda hata verecek bir durum görünmüyor. Her iki koduna menüye eklediğiniz 2 ayrı "gülen adam" butonuna bağlayıp denermisiniz. Sonrasında bu butonların üzerindeki sembolleri değiştirebilir yada yazı yazabilirsiniz.
 
makroların olduğu adres burası,

D:\Documents and Settings\Kalite\Application Data\Microsoft\AddIns

bağladığım yerde ;

araçlar, özelleştir menüsünden,
anahtar üzerine gelip, sağ tıklayarak makro ata kısmına yukarıdaki adresi yazıyorum,

D:\Documents and Settings\Kalite\Application Data\Microsoft\AddIns\a

gibi, ama çalışmıyor,
 
Eğer eklenti haline getirdiyseniz eklentiyi araçlar-eklentilerden aktif hale getirmeniz gerekir.
 
sayın leventm,
basic ile ilgili extra bir yama falan yüklemeye gerek varmı bu konu ile ilgili?
sanki geçen sene veya daha önce böyle birşey yaptım gibi hatırlıyorum.
 
Geri
Üst