Herbers Excel-Forum - das Archiv

kopieren verhindern mit VBA

Bild

Betrifft: kopieren verhindern mit VBA
von: Volker
Geschrieben am: 26.09.2003 09:17:49
Hallo zusammen,

ich möchte eine Excel- Datei nur dann zum kopieren freigeben lassen, wenn bestimmte Argumente ( z.B. Zelle A1 = leer ) erfüllt sind. Ansonsten muß bei Druckaufforderung eine Meldung erscheinen, z.B. :" Nicht alle relevanten Daten erfaßt" und der Kopiervorgang muß abgebrochen werden.

Wer kann mir bitte einen Tip geben?

Bild

Betrifft: AW: kopieren verhindern mit VBA
von: xXx
Geschrieben am: 26.09.2003 11:54:04
Hallo,
wat denn nu? Kopieren oder drucken?
Drucken verhindern (in DieseArbeitsmappe):


Private Sub Workbook_BeforePrint(Cancel As Boolean)
If IsEmpty(ActiveSheet.Range("a1")) Then
Mldg = MsgBox("Nicht alle Daten erfasst!" & vbLf & "Drucken wird abgebrochen.", vbOKOnly)
Cancel = True
End If
End Sub

Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen!
 Bild
Bewerten Sie hier bitte das Excel-Portal
Excel-Beispiele zum Thema " kopieren verhindern mit VBA"
Blätter in andere Arbeitsmappen kopieren Module von Mappe zu Mappe kopieren
Arbeitsblatt 40 mal kopieren Schriftgröße beim Kopieren verdoppeln
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen Tabellencode nach Kopieren des Blattes löschen
Arbeitsmappe blitzschnell kopieren VBE-Namen der Blattmodule beim Kopieren festlegen
Blattinhalt von einer zur anderen Arbeitsmappe kopieren Formel bis zur letzten Zeile der Nebenspalte kopieren