Drucke, Speichern und Kopieren per VBA ausstellen

Question

Hallo,

ich hab mir eine Tabelle erstellt, bei der ich gerne, wenn ein bestimmter Wert im Tabellenblatt Übersicht in der Zelle G3 (z.B. 20) nicht erreicht worden ist,das Drucken, Speichern und auch Kopieren verhindern möchte. Stattdessen soll eine Meldung kommen, bitte nochmal überprüfen. Leider bin ich jetzt mit meiner Excel-Erfahrung am Ende. Könnet Ihr mir vielleicht helefen???

Vielen Dank für die Mühe!!

Gruß

zuppel

Answer 1

Hi Zuppel,

leider kann ich Dir nur zwei Deiner Anfragen beantworten.

Kopiere die beiden Makros unter - diese Arbeitsmappe !!!

Ich hoffe, ich konnte Dir hiermit dienlich sein....

In diesem Sinne... have a nice Day... Gruß Helmut

'************************* Drucken verhindern ***************
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Range("g3") < 20 Then
Cancel = True

MsgBox " g3 ist noch nicht größer gleich 20 !"

Else
End If

End Sub
'************************* speichern verhindern ************

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If Range("g3") < 20 Then
Cancel = True

MsgBox " g3 ist noch nicht größer gleich 20 !"

Else
End If
End Sub

Answer 2

Hallo,

sorry das ich erst jetzt mich erst Melde. Das mit der Druckfunkion klappt super, nur das mit dem Abspeichern nicht so ganz. Ich wollte da gern e eine Vorlage raus basteln, nur kann ich nicht speichern, da ich keine werte habe. Kann man da noch was machen?

Danke Gruß

Zuppel

Answer 3

Hallo Zuppel,

vielleicht so:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim pw As String

If Range("g3") < 20 Then

pw = InputBox("Speichern nur mit Passwort möglich!", "Eingabe")
If pw = "Zuppel" Then
Cancel = False
Else
Cancel = True
MsgBox " g3 ist noch nicht größer gleich 20 !"

End If
End If
End Sub

Das Speichern der Mappe ist nur möglich, wenn ein Passwort richtig eingegeben wird, das du natürlich nach belieben ändern kannst.

Gruß

M.O.

Answer 4

Moin,

Wenn es Dir nur darum geht, den Code aus A1 in eine leere ExcelMappe zu bringen und diese zu Speichern, dann musst Du zum Speichern den "Entwurfmodus" einschalten. (VB-Editor-> Menue "Ausfuehren"-> Entwurfsmodus) Nun kannst Du die leere Mappe mit Code speichern. Nach "Entwurfsmodus beenden" ist der Code dann "scharf".

Cu
TheBlackBird ®

Answer 5

Hallo,

danke für Euch für die super Hilfe. Ein Frage hätte ich noch. Kann man den Code erweitern, wenn der in der Zeile g3 der wert kleiner 20 ist, das Dokument dann weiter per Mail geschickt werden kann?

MIt einer Ja / Nein Meldung, "Speichern nicht möglich, wollen Sie per Mail senden? Das auch an einen bestimmten Empfänger.

Danke!!

Gruß

Zuppel