Schreibschutz für Format

Hallo zusammen,
ich habe eine Problem. Meine Kollegen und ich benutzen eine Excel-Datei, bei der komischerweise wöchentlich immer das Format zerschossen wird, d.h. statt drei Seiten druckt er dann auf einmal 46 Seiten und super klein aus, weil der Seitenumbruch wieder total verstellt ist. Gibt es über Excel bzw. VBA die Möglichkeit das Format mit einem Schreibschutz zu versehen, so dass Seitenumbrüche o.ä. erst nach Eingabe eines Kennworts gemacht werden können. Wir wissen, dass einer da irgendetwas falsch macht und daher die Seite Woche für Woche neu eingerichtet werden muss. Was wäre hierfür eine Lösung?
Gibt es auch eine Lösung, dass in bestimmten Zeilen und Spalten immer die gleiche Schriftgröße und -art eingestellt bleibt und man diese nicht ändern kann? Es geht hier wirklich nur um die Sicherung des Formats, der Inhalt soll weiterhin veränderbar sein.
Danke und Gruß
Ingo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Ingo,
habe jetzt auf die Schnelle nicht alle Namen gefunden und auch nicht eruiert wieviele und welche Menuepunkte du umbelegen musst. Deshalb ist der Code so nicht brauchbar, aber funktioniert und zeigt wie du vorgehen musst.
Naja, ein meeting aller Kollegen und mal klar machen dass keiner 46 Seiten einstellen soll wäre auch ne idee :-) Und mir gehts wie Daniel, ich hätte ja noch kapiert das jmd die Schriftgröße auf 1-3 setzt und dass dann 46 Seiten anstatt 3 gedruckt werden, aber umgekehrt *grübel*
Der Code legt auf den Menuepunkt "Seite einrichten" ein Makro, d.h, ohne passwort kann keiner mehr "Seite einrichten" durchführen. erst nach Eingabe des Passwortes wird der Dialog "Seite einrichten" aufgerufen. Leider weiß ich nicht auswendig wie der Dialog für Seite einrichten heißt, deshalb habe ich den Dialog für Sortieren genommen. (wenn Fehlermeldung kommt liegt es daran dass du keine gefüllten zellen matkiert hast bei Aufruf von "Seite einrichten " was ja jetzt die Sortierungsbox aufruft, von der kommt dieFehlermeldung).
Aufgrund des Codes kannst du dein problem lösen.
Tipp, mit
For each c in Application.CommandBars
msgbox c.name
For each c in Application.CommandBars(3).controls
msgbox c.name
usw kommst du auf die Namen der Controls. Die namen der Dialoge stehen irgendwo gelistet in der Hilfe zu Dialogs. Das "&" ist der Unterstrich im menuepunkt.

Option Explicit
Sub einmaligLaufen Lassen()
With Application.CommandBars(1).Controls(1)
.Controls("Seite einr&ichten...").OnAction = "ttt"
End With
End Sub
Sub ttt()
Dim eingabe
eingabe = InputBox("passwort?")
If eingabe <> "xyz" Then Exit Sub
Application.Dialogs(xlDialogSort).Show
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..

Private Sub Workbook_Open() Select Case Environ("Username") Case "Dein Username" Sheets("Log").Visible = -1 Case Else Msgbox("Warnhinweis") With Sheets("Log") .Visible = 2 .Rows(101).Delete .Rows(2).Insert .Cells(2, 1).Value = Date .Cells(2, 2).Value = Time .Cells(2, 3).Value = Environ("Username") End With End Select End Sub

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Schreibschutz für Format

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread