Hallo zusammen,
ich hoffe Ihr könnt mir helfen.
Ich habe die Aufgabe bekommen in einer Excel-Datei die Funktion Datei -> Drucken zu unterbinden. In VBA habe ich etwas rumgespielt und es tatsächlich geschafft diese Funktion auszuschalten. Nur dies übernimmt Excel jetzt auch in allen anderen Excel-Dateien. Woran könnte dies liegen und wie kann ich diese Funktion wieder einschalten?
Vielen Dank für Eure Hilfe!
Jessica
Hallo, Jessica!
Ich habe die Aufgabe bekommen in einer Excel-Datei die
Funktion Datei -> Drucken zu unterbinden. In VBA habe ich
etwas rumgespielt und es tatsächlich geschafft diese Funktion
auszuschalten.
Und wie hast Du das gemacht? Das solltest Du einfach wieder rückgängig machen:wink:
Nur dies übernimmt Excel jetzt auch in allen
anderen Excel-Dateien. Woran könnte dies liegen und wie kann
ich diese Funktion wieder einschalten?
Das wird Excel vermutlich deshalb so machen, weil Du das „Ausschalten“ in der Applikation gemacht hast und nicht in der Datei. Zum wieder einschalten: Mache das rückgängig, was Du mit Deinem rumspielen in VBA getan hast.
BTW: Um eine Datei nicht ausdrucken zu können, setze im Workbook_BeforePrint einfach Cancel = True.
Gruß, Manfred
Ich habe die Aufgabe bekommen in einer Excel-Datei die
Funktion Datei -> Drucken zu unterbinden. In VBA habe ich
etwas rumgespielt und es tatsächlich geschafft diese Funktion
auszuschalten. Nur dies übernimmt Excel jetzt auch in allen
anderen Excel-Dateien. Woran könnte dies liegen und wie kann
ich diese Funktion wieder einschalten?
Hi Jessica,
Manfred hat ja schon alles wesentliche gesagt, also zeige mal den Code.
Und zur Sicherheit, ist Excel ist nichts sicher, nicht daß du dich in der falschen Sicherheit wiegst, keiner könnnt deine Datei ausdrucken.
Und zum zurücksetzen der Druckfunktionen, schau mal in der Vba-Hilfe nach der Reset-Methode und nach OnAction wenn du es spielerisch selbst lösen möchtest:smile:
Gruß
Reinhard
Hallo zusammen,
vielen Dank füre Eure Antworten 
.
Ich habe u.a. diesen Code ausgeführt und dachte, dass ich mit dem 2. dies wieder zurücksetzen kann, aber dann bekomme ich eine Fehlermeldung „Objekt unterstützt diese Methode oder Eigenschaft nicht“.
Sub MenuControl_False()
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=4) '4 = drucken
Ctrl.Enabled = False
Next Ctrl
End Sub
Sub MenuControl_True()
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=4) '4 = drucken
Ctrl.Disabled = False
Next Ctrl
End Sub
Viele Grüße,
Jessica
Hallo,
Ctrl.Disabled = False
Ctrl.Enabled = True
die Eigenschaft Disabled gibt es nicht. Du hast versucht eine andere Eigenschaft zu verwenden, statt den Zustand einer Eigenschaft zu verändern.
Gruß Rainer