Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: -----> Wer macht mit? Excel-Loesung bei TWITTER <-
Forum-Regeln :: FAQ :: Forum-Suche :: Mitgliederliste :: Benutzergruppen :: Favoriten ::  Registrieren :: Profil :: Briefkasten :: Login
Bedingt Zellen sperren / entsperren
Office Forum -> Excel Forum -> Excel VBA (Makros)
zurück: Userform Checkbox (jeweilige Arbeitsmappe ausdrucken) weiter: Macro mit Tastenkombination in PERSONL.XLS: Fehler 1004 Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort
Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
BK
Gast


Verfasst am:
27. Jan 2004, 12:11
Rufname:

Bedingt Zellen sperren / entsperren - Bedingt Zellen sperren / entsperren

 Nach oben
       
Also erstmal Sorry für die dumme Frage, aber ich habe ca. 100 Posts gelesen, aber keiner passt wirklich zu meinem Problem.

Ich habe ne Excel Tabelle die geschützt ist, alle Zellen sind ebenfalls geschützt, außer ein paar Eingabefelder.

Jetzt will ich in einem bestimmten Eingabefeld ein "x" bzw. eine "0" (Null) eintippen und dann soll ein weiteres Feld freigegeben sein.

Leider weiß ich rein gar nix über Makros... Sad

Kann mir jemand ne genue Anleitung (für dumme) geben, wie das klappt?


MfG
BK
Kuwe
Excel-Anwender mit VBA


Verfasst am:
28. Jan 2004, 10:37
Rufname: Uwe

AW: Bedingt Zellen sperren / entsperren - AW: Bedingt Zellen sperren / entsperren

 Nach oben
       
Hallo BK,

füge folgenden Code in das Modul der entsprechenden Tabelle ein
(Rechtsklick auf den Blattnamen im Register, Code anzeigen):
Code:
Private Sub Worksheet_Activate()
With ActiveSheet
  .Unprotect
  .Range("B1").Locked = .Range("A1").Value = ""
  .Protect
End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
  Target.Parent.Unprotect
  Range("B1").Locked = Target.Value = ""
  Target.Parent.Protect
End If
End Sub

In diesem Beispiel wird die Zelle B1 entsperrt, wenn in Zelle A1 irgendwas steht und gesperrt, wenn Zelle A1 leer ist.
Die Zellen mußt Du entsprechend ändern.
_________________
Gruß Uwe
Gast



Verfasst am:
13. Apr 2006, 20:39
Rufname:

AW: Bedingt Zellen sperren / entsperren - AW: Bedingt Zellen sperren / entsperren

 Nach oben
       
Und wenn ich das nicht nur für A1 sondern für A6:A27 will??? Question Question Question
Midnight_Walker
Gast


Verfasst am:
26. Apr 2010, 18:05
Rufname:

AW: Bedingt Zellen sperren / entsperren - AW: Bedingt Zellen sperren / entsperren

 Nach oben
       
Midnight_Walker am 25. Apr 2010 um 17:30 hat folgendes geschrieben:
Da das Thema wohl am ehesten mein Problem behandelt, führe ich das nun mal weiter.
Ich habe einen Sheet in dem in bestimmten Zellen per WENN Formel bestimmte Werte erscheinen.
Nun will ich, dass z.B. Wenn B1 ="Bitte Eingabe", diese entsperrt wird. Das Makro soll dies, aber führ jede Zelle in Spalte B einzeln überprüfen. Den hier geposteten Code für 400+ Zellen zu erweitern ist nicht nur mühsam, sondern IMO auch sehr fehleranfällig.

Da ich leider auch zu den Makro-Frischlingen gehöre kann ich von mir aus obigen Code nicht entsprechend anpassen.

Bin für Hilfe schon jetzt dankbar und hoffe, dass ich mit meiner Frage mehr Erfolg habe als mein Vorposter.

Na, das gibts doch nicht, dass mir hier keiner weiter helfen kann
SteveK.
Neuling


Verfasst am:
26. Jul 2010, 15:46
Rufname:

