Office: Bestimmte Zellen sperren

Hallo Zusammen,

ich muß einen betimmten Bereich eines Blattes sperren.
Mit dem folgenden code wird leider das ganze Blatt gesperrt.
Wenn ich Blatt.Protect weglasse, wird keine Zellle gesperrt.
Ich danke Euch fpr eure Hilfe im Voraus.
Gruß
T672203

Dim Blatt As Worksheet, rng As Range

Set Blatt = Worksheets("PLAN")
Set rng = Blatt.Range(Cells(20, 1).Address, Cells(30, 30).Address)
Blatt.Unprotect
rng.Locked = True
Blatt.Protect

:)

 

Hallo T672203,

die Eigenschaft "Locked" ist standardmäßig vorgegeben, müsste also vorher gelöscht werden:

Code:

Grüße
EarlFred

 

Hallo EarlFred,

danke für die schnelle Antwort. Habe ich getestet, und fuktioniert.

Das Blatt ist gruppiert nach Zeilen.Nach Blatt.Protect kann die Gruppen ncit zu- und aufgeklapt werde.
Wie kann ich die Gruppen zu- und aufklapen.

 

Moin, t672203,

in der VBA-Hilfe zu Protect für Worksheets nachsehen, ob ein Parameter gegeben ist, bei dem dies möglich ist (sollte eigentlich, aber ich habe auch diesem Rechner kein Excel2003 zur Kontrolle).

Per VBA kann dies durch den Zusatz UserInterfaceOnly:=True erreicht werden, was die Ausführung von Makros auf der geschützten Tabelle zulässt.

 

Hi ihr,

habe ein Problem mit diesem Code.
Ich müsste einen ganzen Bereich (A1:B11) sperren.
Allerdings sperrt mir dieser Code nur die Zelle B5 und ich verstehe nicht warum?
Wie muss ich denn den Code umschreiben damit der angegebene
Bereich gesperrt wird, und nicht nur die einzelne Zelle.

Danke euch schonmal im Vorraus.

Gruß Michi


Option Explicit
Dim StAdresse As String

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
' Formeln dürfen nicht geändert werden
' sollen Formeln geändert werden, sind diese einzeln auszuwählen
' wird eine Zelle mit Formel ausgewählt, wird der zuletzt gewählte Bereich markiert
Dim RaZelle As Range
Dim InMldg As Integer
For Each RaZelle In Range(Target.Address)
' es dürfen keine Zellen mit Formeln ausgewählt werden
If RaZelle.HasFormula Then
' Diesen Teil reinnehmen, falls Formeln geändert werden dürfen
' InMldg = MsgBox("Wollen Sie die Formel ändern", vbYesNo + vbQuestion, "Formelabfrage ?", "", 0)
' If InMldg = 6 Then Exit Sub
Application.EnableEvents = False
If StAdresse "" Then
Range(StAdresse).Select
Application.EnableEvents = True
Exit For
Else
If RaZelle.Column < 256 Then
RaZelle.Offset(0, 1).Select
Else
RaZelle.Offset(0, -1).Select
End If
Application.EnableEvents = True
Exit For
End If
End If
Next RaZelle
StAdresse = Selection.Address
End Sub

 

Hallo mitch66,

der von Dir gepostete Code sperrt überhaupt keine Zellen, sondern er prüft nur, ob der ausgewählte Bereich Formeln enthält und verschiebt denn den Cursor (ohne übrigens zu prüfen, ob die dann alternativ ausgewählte Zelle wiederum Formeln enthält...).

Grüße
EarlFred

 

Hallo EarlFred,

vielen Dank für deine schnelle Antwort.
Was wäre denn eine passende Alternative zu dem Code?
dachte, er sperrt mir diese eine Zelle. Aber jetz wo du's sagst ;-)

Wie gesagt müsste eben einen Bereich sperren ohne das ganze Template
sperren zu müssen.

Funktioniert das vll mit nem "lock" - Befehl ?

Mfg

Mitch

 

Hallo Mitch,

jede Zelle hat einen Eigenschaftswert "gesperrt": Schau mal unter Zellen Formatieren|Schutz (Strg+1).
Dort muss ein Haken bei "Gesperrt" sein (ist standardmäßig in jeder Zelle gesetzt). Wenn das Blatt nun geschützt wird, ist diese Zelle ebenfalls geschützt.
Den Haken setzen oder aufheben kann man mit VBA über die Eigenschaft "Locked = True / False". Aber auch hierdurch allein ist die Zelle / der Bereich noch nicht geschützt. Das passiert erst durch den Blattschutz.

Oder einfach:
Es gibt keinen Schutz einer Zelle, ohne das Blatt zu schützen.

Auf den Bereich A1:B11 angepasst:

Code:

Die einzige Variante ist die von Dir gepostete Idee (wenn auch noch anzupassen): Den Auswahlbereich "versetzen", wenn ein verbotener Bereich ausgewählt wurde. Aber das ist eine Krücke, die noch einfacher als ein Blattschutz zu umgehen ist.

Grüße
EarlFred

 

Hallo EarlFred,

vielen Dank für deine Idee.
Habe das ganze jetzt so gelöst, das ich meine Relevanten Felder
gesperrt habe und bei den anderen den Hacken im entsprechenden
Dialogfeld entfernt habe. Das mit dem VBA Code klappt nicht so ganz,
denn wenn ich die Mappe erneut öffne befindet sich der Hacken immer
noch im Kästchen.

Aber vielen Dank für deine Mühe, hast mir auf jeden Fall weitergeholfen.

Gruß Mitch

 

Hallo Mitch,

hast Du die Datei nach dem Codedurchlauf gespeichert? Dann sollten die Haken richtig gesetzt bzw. nicht gesetzt sein...

Grüße
EarlFred

 

Hallo nochmal,

habe das problem nun mit VBA gelöst ( war so wie EarlFred ) gesagt hatte ;-)

So nun mal weiter nerven hab ich nochmal ne Frage.

Und zwar habe ich ein Excel - Datei mit insgesamt 16 Templates darin.
Davon möchte ich ein Tabellenblatt als "einzel - template" per Makro speichern. Das klappt soweit auch.

Problem ist nur, das in diesem Tabellenblatt Verknüpfungen enthalten sind.
Wenn ich nun die Original - Datei mit den 16 Templates schließe, und die abgespeicherte Datei öffne bekomme ich jedes mal eine Fehlermeldung, ob ich die Verknüpfungen aktualisieren möchte oder nicht.

Kann man diese Meldung per VBA irgendwie unterdrucken?

PS: Denn manuellen Weg über "Verknüpfungen" anklicken kenne ich. Hätte gerne das das ganze automatisch über VBA gelöst wird.

Vielen Dank im Voraus

Gruß Mitch

 

Ich habe eine Frage zu dem Sperr-Makro:

Code:

Wie kann ich weitere Bereiche sperren?
z.B. A1:A2 und C10:C20

 

Moin!
Starte mal den Rekorder, markiere Deine Bereiche bei gedrückter Strg-Taste und schaue Dir den Code an (vorher Aufzeichnung beenden).
Dies dürfte Deine Frage bereits beantworten.

Gruß Ralf