DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
sub auto_open()
With Worksheets("sheet1")
.Protect Password:="1", userinterfaceonly:=True
.EnableOutlining = True
End With
End Sub
sub auto_open()
With Worksheets("sheet1")
.Protect Password:="1", userinterfaceonly:=True
.EnableOutlining = True
End With
With Worksheets("sheet2")
.Protect Password:="1", userinterfaceonly:=True
.EnableOutlining = True
End With
.
.
.
End Sub
Sn Cem bey cevap vermek için izin istemenize gerek yok. Lütfen böyle bir çekinceye sahip olmayın. Cevabınız için teşekkür ederim.Asıl emek sayın Menteşoğlu'nun Ben sadece cevabı hızlandırmak için onun affına sığınarak dosyasına müdahale ettim , kolay gelsin.