DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub KONTROL()
With ActiveSheet
.Unprotect
If .[iv65536] = True Then
.[e5].Value = 1
.[e5].Locked = False
Else
.[e5].Value = ""
.[e5].Locked = True
End If
.Protect
End With
End Sub
Bende Bendesorunuzu tam anlayamamışım
Her açılışta otomatik çalışmasını istiyorsanız kodlarınızı Sub Autpen() End SubAyhan abi benim sizden bir ricam var makro yapıyorum her exceli açtığımda çalıştır deyince çalışıyor neden otomatik çalışmıyor bir ekime bakabilirmisiniz.Birde kısaca nedenini açıklarmısınız banada hayırlı akşamlar
[B][COLOR=blue]Sub Auto_Open[/COLOR][/B]()
If Sheets("Fiyat Tarifesi").[L160] = 7 Then
ActiveSheet.Shapes("Drop Down 328").Visible = True
Else
ActiveSheet.Shapes("Drop Down 328").Visible = False
End If
[COLOR=blue][B]End Sub[/B][/COLOR]