Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
876to880
876to880
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sperren von "Seite einrichten"

Forumthread: Sperren von "Seite einrichten"

Sperren von "Seite einrichten"
12.06.2007 22:33:17
"Seite
Guten Abend
Mein Problem ist, ich möchte eine Datei verschicken, in der ich aber den Zugriff auf den Task:
=Datei,Seite einrichten= bzw =Seitenansicht - Layout= sperren möchte.
Meine häufig wechselnden Empfänger sollen mir nur diverse Daten ergänzen, aber nicht
auf die Idee kommen, die Druckoptionen für die Seite zu ändern.
Wie geht so etwas ?
Über Antworten würde ich mich freuen.
Danke,
Hubert

Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sperren von "Seite einrichten"
12.06.2007 23:34:00
"Seite
Hallo
man kann per VBA dem Anwender die Befehls- und Menüleisten verändern, dh. man könnte auch die entsprechenden Schaltflächen entfernen, so daß er die Funktionen nicht mehr ausführen kann.
das dürfte aber etwas aufwendig zu programmieren sein, vorallem weil du sicherstellen mußt, daß nach Schließen deiner Datei alle diese Funktionen wieder genauso zur verfügung stehen wie vorher, auch im Falle eines Fehlers oder Absturzes, sonst bekommst du Ärger mit deinen Kollegen.
Einfacher scheint mir zu sein, wenn du in das Modul "DieseArbeismappe" folgendes eventgesteuerte Makro reinschreibst:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
'... hier dann dein Code, mit dem du die Seiteneinstellungen vornimmst
End Sub


dieses Makro läuft immer automatisch ab, sobald der Druck angestoßen wird.
wenn du jetzt in diesem Makro die Seiteneinstellungen setzt, können die Kollegen verstellen was sie wollen, beim Druck sind wieder deine Original-Werte drin.
Falls du nicht weißt, wie die Seitenenstellungen per VBA funktioniert, lass einfach mal den Recorder mitlaufen, da wird alles aufgezeichnet.
Gruß, Daniel

Anzeige
AW: Sperren von "Seite einrichten"
13.06.2007 00:04:01
"Seite
Hallo Daniel
Danke für Deine schnelle Antwort.
Habe es direkt mal ausprobiert. Die Seiteneinstellungen habe ich
mir, wie Du es empfohlen hast, aus dem Recorder geholt.
Das ganze funktioniert einfach super. Genau das, was ich mir
vorgestellt hatte. Bei Druck bzw Item Seitenlayout geht alles
wieder in die Urversion zurück.
Nochmals Danke und schönen Abend noch
Hubert

Anzeige
AW: Sperren von "Seite einrichten"
13.06.2007 06:37:18
"Seite
Hallo Hubert,
und was ist falls jemand die Makros nicht aktiviert?

AW: Sperren von "Seite einrichten"
13.06.2007 22:00:00
"Seite
Hi
Sogar mit aktiviertem Makro lassen sich die Seiteneinstellungen verändern, wenn man im Druckmenü VORSCHAU anstatt DRUCKEN wählt.
In der Druckvorschau kann man auch nochmal die Seiteneinstellungen veränderen, und wenn dann aus der Druckvorschau gedruckt wird, startet das Befor_Print-Makro nicht nochmal (ist ja schon vor der Vorschau gelaufen)
Spielt aber alles keine Rolle, wenn die Kollgen glauben, eine andere Einstellung sei besser, sollen sie sie doch verändern.
Wenn Hubert dann die Datei zurückbekommt und öffnet, wird er die Makros sicherlich aktiveren, und dann hat er automatisch wieder die richtigen Seiteneinstellungen, egal was die lieben Kollegen verstellt haben.
Bei der anderen Methode (deaktivieren der Menüfunktion Seiteneinstelungen) wäre es tatsächlich ein Problem, wenn die Makros vom Anwender deaktiviert werden, wäre es ja wieder möglich, die Einstellungen zu ändern.
Gruß, Daniel

