Makro // Parola Sorunu hk.

[tactless]

Arkadaş basit bir makro yazdım. lakin parola koruması koyduğumda sayfaya makrom çalışmıyor. nasıl düzgün çalışmasını sağlayabilirim.?

tşkler.

 

[leumruk]

Sanırım sayfa korumasından bahsediyorsunuz. Hata veren kodunuzun başına
Sheets("Sayfa1").Unprotect 12345
Sonuna:
Sheets("Sayfa1").Protect 12345 yazın. Şifre ve sayfa adını kendinize göre değiştirin.

 

[tactless]

hocam çalışmadı. tam anlatamadım sanırım. Ben makro yazdım basit birşey. sonra sayfa içinde formüllerim vb. kodlar vardı. birileri formülleri görmesin bilgileri çalmasın diye çalışma sayfasına koruma koydum. sonra ekteki hatayı verdi. bu hatadan nasıl kurtulurum. parola ve süz işlemi parola koyduğumda çalışıyor.. ama makro çalışmıyor. yrd. rica ederim. sayg.

 

[Ömer]

Sayın leumruk kodları vermiş yapmanız gereken yazdığınız kodların başına ve sonuna yukardaki ilaveleri eklemeniz.

Eğer yapamadıysanız kodların tamamını verirseniz yeni düzene göre biz ilave edelim..

.

 

[tactless]

Sub Düğme18_Tıklat()
'
' Düğme18_Tıklat Makro
' Makro bjk1903 tarafından 14/10/2009 tarihinde kaydedildi.
'

'
Sheets("Sayfa2").Unprotect 1234
Selection.AutoFilter Field:=1
Sheets("Sayfa2").Unprotect 1234
End Sub

hocam oldu lakin yenile diye yaptığım butona (makro çalıştıran) bastığımda. formüller çözülüyor.

 

[Ömer]

Sub Düğme18_Tıklat()
'
' Düğme18_Tıklat Makro
' Makro bjk1903 tarafından 14/10/2009 tarihinde kaydedildi.
'

'
Sheets("Sayfa2").Unprotect 1234
Selection.AutoFilter Field:=1
Sheets("Sayfa2").Unprotect 1234
End Sub

hocam oldu lakin yenile diye yaptığım butona (makro çalıştıran) bastığımda. formüller çözülüyor.

Kırmızı ile işaretli bölge,

Protect

olması gerekiyor.

.

 

[tactless]

oldu hocam bu sefer çok tşkler. yanlık bir sorun daha çıktı. ben butona bastığımda kısa sürelide olsa formül görünüyor ve butona bastığımda sayfada kullandığım filtreler çalışmıyor. bu seferde bu çıktı ( nasıl yaparız?

tşkler.

 

[Ömer]

oldu hocam bu sefer çok tşkler. yanlık bir sorun daha çıktı. ben butona bastığımda kısa sürelide olsa formül görünüyor ve butona bastığımda sayfada kullandığım filtreler çalışmıyor. bu seferde bu çıktı ( nasıl yaparız?

tşkler.

Sub Düğme18_Tıklat()
Application.ScreenUpdating = False
Sheets("Sayfa2").Unprotect 1234
Selection.AutoFilter Field:=1
Sheets("Sayfa2").Protect 1234, DrawingObjects:=True, Contents:=True, _
Scenarios:=True, AllowFiltering:=True
Application.ScreenUpdating = True
End Sub

.

 

[tactless]

hocam süpersiniz. İyi ki varsınız..! tşkler..