DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Auto_Open()
Call OrganizeMenus(False)
'Application.OnKey "^p", "" 'Print kısayol
'Application.OnKey "^s", "" 'SaveAS kısayol
Application.OnKey "^c", "" 'Copy kısayol
Application.OnKey "^v", "" 'Paste kısayol
End Sub
'
Sub Auto_Close()
Call OrganizeMenus(True)
'Application.OnKey "^p" 'Print kısayol
'Application.OnKey "^s" 'SaveAs kısayol
Application.OnKey "^c" 'Copy kısayol
Application.OnKey "^v" 'Paste kısayol
End Sub
'
Sub OrganizeMenus(MyBoolean As Boolean)
On Error Resume Next
'For Each Ctrl In Application.CommandBars.FindControls(ID:=3) 'Save
'Ctrl.Enabled = MyBoolean
'Next Ctrl
'For Each Ctrl In Application.CommandBars.FindControls(ID:=2521) 'Print
'Ctrl.Enabled = MyBoolean
'Next Ctrl
'For Each Ctrl In Application.CommandBars.FindControls(ID:=4) 'Print
'Ctrl.Enabled = MyBoolean
'Next Ctrl
'For Each Ctrl In Application.CommandBars.FindControls(ID:=748) 'Save As
'Ctrl.Enabled = MyBoolean
'Next Ctrl
'For Each Ctrl In Application.CommandBars.FindControls(ID:=30029) 'Protection
'Ctrl.Enabled = MyBoolean
'Next Ctrl
'For Each Ctrl In Application.CommandBars.FindControls(ID:=847) 'Delete Sheet
'Ctrl.Enabled = MyBoolean
'Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=19) 'Copy
Ctrl.Enabled = MyBoolean
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=848) 'Move or Copy Sheet
Ctrl.Enabled = MyBoolean
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=1561) 'View Code
Ctrl.Enabled = MyBoolean
Next Ctrl
End Sub