AW: Kopier und Druckerrechte
31.01.2009 13:17:00
Uwe
Hi,
leider hast Du Deinen Level nicht eingetragen.
Hier mal ein kleiner "Denkanstoß", aber auf jeden Fall hat Hajo Recht: Sicher ist das nicht!!!
Im Modul der Arbeitsmappe:
Option Explicit
Private Sub Workbook_Open()
Sheets("tabelle2").Visible = True
Sheets("Tabelle2").Activate
End Sub
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Tabelle2").Visible = xlVeryHidden
End Sub
Im Modul des Blattes:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1").Select
End Sub
Mit dem ersten wird das Drucken verhindert und das Blatt nur eingeblendet, wenn Makros aktiv sind (vor dem Verschicken Datei einmal schließen und wieder öffnen, damit das Blatt erstmal unsichtbar ist). Es muss aber auf jeden Fall noch ein zweites, sichtbares Blatt existieren (auf dem kannst Du ja dann darauf hinweisen, dass Makros aktiviert werden müssen).
Mit dem zweiten wird verhindert, dass man außer A1 etwas anderes auswählen, und somit auch kopieren kann.
Und nochmal: Das ist nur ein Denkanstoß und NICHT sicher, und ich bin auch bei weitem kein Profi. Aber gebenüber dem normalen Enduser sollte sowas schon was bringen.
Vielleicht komentieren die Profis hier im Forum meinen Code noch (Ich hoffe ohne zu sehr zu schimpfen (:-))
Ich entschuldige mich jetzt schon mal für Fehler und Verwirrung.
Gruß
Uwe
(:o)