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
Asıl emek sayın Menteşoğlu'nunBen sadece cevabı hızlandırmak için onun affına sığınarak dosyasına müdahale ettim , kolay gelsin.