- Katılım
- 28 Şubat 2007
- Mesajlar
- 251
- Excel Vers. ve Dili
- visual basic
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Tasi_ve_Kopyala_Sil()
Application.CommandBars("Ply").FindControl(, ID:=848).Visible = False
End Sub
Sub Tasi_ve_Kopyala_Pasif()
Application.CommandBars("Ply").FindControl(, ID:=848).Enabled = False
End Sub
Sub Tasi_ve_Kopyala_Pasif()
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=848)
Ctrl.Enabled = False 'True menüleri aktif yapar
Next Ctrl
End Sub