Re: AW: Bedingt Zellen sperren / entsperren - Re: AW: Bedingt Zellen sperren / entsperren

 Nach oben
       
Anonymous - 13. Apr 2006, 20:39 hat folgendes geschrieben:
Und wenn ich das nicht nur für A1 sondern für A6:A27 will??? Question Question Question


Hallo zusammen,

bin neu hier und habe bereits erfolgreich den oben stehenden Code verwendet. Mein Problem ist lediglich, dass ich Bereiche sperren möchte. Auch dies geht wenn ich statt der Zellenbezeichnung "A1" z.B. "A1:A10" angebe! Ich würde jedoch gerne sobald die Zelle A1 leer ist, den Bereich B1:AQ1 sperren! Auch das geht einzeln. Doch nun möchte ich einen Code haben der es mir ermöglicht den auf eine Zeile bezogenen Code auf die ersten 2000 Zeilen anzuwenden. Ich möchte das Ganze nicht für jede Zeile neu eingeben.

Hat einer von Euch vielleicht ne Ahnung wie ich das anstellen kann?

Das wäre super!

Vielen Dank schon mal!

Grüße Steve

Momentaner Code:

Private Sub Worksheet_Activate()
With ActiveSheet
.Unprotect
.Range("B1:AQ1").Locked = .Range("A1").Value = ""
.Protect
End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Target.Parent.Unprotect
Range("B1:AQ1").Locked = Target.Value = ""
Target.Parent.Protect
End If
End Sub
Neues Thema eröffnen   Neue Antwort erstellen     Nach oben Alle Zeiten sind
GMT + 1 Stunde
Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Zellen miteinander verlinken 2 holfloser Gast 722 07. Feb 2005, 10:50
holfloser Gast Zellen miteinander verlinken
Keine neuen Beiträge Excel Formeln: zellen verbinden 1 Gast 524 22. Jan 2005, 01:11
jochenj zellen verbinden
Keine neuen Beiträge Excel Formeln: farbige Zellen schützen? 8 BertM 611 08. Jan 2005, 01:30
Markus Johann farbige Zellen schützen?
Keine neuen Beiträge Excel Formeln: Datum aus mehreren Zellen zusammensetzen. 9 gast2005 1877 25. Dez 2004, 22:33
Kuwe Datum aus mehreren Zellen zusammensetzen.
Keine neuen Beiträge Excel Formeln: 3 oder mehr zellen identisch = textausgabe??? 1 z!eldr0hne 524 11. Nov 2004, 12:55
ae 3 oder mehr zellen identisch = textausgabe???
Keine neuen Beiträge Excel Formeln: aus verschiedenen Zellen eine Hyperlink erstellen? 2 MrMr 1141 28. Okt 2004, 19:43
MrMr aus verschiedenen Zellen eine Hyperlink erstellen?
Keine neuen Beiträge Excel Formeln: Inhalt mehrerer Zellen in einer Zelle wiedergeben? 3 B3n0X 2078 24. Sep 2004, 16:09
BenoX Inhalt mehrerer Zellen in einer Zelle wiedergeben?
Keine neuen Beiträge Excel Formeln: Gruppieren v. bestimmten Spalten/Zellen 1 Gast 2571 21. Sep 2004, 16:41
fl618 Gruppieren v. bestimmten Spalten/Zellen
Keine neuen Beiträge Excel Formeln: Nichtleere Zellen zählen 2 Gast 1229 21. Sep 2004, 10:37
Gast Nichtleere Zellen zählen
Keine neuen Beiträge Excel Formeln: automatische Farbänderung mehrerer Zellen 5 Gast 1452 14. Sep 2004, 15:11
Cubitus007 automatische Farbänderung mehrerer Zellen
Keine neuen Beiträge Excel Formeln: Nur zellen mit einer bestimmten farbe anzeigen 0 Gast 1049 05. Aug 2004, 18:33
Gast Nur zellen mit einer bestimmten farbe anzeigen
Keine neuen Beiträge Excel Formeln: Text in verschiedene Zellen aufteilen 5 Thompsen 937 30. Jul 2004, 13:12
Gast Text in verschiedene Zellen aufteilen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Tipps