bir gs li olarak teşekkür ederim, işimi gördü. Sayfanın adının değiştirmesi bir yana, sayfayı açarken de makro ları etkileştirmediği taktirde maalesef yazdırılmasına engel olamıyoruz. :hey:
Aşağıdaki kodları modüle
[vb:1:2a37c0211a]Sub Autpen()
MenuBars(xlWorksheet).Menus("File").MenuItems("Print...").Delete
For J = 1 To Toolbars.Count
For K = 1 To Toolbars(J).ToolbarButtons.Count
If Toolbars(J).ToolbarButtons(K).Id = 2 Then
Toolbars(J).ToolbarButtons(K).Enabled = False
End If
If Toolbars(J).ToolbarButtons(K).Id = 3 Then
Toolbars(J).ToolbarButtons(K).Enabled = False
End If
Next K
Next J
End Sub
Sub Auto_Close()
'Reset the menu items
For Each mb In MenuBars
mb.Reset
Next mb
'Reset the buttons
For J = 1 To Toolbars.Count
For K = 1 To Toolbars(J).ToolbarButtons.Count
If Toolbars(J).ToolbarButtons(K).Id = 2 Then
Toolbars(J).ToolbarButtons(K).Enabled = True
End If
If Toolbars(J).ToolbarButtons(K).Id = 3 Then
Toolbars(J).ToolbarButtons(K).Enabled = True
End If
Next K
Next J
End Sub[/vb:1:2a37c0211a]
Aşağıdaki koduda ThisWorkbook'a kopyalaınız
[vb:1:2a37c0211a]Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
End Sub[/vb:1:2a37c0211a]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.