Anzeige
AW: Sperren von "Seite einrichten"
15.06.2007 10:07:35
"Seite
Hallo Hajo, hallo Daniel
Ich sehe, das Thema ist eigentlich nicht so einfach.
Es gibt da scheinbar vielfältige Möglichkeiten, an die ich
überhaupt nicht gedacht habe, z.B. das Deaktivieren von Makros.
In meinem speziellen Fall komme ich allerdings mit dem Tipp von Daniel
weiter. Denn es stimmt, die anderen Kollegen können von mir aus
drucken wie sie wollen, aber wenn ich die Datei zurückbekomme, arbeite
ich MIT den Makros und dann bin ich wieder clean.
Dabei fällt mir aber ein, wenn die Datei demnächst vielleicht über mehr als
1 Tabellenblatt geht, z.b. 3 Blätter, und jedes Blatt muss eine ganz andere
Druckeinstellung haben, wie lege ich das denn in VBA fest.
Dort steht doch in Before_print nur 1ne Einstellung.
Das würde mich jetzt doch noch interessieren, da ich bestimmt in absehbarer
Zeit auf mehr als 1 Tab komme.
Danke euch schon jetzt
Hubert

Anzeige
AW: Sperren von "Seite einrichten"
15.06.2007 10:14:57
"Seite
HAllo Hubert,
ich gehe mal davon aus das nur die Aktive Tabelle gedruckt wird.
Option Explicit

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Select Case ActiveSheet.Name
Case "Tabelle1"
Case "Tabelle2"
End Select
End Sub


a href="http://Hajo-Excel.de/" target="_blank" title="Hajo's Excelseiten">Gruß Hajo

Anzeige
AW: Sperren von "Seite einrichten"
15.06.2007 10:55:44
"Seite
Hallo Hajo
Danke für die Antwort.
Ist eine gute Idee. Habe ich gerade ausprobiert.
Wenn ich Tabelle1 drucke, kommen auch die richtigen Einstellungen
dafür und wenn ich dann Tabelle2 drucke, kommen auch dafür die
richtigen Einstellungen.
Wenn ich aber mit Shift die Tabelle1 und Tabelle2 zusammen auswähle,
und dann drucken anklicke, dann druckt er mir Tabelle1 mit den richtigen,
zurückgesetzten Einstellungen und Tabelle2 mit den zzt. falschen Einstellungen
D.h. er setzt dann die Tabelle2 nicht zurück.
Nur wenn ich wie am Anfang gesagt, jede Tabelle einzeln drucke.
Gruß
Hubert

Anzeige
AW: Sperren von "Seite einrichten"
15.06.2007 11:00:30
"Seite
Hallo Hubert,
ich hate in meinem Beitrag auch geschrieben
"ich gehe mal davon aus das nur die Aktive Tabelle gedruckt wird"
Before Print wird nur einmal ausgeführt. Bei Deiner Verfahren must Du immer ale Makros für alle Tabellen ausführen.
Deine Code habe ich Leider nicht gefunden.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With Worksheets("Tabelle1")
End With
With Worksheets("Tabelle2")
End With
End Sub


Gruß Hajo

Anzeige
AW: Sperren von "Seite einrichten"
15.06.2007 11:56:57
"Seite
Hallo Hajo
ich hab das, was du jetzt gesagt hast, mal eingesetzt,
aber im Moment komm ich garnicht mehr klar.
Der Code aus meiner Beispiel-Datei lautet so.
Den hab ich mit dem Recorder aufgezeichnet und dann
in Before_print eingesetzt und ergänzt mit deinem obigen Tipp:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With Worksheets("Tabelle1")
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = "$B$2:$G$10"
With ActiveSheet.PageSetup
.LeftHeader = "&A"
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(1.77165354330709)
.RightMargin = Application.InchesToPoints(1.77165354330709)
.TopMargin = Application.InchesToPoints(1.96850393700787)
.BottomMargin = Application.InchesToPoints(1.96850393700787)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.PrintHeadings = False
.PrintGridlines = True
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 50
End With
End With
With Worksheets("Tabelle2")
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "Beispieltext für Tabelle2"
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.PrintHeadings = False
.PrintGridlines = True
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlPortrait
.Draft = True
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
End With
End With
End Sub


Gruß
Hubert

Anzeige
AW: Sperren von "Seite einrichten"
15.06.2007 12:00:51
"Seite
Hallo Hubert,
Option Explicit

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With Worksheets("Tabelle1")
With .PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
.PageSetup.PrintArea = "$B$2:$G$10"
With ActiveSheet.PageSetup
.LeftHeader = "&A"
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(1.77165354330709)
.RightMargin = Application.InchesToPoints(1.77165354330709)
.TopMargin = Application.InchesToPoints(1.96850393700787)
.BottomMargin = Application.InchesToPoints(1.96850393700787)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.PrintHeadings = False
.PrintGridlines = True
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 50
End With
End With
With Worksheets("Tabelle2")
With .PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "Beispieltext für Tabelle2"
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.PrintHeadings = False
.PrintGridlines = True
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlPortrait
.Draft = True
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
End With
End With
End Sub


Gruß Hajo

Anzeige
AW: Sperren von "Seite einrichten"
15.06.2007 14:01:53
"Seite
Hallo Hajo
Werde mir das jetzt mal in Ruhe ansehen, einbauen
und ausprobieren.
Komme aber erst heute abend dazu, das zu machen.
Melde mich dann aber umgehend mit Erfolg oder Misserfolg.
Danke,
Hubert

AW: Sperren von "Seite einrichten"
15.06.2007 20:12:00
"Seite
Hallo Hajo
habe mir deinen Code angeschaut und gesehen, dass du jeweils
bei meinen Stellen mit "ActiveSheet" dieses weggenommen hast.
Eigentlich auch klar.
Als ich dann doch noch Probleme hatte, habe ich noch 2 weitere
Stellen gefunden, wo ich das "ActiveSheet.PageSetup" in ".PageSetup"
geändert habe.
Und jetzt funktioniert das genau so, wie ich das auch gerne haben wollte.
Hajo, vielen Dank für Deine Hilfe.
Erstens hab ich meine Datei jetzt Top in Ordnung und zweitens hab ich
wieder etwas dazu gelernt.
Excel und VBA ist ja doch verdammt vielfältig.
Schönes Wochenende
Hubert
Anzeige
;

Forumthreads zu verwandten Themen

Löschen von best. Zelleninhalt
best.

Guten Mittag :-)
Ich habe mal wieder einen Wunsch *gg*
Ich würde gerne aus einem bestimmten Tabellenbereich (Spalte A) das man nach einen bestimmten Suffix (heißt das so ? :-) Sucht, und dann alles was davor steht löscht.
der Suffix heißt " | "
Vorher
001 | Testbsp1 002 |...
04.11.2008 11:06:00
Thread-ID: 1021519
7 Beiträge
summe bilden in abhängigkeit von zelleneintrag
zelleneintrag

hallo zusammen
ich hätte gerne gemäss dem beispiel gewusst, wie ich eine summe bilde in abhängigkeit
eines zelleintrages.
gruess
https://www.herber.de/bbs/user/56754.xls
13.11.2008 17:23:00
Thread-ID: 1024309
4 Beiträge
Abgleich von Zellenbereichen in 2 versch.Arbeitsbl
Zellenbereichen

Hallo Excel-Anwender,
als Anlage habe ich eine Excel-Datei mit 2.Arbeitsblättern beigefügt. Das 1.Arbeitsblatt heißt Ber.Blatt, das 2. Tabelle 2009. Auf dem 1.Arbeitsblatt ist in Zelle B3 eine Vergütungsbezeichnung angegeben. Im 2.Arbeitsblatt sind in der Spalte A5-A28 ebenfalls Vergütungsb...
21.11.2008 11:54:00
Thread-ID: 1026680
4 Beiträge
Bestimte Zeichen von Zelleninhalt auswählen
Zelleninhalt

Hallo Excelperten,
ich lese via VBA zwei Tabellen ein und erstelle daraus eine Liste. Ich überprüfe dabei, ob es bei den aktuellen Tabellen Änderungen im Vergleich zur alten Liste gibt und übertrage diese Änderungen. Dazu lese ich den Zelleninhalt (eine Product-ID) aus den einzelnen Zeilen...
08.12.2008 11:07:00
Thread-ID: 1031015
3 Beiträge
verketten unter nutzung von zelleninhalt füllen
zelleninhalt

hallo,
ich stelle derzeit in einer Notenliste die Namen der Schüler zusammen mit dem befehl:
=VERKETTEN('GT-M2 07'!C7&", "&'GT-M2 07'!D7)
wobei GT-M2 07 sich auf eine Namensliste in einem anderen Tabellenblatt bezieht. Dort sind Vor- und Zuname in einzelnen Zellen eingetrage...
21.01.2009 09:00:46
Thread-ID: 1042040
3 Beiträge
Beträge einlesen abhängig von Zellenkombination
Zellenkombination

Hallo Excelfreaks
steht vor folgendem Problem
Ausgangslage: Budgetauswertung, aufgebaut in Spalten Kostenstelle/Konto/€-Wert.
Die Kostenstellen/Kontenkombinationen finden sich in der monatlich erstellen Budgetplanwerten und Istkosten wieder.
In eine Budgetauswertung möchte ich f...
28.01.2009 17:57:00
Thread-ID: 1044655
2 Beiträge
Kopieren von Zellen in Editor
Zellen

Hallo,
wir führen eine Teileliste in Excel, die künftig in regelmäßigen
Abständen in eine txt.-Datei kopiert werden soll.
Problem hierbei sind die Leerstellen im Editor!
Gibt es einen Trick oder eine Möglichkeit den "Satz" so zusammen
zu führen, das immer nur eine Leerstell...
03.02.2009 20:54:00
Thread-ID: 1046784
3 Beiträge
Einfügen von Zeilen, Spalten u. Zellen verhindern.
Zeilen,

Hallo
Wie kann ich mit VBA das einfügen und löschen von Zeilen, Spalten und Zellen verhindern.
Wäre lieb von Euch wenn jemand mir helfen könnte
Gruß
Dino
08.03.2009 18:06:43
Thread-ID: 1057918
2 Beiträge
Addition abhängig von anderen Zelleninhalten
anderen

Hallo ich habe ein Problem, bei dem ich leider nicht weiterkomme.
In den Zellen C8, D8, und E8 können jeweils bis zu 3 verschiedene Begriffe stehen.
In meinem Fall „Central Location“ „In-Field“ und „n/a“. Es kann sein, dass ein Argument nur 1x oder bis zu 3x vorkommt mit allen mögliche...
09.03.2009 12:35:38
Thread-ID: 1058115
7 Beiträge
einzelne Zellen mit Formeln sperren
natka

Hallo Ihr Lieben Excel Begeisterte,
hättet Ihr bitte eine Tipp für mich, wie ich einzelne Zellen in einenm Tabellenblatt im Excel für Dritte sperren kann. Sie sollen zwar das Ergebnis seheh, aber nicht anklicken können. Damit meine tole Formel keinen Schaden nimmt.
Danke
natka
15.05.2009 14:20:56
Thread-ID: 1075486
4 Beiträge
max 1 Zelle von 4 Zellen gültiger Eintrag
4

Hallo zusammen,
wird in einer Zelle von 4 in der Reihe ab Zeile 6 eine 1 eingetragen so sollen die vorhanden Einträge in den Auswahlfeldern A;B;C; und D gelöscht werden!
In den Auswahlfelder darf nur immer ein Eintrag vorliegen!
Es soll damit nur ein "ODER" Eintrag durchgeführt wer...
20.05.2009 19:18:49
Thread-ID: 1076476
7 Beiträge
verlinkte Zellen von nicht verlinkten unterscheide
nicht

Guten Morgen Forum,
Ich möchte gerne aus einem Excel sheet, in dem ein sehr großer zusammenhängender Bereich mit einem anderen Sheet verlinkt ist, einen kleinen Bereich automatisiert selektieren, um daraus ein Chart zu erstellen.
Die Verlinkungen des kleinen Bereichs greifen auf Daten...
13.07.2009 09:15:44
Thread-ID: 1088118
9 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige