Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1260to1264
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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)
Anzeige
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

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)
Anzeige
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
AW: AllowFormattingRows
26.04.2012 13:59:49
Tom
Danke!

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige