Office: Bestimmte Spalten sperren/entsperren

Artistline · 18. September 2013

Hallo zusammen,

ich komme leider mit mein Wissen nicht mehr weiter...
Ich habe in Excel 2003 ein Punktematrix erstellt.
Der Nutzer soll per Button "Weiter" immer nur eine Spalte ausfüllen können.
Als Beispiel habe ich die Testdatei eingefügt.
Vorgehensweise:

1) Datei öffnen (Alle Zellen sind gesperrt)

2) Ich drücke auf "Weiter" Taste und kann mit dem Ausfüllen beginnen.
Datei wird die erste Spalte (D5 : D10) entsperrt und die übrigen Spalten sind gesperrt und gleichzeitig werden diese Spalten grau gefärbt. Dabei muss nicht jede Zeile in dieser weißen Spalte ausgefüllt werden, daher keine Bedingung dafür im Code.

3)Ich drücke auf "Weiter". 2te Spalte (E5 : E10) wird entsperrt und gleichzeitig werden alle anderen Spalten gesperrt und grau gefärbt. So geht es weiter bis die letzte Spalte. Also wandert die weiße Spalte immer mit und ist immer entsperrt und die grauen gesperrt. Bei der letzten Spalte sollte dann nach dem drücken auf "Weiter" Taste wieder das Ganze von vorne beginnen und die erste Spalte wiederentsperrt und weiss sein bzw. die übrigen grau.

Den Code für Punkt 1 bis 2 habe ich...leider bekomme ich Punkt 3) die Schleife nicht hin...hoffe ihr könnt helfen.

Hier mein Code:

Code:

Private Sub Weiter_Click()

Worksheets("Punktematrix").Activate

With ActiveSheet
.Unprotect Password:=1234 ' Blattschutz aufheben
.Range("E5:I10").Interior.Color = RGB(189, 189, 189) 'Zellen färben
.Range("E5:I10").Locked = True ' alle Zellen sperren
.Range("D5:D10").Locked = False ' erste Antwortzelle freigeben
.Protect Password:=1234 ' Blatt schützen
.EnableSelection = xlUnlockedCells ' nur nichtgesperrte Zellen auswählbar
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Artistline

:)

Hasso · 19. September 2013

Hallo Artistline,

hier meine Lösung: Code:

Option Explicit

Private Sub Workbook_Open()
With Worksheets("Punktematrix")
.Unprotect Password:=1234
.Range("D5").Activate
.Range("D5:D10").Locked = False ' Spalte D sperren
.Protect Password:=1234
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Option Explicit

Private Sub Weiter_Click()

Dim intSpalte As Integer
Dim intZeile As Integer
Dim rngZelle As Range

On Error GoTo Fehler
With Worksheets("Punktematrix")
.Unprotect Password:=1234 ' Blattschutz aufheben
intSpalte = Selection.Column
If intSpalte < 9 Then
intSpalte = Selection.Column + 1
Else
intSpalte = 4
End If
Cells(5, intSpalte).Activate
.Range("D5:I10").Interior.Color = xlNone ' alle Zellen sperren
.Range(Cells(5, intSpalte), Cells(10, intSpalte)).Interior.Color = RGB(189, 189, 189) 'Zellen färben
.Range("E5:I10").Locked = True ' alle Zellen sperren
.Range(Cells(5, intSpalte), Cells(10, intSpalte)).Locked = False ' erste Antwortzelle freigeben
.EnableSelection = xlUnlockedCells ' nur nichtgesperrte Zellen auswählbar
Fehler:
.Protect Password:=1234 ' Blatt schützen
End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Artistline · 20. September 2013

Hallo Hasso,

super herzlichen Dank.
Ist allerdings nur noch eine Sache. Wenn ich die Datei öffne dann ist die letzte Spalte (I) grau und ich kann dort was eintragen...kann aber auch gleichzeitig in Spalte (D) was eintragen. Wenn ich weiter klicke dann kann ich zwar immer in der grauen Spalte was eintragen aber immer leider ist die Spalte (D) entsperrt...Entsperrt soll ja nur die graue Spalte sein und Rest gesperrt.

Also was hier noch fehlt: Beim öffnen nur Spalte D grau und nur dort soll man was eintragen können.
Und beim Weiterklicken soll nur die graue Spalte entsperrt sein....

Edit1: habe jetzt meinen Code von oben als Workbook_open genommen. Somit das Problem beim Öffnen gelöst....allerdings bleibt die Spalte D immer entsperrt....auch beim weiterklicken...

Code:
Code:

Private Sub Workbook_Open()
Worksheets("Punktematrix").Activate

