|
Liebe VBA - Gemeinde,
ich habe eine Eingabemaske für Geschäftsbriefe in Excel erstellt und das unten angegebene Makro läuft zuverlässig.
Leider ist der Befehl "AllowFormattingRows" zu großzügig, denn nur die Zeilen 30 bis 54 sollen formatiert (Höhenänderung) werden können. Oberhalb der Zeile 30 ist unter anderem das Adressfeld, was natürlich nicht verändert werden soll. Des Weiteren möchte ich den Benutzern ermöglichen nur die Zellen A30 bis M34 zu formatieren, also Schriftgröße, - farbe usw. Zudem soll der Blattschutz nur mittels Passwort aufgehoben werden können.
Ich freue mich auf eure Antworten! Vielen Dank vorab.
Lembrandt
Sub Workbook_Open()
Sheets(1).Protect userinterfaceonly:=True, AllowFormattingRows:=True
Sheets(1).EnableOutlining = True
Sheets(2).Protect userinterfaceonly:=True, AllowFormattingRows:=True
Sheets(2).EnableOutlining = True
Sheets(3).Protect userinterfaceonly:=True, AllowFormattingRows:=True
Sheets(3).EnableOutlining = True
Sheets(4).Protect userinterfaceonly:=True, AllowFormattingRows:=True
Sheets(4).EnableOutlining = True
Sheets(5).Protect userinterfaceonly:=True, AllowFormattingRows:=True
Sheets(5).EnableOutlining = True
Sheets(6).Protect userinterfaceonly:=True, AllowFormattingRows:=True
Sheets(6).EnableOutlining = True
End Sub
|