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
852to856
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
852to856
852to856
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen automatisch nach Eingabe Schützen

Zellen automatisch nach Eingabe Schützen
13.03.2007 08:50:00
jimmypikfein
Guten Morgen,
bitte um Hilfe.
kann man die bestimmte Excel Zellen automatisch nach Eingabe Schützen, und wieder aufheben?
Zellen: A2:G29
Vielen Dank für die Hilfe im voraus
Gruß
Ahmadian

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen automatisch nach Eingabe Schützen
13.03.2007 08:54:00
Oberschlumpf
Hi Ahmadian
Wie ist die Bedingung, wann in den Zellen etwas eingegeben werden darf oder nicht?
Ciao
Thorsten
AW: Zellen automatisch nach Eingabe Schützen
13.03.2007 09:02:41
jimmypikfein
Hi Thorsten,
die Bedingung immer! Und die Aufhebung (Schutz) mit "x" in Zelle A1
Gruß
Ahmadian
AW: Zellen automatisch nach Eingabe Schützen
13.03.2007 10:05:35
Oberschlumpf
Hi Ahmadian
Formatiere deine Zellen zuerst als "geschützt"
Dann schreib diesen Code in das Klassenmodul der Tabelle.
Den VB-Editor erreichst du mit Alt-F11.
' 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If _
LCase(Target.Value) = "x" Then
ActiveSheet.Protect
Else
ActiveSheet.Unprotect
End If
End If
End _
Sub
Hmm...der Code wird hier leider nicht richtig angezeigt.
(Hans bastelt wohl gerad wieder ;-) )
Lösch den "_" in den Zeilen, in denen der "_" als letztes Zeichen steht und "hol" die Folgezeile in die Zeile, in der vorher der "_" stand.
Also z Bsp die Zeilen
End_
Sub
Mach daraus
End Sub Groß/Kleinschreibung für das "x" ist egal.
Konnte ich helfen?
Ciao
Thorsten
Anzeige
AW: Zellen automatisch nach Eingabe Schützen
13.03.2007 10:35:00
jimmypikfein
ich danke euch 1000 mals für die Hilfe.
Gruß
Ahmadian
mit VBA
13.03.2007 09:09:00
Matthias
Hallo Ahmadian
Das geht mit VBA
(das kann man auch mit dem Rekorder aufzeichnen)
Mir ist aber noch unklar, wie Du es ganau meinst!
Wird bei der Eingabe irgendeiner Zelle der gesamte Bereich geschützt, kannst Du keine Daten mehr eintragen. Willst Du das wirklich so ?
Hier mal der Code zum sperren und entsperren.
in ein Modul!
Option Explicit 
Sub ZellenSchuetzen()
 Range("A2:G29").Locked = True
 ActiveSheet.Protect
End Sub
und umgekehrt 
Sub ZellenFreigeben()
 ActiveSheet.Unprotect
 Range("A2:G29").Locked = False
End Sub
Gruß Matthias
Anzeige
AW: mit VBA
13.03.2007 10:17:00
jimmypikfein
Hallo Matthias,
ich meine nach der Eingabe in die zeile 2 so die zeile automatisch geschützt werden(mit Passwort) und bei der neue Eingabe in die zeile 2, soll nach passwort gefragt werden.
Gruß
Ahmadian
AW: mit VBA
13.03.2007 10:38:01
Matthias
in die Tabelle:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim PW1 As String, Frage As String
PW1 = "1" 'Passwort anpassen
BlattschutzAus
Rows("2:2").Locked = True
BlattschutzAn
If Not Intersect(ActiveCell, (Rows(2))) Is Nothing Then
 Frage = InputBox("Bitte Pw eingeben", "Passwortabfrage", "***")
 If Frage  PW1 Then End
 If Frage = PW1 Then MsgBox "Passwort korrekt"
    BlattschutzAus
    FreigebenZeile2
End If
End Sub

in ein Modul:
Option Explicit
Sub FreigebenZeile2()
Rows("2:2").Locked = False
End Sub
Sub BlattschutzAus()
ActiveSheet.Unprotect
End Sub
Sub BlattschutzAn()
ActiveSheet.Protect
End Sub
Gruß Matthias
Anzeige
AW: mit VBA
13.03.2007 11:51:12
jimmypikfein
Hallo Matthias,
vilen Dank für deine Hilfe.
Gruß
Ahmadian

304 Forumthreads zu ähnlichen Themen

Pivot-Tabellen automatisch aktualisieren
C

Hallo,
ich möchte eine Excel Datei mit mehreren Pivot-Tabellen nachts aktualisieren, damit ich morgens aktuelle Daten vorliegen habe und nicht den Aktualisierungsprozess abwarten muss. Hinter den Pivot-Tabellen liegen Datenbank-Tabellen. Wie bekomme ich das am einfachsten hin?
Vielen D...
28.10.2008 10:27:00
Thread-ID: 1019831
2 Beiträge
Anzeige
Datei automatisch speichern nach Eingabe
Franz

Hallo zusammen,
habe folgendes Problem:
über eine Vorlage (XLT) wird ein neues Arbeitsblatt erstellt. In 2 Zellen (D7 und B13) sollen Kundennummer und Reparaturnummer eingetragen werden. Auf dem Blatt gibt es einen Button der die Datei dann speichert und zwar in der Form: Kundennummer_R...
29.04.2009 13:13:57
Thread-ID: 1071890
2 Beiträge
Pivottabellen automatisch aktualisieren
martin

Hallo,
Ich aktualisiere bis jetzt meine Pivottabellen über folgenden Code: Private Sub Worksheet_Activate() Dim pt As PivotTable For Each pt In Me.PivotTables pt.RefreshTable Next End Sub
dabei muss ich ja immer das Tabellenbaltt neu aktivieren auch wenn ich bereits in dem Tabellenbla...
05.11.2009 12:41:16
Thread-ID: 1114702
3 Beiträge
Anzeige
Filtern nach Eingabe
Steffen

Guten Morgen. Ich tüftle seit ner Weile an folgendem Sachverhalt:
Ich möchte eine Tabelle nacheinander nach allen Werte einer Spalte filtern und als PDF-Drucken. Die Spaltennummer in der gefiltert wird, steht unter
Code:
feg = ThisWorkbook.Worksheets("system").Range("E12").Value...
07.04.2010 17:24:27
Thread-ID: 1150498
7 Beiträge
Excel 2003: Tabelle automatisch aktualisieren
Melanie

Hallo liebe Community,
anbei findet Ihr mein Excel-File. Ich habe auch das Problem darin beschrieben. Falls mir jemand helfen kann, bitte schaut es euch mal an. Ich glaube man braucht dazu VBA-Programmierung.
ich danke euch
vlg
https://www.herber.de/bbs/user/76106.xls
11.08.2011 02:35:44
Thread-ID: 1225605
2 Beiträge
Automatische Änderung eines Textes nach Eingabe
lutz

Hallo Excel-Freunde,
ich würde gerne Eingaben direkt danach durch etwas anderes ersetzen - ähnlich wie eine Autokorrektur.
Die variablen Schreibe ich in Tabelle "var" Zelle D2-..., den Variablennamen in Zelle A2-...
Nach der Eingabe von z.B. "xxxc B6" soll dann daraus etwas anderes...
15.01.2012 22:08:40
Thread-ID: 1246301
3 Beiträge
Zellinhalt automatisch nach Zelleingabe kopieren
Ralf

Hallo Forum,
ich gebe in dem Bereich B21:B28 Zahlen ein und bilde in Zelle B29 daraus die Summe.
Jetzt soll nach Eingabe einer Zahl im Bereich B21:B28 automatisch die Summe nach F29 kopiert werden.
Wie kann man so was in VBA lösen?
Vielen Dank im Voraus für Eure Unterstützung.
05.10.2012 08:02:23
Thread-ID: 1280607
8 Beiträge
Tabelle einfügen & automatisch aktualisieren
Issa

Hallo Leute,
ich habe zwei Probleme bei einer Excel Tabelle..
Vorab relevante Infos:
Ich habe ein Tabellenblatt zusammengestellt, das sich Werte aus Zellen anderer Tabellenblätter rauszieht.
Mein programmiertes Tabellenblatt soll häufiger verwendet werden und ich füge es immer i...
04.03.2015 16:29:16
Thread-ID: 1412757
5 Beiträge
Anzeige

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
Archiv - Verwandte Themen
Forumthread
Beiträge
1
4
1
2
1
6
1
2
7
4
1
5
2
2
6
7
2
3
1
4
4
15
3
2
4