With ActiveSheet
.Unprotect Password:=1234 ' Blattschutz aufheben
.Range("E5:I10").Interior.Color = RGB(189, 189, 189) 'Zellen färben
.Range("E5:I10").Locked = True ' alle Zellen sperren
.Range("D5:D10").Locked = False ' erste Antwortzelle freigeben
.Protect Password:=1234 ' Blatt schützen
.EnableSelection = xlUnlockedCells ' nur nichtgesperrte Zellen auswählbar
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Edit2: So ich habe mal etwas verändert...Problem mit der Spalte D bleibt leider gleich....Egal welche Zeile markiert ist bzw. wenn man "Weiter" klickt, kann man in der Spalte D was reinschreiben. Es ist immer entsperrt...siehe Anhang!

Gruß Artistline

Artistline · 20. September 2013

So habs endlich hinbekommen.....danke dir herzlich nochmal für deine Hilfe...

hier der Code:

Code:

Private Sub Weiter_Click()

Dim intSpalte As Integer
Dim intZeile As Integer
Dim rngZelle As Range

On Error GoTo Fehler
With Worksheets("Punktematrix")
.Unprotect Password:=1234 ' Blattschutz aufheben
intSpalte = Selection.Column
If intSpalte < 9 Then
intSpalte = Selection.Column + 1
Else
intSpalte = 4
End If
Cells(5, intSpalte).Activate
.Range("D5:I10").Interior.Color = RGB(255, 255, 255) ' alle Zellen sperren
.Range(Cells(5, intSpalte), Cells(10, intSpalte)).Interior.Color = RGB(255, 255, 0) 'Zellen färben
.Range("D5:I10").Locked = True ' alle Zellen sperren
.Range(Cells(5, intSpalte), Cells(10, intSpalte)).Locked = False ' erste Antwortzelle freigeben
.EnableSelection = xlUnlockedCells ' nur nichtgesperrte Zellen auswählbar
Fehler:
.Protect Password:=1234 ' Blatt schützen
'MsgBox "Es ist ein Fehler aufgetreten!"
End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Artistline

hhjoe · 29. November 2016

Hallo,

ich wärme diesen Thread mal auf. Mir hat dieser Code bisher super geholfen. Nun müsste ich aber noch die Funktion einbauen, dass man nur weiter kommt wenn man die Pflicht Zellen ausgefüllt hat. Dies wollte ich so definieren, dass eine bestimmte ANzahl an Zellen ausgefüllt sein muss, da ich auch leere Zellen in der SPalte habe. In diesem Beispiel dürfte es also nur weiter gehen, wenn man 4 Felder ausgefüllt hat. Irgendwie komme ich nicht drauf wo ich das einbaue. Ich lerne gerade erst VBA.

Grüße
Josef

Hasso · 11. Dezember 2016

Hallo Josef,

ich hoffe, ich habe deinen Wunsch richtig verstanden. Dann könnte man das so lösen: Code:

Option Explicit

Private Sub Weiter_Click()

Dim intSpalte As Integer
Dim intZeile As Integer
Dim rngZelle As Range

On Error GoTo Fehler
With Worksheets("Punktematrix")
.Unprotect Password:=1234 ' Blattschutz aufheben
intSpalte = Selection.Column
' wenn in einer Spalte weniger als 4 Zahlen eingegeben wurden
' kommt eine Fehlermeldung und das Makro wird abgebrochen:
If Application.WorksheetFunction.Count(Range(Cells(5, intSpalte), Cells(10, intSpalte))) < 4 Then
MsgBox "Sie müssen mindestens 4 Zahlen eingeben!"
Exit Sub
End If
If intSpalte < 9 Then
intSpalte = Selection.Column + 1
Else
intSpalte = 4
End If
Cells(5, intSpalte).Activate
.Range("D5:I10").Interior.Color = RGB(255, 255, 255) ' alle Zellen sperren
.Range(Cells(5, intSpalte), Cells(10, intSpalte)).Interior.Color = RGB(255, 255, 0) 'Zellen färben
.Range("E5:I10").Locked = True ' alle Zellen sperren
.Range(Cells(5, intSpalte), Cells(10, intSpalte)).Locked = False ' erste Antwortzelle freigeben
.EnableSelection = xlUnlockedCells ' nur nichtgesperrte Zellen auswählbar
Fehler:
.Protect Password:=1234 ' Blatt schützen
'MsgBox "Es ist ein Fehler aufgetreten!"
End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Bestimmte Spalten sperren/entsperren

Bestimmte Spalten sperren/entsperren

Bestimmte Spalten sperren/entsperren

Bestimmte Spalten sperren/entsperren

Bestimmte Spalten sperren/entsperren - Similar Threads - Bestimmte Spalten sperren

Wörter suchen, wenn ein Wort gefunden, bestimmten Wert in Spalte ausgeben

Anzahl einer bestimmten Spalte wenn innerhalb eines Monats liegen

Feiertagsname in bestimmte Spalte

wenn bestimmtes Zeichen in Spalte

Bestimmten Wert in Spalte suchen, aber andere Werte fortlaufend ausgeben

bestimmte Spalten sperren

Zelle für bestimmten Wert sperren, wenn in der Spalte nicht ein Wert erfüllt ist