in der Menüleiste die "Druckauswahl" bzw. die Schrift DRUCKEN zu deaktivieren ?
Ich möchte dies gern beim Öffnen einer bestimmten Datei und beim Schließen wieder
aktivieren.
gr Kurt P
Sub Menüleiste_Grau()
Dim C As Object
Application.CommandBars(1).Enabled = True
For Each C In Application.CommandBars(1).Controls
C.Enabled = Not C.Enabled
Next
End Sub
'----------- Beschriftungsleiste ------------------------------
Function Change_Control_State()
'(C) Ramses
Dim i As Long
Dim myCmdBar As CommandBar, myCnt As CommandBarControl
Set myCmdBar = Application.CommandBars("Worksheet Menu Bar")
For Each myCnt In myCmdBar.Controls
myCnt.Enabled = Not myCnt.Enabled
Next
End Function
Damit wird die Beschriftungsleiste Grau also man kann nichts ansprechen/selektieren.
Nun möchte ich nur noch das "Druckbutton" soweit vorhanden, deaktivieren,
aber WIE ?
gr Kurt P
Gruß Sepp
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Tabelle1" Then Cancel = True
End Sub
Gruß,
Beate
Sub Strg_P_deaktivieren()
'Diesem Makro die Tastenkombination Strg + p zuweisen
MsgBox "Drucken per Tastenkombination Strg + p nicht möglich," & vbLf _
& "wenn Datei """ & ThisWorkbook.Name & """ geöffnet ist!"
End Sub
Gruß Sepp
'Prozeduren unter diese Arbeitsmappe
Private Sub Workbook_Activate()
Application.OnKey "^p", "Strg_P_deaktivieren"
End Sub
Private Sub Workbook_Deactivate()
Application.OnKey "^p"
End Sub
'Prozedur in einem allgemeinen Modul der Datei
Sub Strg_P_deaktivieren()
MsgBox "Drucken per Tastenkombination Strg + p " & vbLf _
& "ist für Datei """ & ThisWorkbook.Name & """ deaktiviert!"
End Sub