Nur mit Werten gefüllte Zellen schreibschützen?

Hallo,
ich habe ein weiteres Problem: Aus einem (später mal Online-)Excel-Formular werden Daten in ein Auswertungsblatt in derselben Mappe gespielt - per Makro. Problem: Das Auswertungsblatt soll zwar von jedem angesehen werden können, nicht aber verändert - also brauche ich einen Schreibschutz. Wenn ich aber das ganze Auswertungsblatt unter Schreibschutz stellen, funktioniert das Makro nicht mehr, das ja Werte zeilenweise in die Auswertungstabelle schreibt. Wie kann ich nur *den* Bereich schreibschützen, der bereits mit Werten gefüllt ist (und dieser Bereich ändert sich natürlich mit jedem ausgefüllten Formular um eine neue Zeile)?
In diesem Forum ist mir schon so viel geholfen worden - es wäre toll, wen auch hier jemand die Antwort wüsste.
Dankeschön im voraus & Grüße
asz

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Rudi,
vielen Dank! Könntest Du mir noch sagen, wo ich die Zeile am besten einbaue? Das Formular hat einen Button 'Abschicken', der mit dem u.g. Makro verknüpft ist, das die Ergebnisse in ein Blatt 'Auswertung' spielt (und dieses soll geschützt werden).
Vielen Dank für Deine Hilfe!
ASZ


Sub Veranstaltung_neu2()
'Variablen deklarieren
Dim Wks1 As Worksheet
Dim Wks2 As Worksheet
Dim Cb As OLEObject
Dim X As Integer
'Werte an Variablen zuweisen
Set Wks1 = Sheets("Veranstaltung")
Set Wks2 = Sheets("Auswertung")
'Kopieren der Daten aus dem Sheet "Veranstaltung" in das Sheet "Auswertung"
'Wks2.Range("B65536").End(xlUp).Offset(1, 0) Diese Anweisung wählt aus Spalte B
'die erste Leere Zelle von Unten aus
Wks2.Range("B65536").End(xlUp).Offset(1, 0) = Wks1.Range("B8")
Wks2.Range("C65536").End(xlUp).Offset(1, 0) = Wks1.Range("B11")
Wks2.Range("K65536").End(xlUp).Offset(1, 0) = Wks1.Range("B21")
Wks2.Range("B65536").End(xlUp).Offset(1, 0) = Wks1.Range("C45")
Wks2.Range("AC65536").End(xlUp).Offset(1, 0) = Wks1.Range("B49")
'Rücksetzen der Checkboxen
For Each Cb In Wks1.OLEObjects
If Not IsNumeric(Right(Cb.Name, 2)) Then
X = CInt(Right(Cb.Name, 1))
Else
X = CInt(Right(Cb.Name, 2))
End If
Select Case X
'Hier kannst du noch ändern welche Checkboxen noch oder nicht mehr zurückgesetzt werden,
'indem du die Nummer der CheckBox hinzufügst oder rauslöschst
Case 2, 3, 4, 9, 10, 11, 12, 13, 14, 15, 16, 17, 23, 25, 27, 28, 29, 30
Cb.Object.Value = False
Case Else
End Select
Next
'Leeren der Zellen in Sheet "Veranstaltung"
Wks1.Range("B8,B11,B21,C45,B49").ClearContents
End Sub

Sub Veranstaltung_neu2() 'Variablen deklarieren Dim Wks1 As Worksheet Dim Wks2 As Worksheet Dim Cb As OLEObject Dim X As Integer 'Werte an Variablen zuweisen Set Wks1 = Sheets("Veranstaltung") Set Wks2 = Sheets("Auswertung") 'Sheet "Auswertung" Passwortgeschützt Wks2.protect Password:="test", userinterfaceonly:=true 'Kopieren der Daten aus dem Sheet "Veranstaltung" in das Sheet "Auswertung" 'Wks2.Range("B65536").End(xlUp).Offset(1, 0) Diese Anweisung wählt aus Spalte B 'die erste Leere Zelle von Unten aus Wks2.Range("B65536").End(xlUp).Offset(1, 0) = Wks1.Range("B8") Wks2.Range("C65536").End(xlUp).Offset(1, 0) = Wks1.Range("B11") Wks2.Range("K65536").End(xlUp).Offset(1, 0) = Wks1.Range("B21") Wks2.Range("B65536").End(xlUp).Offset(1, 0) = Wks1.Range("C45") Wks2.Range("AC65536").End(xlUp).Offset(1, 0) = Wks1.Range("B49") 'Rücksetzen der Checkboxen For Each Cb In Wks1.OLEObjects If Not IsNumeric(Right(Cb.Name, 2)) Then X = CInt(Right(Cb.Name, 1)) Else X = CInt(Right(Cb.Name, 2)) End If Select Case X 'Hier kannst du noch ändern welche Checkboxen noch oder nicht mehr zurückgesetzt werden, 'indem du die Nummer der CheckBox hinzufügst oder rauslöschst Case 2, 3, 4, 9, 10, 11, 12, 13, 14, 15, 16, 17, 23, 25, 27, 28, 29, 30 Cb.Object.Value = False Case Else End Select Next 'Leeren der Zellen in Sheet "Veranstaltung" Wks1.Range("B8,B11,B21,C45,B49").ClearContents End Sub

Beliebteste Forumthreads (12 Monate)

Nur mit Werten gefüllte Zellen schreibschützen?

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Nur mit Werten gefüllte Zellen schreibschützen?

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

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread