Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1260to1264
1260to1264
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilenhöhe trotz Blattschutz etc.

Forumthread: Zeilenhöhe trotz Blattschutz etc.

Zeilenhöhe trotz Blattschutz etc.
Tom
Hallo,
ich habe eine Exceldatei mit verschiedenen Registern. Alle Blätter haben einen Blattschutz und ich möchte den Anwendern aber erlauben, dass Sie die Zeilen und Spaltenhöhe anpassen können.
Wie kann ich dies per VBA steuern? Kann ich unter "DieseArbeitsmappe" dann nicht einen Befehl setzen? Danke für eure Hilfe im Voraus.
Tom
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zeilenhöhe trotz Blattschutz etc.
26.04.2012 12:03:24
Herbert
Hallo Tom,
so müsste es gehen. Du musst nur noch das Passwort ändern.
Sub ZeilenHöhe()
Dim iRow%, iRowHigh%, sRow$
iRow = InputBox("In welcher Zeile wollen Sie die Zeilenhöhe ändern: ", "Zeile")
sRow = iRow & ":" & iRow
iRowHigh = InputBox("Bitte geben Sie die gewünschte Zeilenhöhe ein: ", "Zeilenhöhe")
ActiveSheet.Unprotect "Passwort"
Rows(sRow).RowHeight = 18
ActiveSheet.Unprotect "Passwort"
End Sub
Servus
Anzeige
AW: Zeilenhöhe trotz Blattschutz etc.
26.04.2012 12:07:41
Dieter(Drummer)
Hi Tom,
wenn du den Schutz setzt, kannst du doch unter "Blatt schützen" die Optionen "Spalte formatieren" und "Zeilen formatieren" anhaken. Dann können die Spalten und Zeilen trotz Schutz formatiert werden.
Gruß
Dieter(Drummer)
AW: Zeilenhöhe trotz Blattschutz etc.
26.04.2012 12:11:20
Tom
Der Blattschutz setzt sich automatisch beim Schließen der Datei bzw. per Makro. Daher müsste dann dort wohl eine Anpassung erfolgen oder eben über "DieseArbeitsmappe".
Dies habe ich dort bisher stehen:
Private Sub Workbook_Open()
Dim I
For I = Worksheets(1).Index To Worksheets.Count
With Worksheets(I)
.Protect UserInterfaceOnly:=True, Contents:=True, DrawingObjects:=False, Password:="XXX"
.EnableOutlining = True
End With
Next
Sheets("Tabelle1").Select
Range("A1").Select
End Sub

Anzeige
AW: Zeilenhöhe trotz Blattschutz etc.
26.04.2012 12:34:40
Dieter(Drummer)
Hi Tom,
wie das in dein bestehendes Makro eingebaut wird, da kann ich dir nicht weiterhelfen, bin kein VBA Spezi.
Gruß
Dieter(Drummer)
AW: AllowFormattingRows
26.04.2012 13:55:43
hary
hallo tom
ungetestet. 

.Protect UserInterfaceOnly:=True, Contents:=True, DrawingObjects:=False, AllowFormattingRows:= _
True,Password:="XXX"

gruss hary
Anzeige
AW: AllowFormattingRows
26.04.2012 13:59:49
Tom
Danke!
Anzeige
Anzeige

Infobox / Tutorial

Zeilenhöhe und Blattschutz in Excel anpassen

Schritt-für-Schritt-Anleitung

Um die Zeilenhöhe in Excel zu ändern, während der Blattschutz aktiv ist, kannst du folgende Schritte ausführen:

  1. Blattschutz konfigurieren:

    • Gehe zu Überprüfen > Blatt schützen.
    • Aktiviere die Optionen Zeilen formatieren und Spalten formatieren. Dadurch können die Anwender die Zeilenhöhe und Spaltenbreite trotz Blattschutz anpassen.

  2. VBA-Code nutzen:

    • Öffne den VBA-Editor mit ALT + F11.
    • Füge den folgenden Code in das Modul ein, um die Zeilenhöhe anzupassen:
    Sub ZeilenHöhe()
   Dim iRow%, iRowHigh%, sRow$
   iRow = InputBox("In welcher Zeile wollen Sie die Zeilenhöhe ändern: ", "Zeile")
   sRow = iRow & ":" & iRow
   iRowHigh = InputBox("Bitte geben Sie die gewünschte Zeilenhöhe ein: ", "Zeilenhöhe")
   ActiveSheet.Unprotect "Passwort"
   Rows(sRow).RowHeight = iRowHigh
   ActiveSheet.Protect "Passwort"
End Sub

  3. Blattschutz in DieseArbeitsmappe aktivieren:

    • Füge den folgenden Code in den DieseArbeitsmappe-Bereich ein:
    Private Sub Workbook_Open()
   Dim I
   For I = Worksheets(1).Index To Worksheets.Count
       With Worksheets(I)
           .Protect UserInterfaceOnly:=True, Contents:=True, DrawingObjects:=False, AllowFormattingRows:=True, Password:="XXX"
           .EnableOutlining = True
       End With
   Next
   Sheets("Tabelle1").Select
   Range("A1").Select
End Sub

  4. Datei speichern und schließen, um den Blattschutz zu aktivieren.

Häufige Fehler und Lösungen

  • Fehler: Zeilenhöhe kann nicht geändert werden:

    • Stelle sicher, dass die Optionen Zeilen formatieren und Spalten formatieren im Blattschutz aktiviert sind.

  • Fehler: VBA-Code funktioniert nicht:

    • Überprüfe, ob das Passwort im VBA-Code korrekt eingegeben wurde.

Alternative Methoden

Falls du keinen VBA-Code verwenden möchtest, kannst du die Excel-Zellengröße formatieren manuell anpassen:

  1. Wähle die Zeile aus, deren Höhe du ändern möchtest.
  2. Klicke mit der rechten Maustaste und wähle Zeilenhöhe....
  3. Gib die gewünschte Höhe ein und klicke auf OK.

Praktische Beispiele

  • Beispiel 1: Du möchtest die Höhe der zweiten Zeile auf 25 setzen. Verwende den VBA-Code und gib bei der Eingabeaufforderung 2 für die Zeile und 25 für die Höhe ein.

  • Beispiel 2: Wenn du mehrere Zeilen gleichzeitig anpassen möchtest, kannst du den Code anpassen, um eine Schleife zu verwenden, die durch die gewünschten Zeilen iteriert.

Tipps für Profis

  • Verwende UserInterfaceOnly:=True im Blattschutz, um sicherzustellen, dass der Schutz nicht die Ausführung von Makros behindert.
  • Experimentiere mit den verschiedenen Optionen im Blatt schützen, um den Zugang für die Benutzer zu optimieren, während du die Integrität deines Arbeitsblatts bewahrst.

FAQ: Häufige Fragen

1. Kann ich die Spaltenhöhe auch ändern? Ja, du kannst die Höhe der Zeilen und die Breite der Spalten anpassen, solange die entsprechenden Optionen im Blattschutz aktiviert sind.

2. Wie kann ich den Blattschutz wieder aufheben? Um den Blattschutz aufzuheben, gehe zu Überprüfen > Blattschutz aufheben und gib das Passwort ein.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige