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

Zellenschutz automatisieren

Zellenschutz automatisieren
28.10.2003 15:58:01
Wolfgang
Hallo zusammen,

besteht über VBA die Möglichkeit, den Zellenschutz zu automatisieren ?
Unter bestimmten Optionen,soll eine Zelle geschützt bleiben und nur unter bestimmten Kriterien ( z.B. Zelle A1=1)beschreibbar sein.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellenschutz automatisieren
28.10.2003 16:09:30
Uli
'Im VB Bereich des Arbeitsblattes musst Du hinterlegen:


Private Sub Worksheet_Change(ByVal Target As Range)
'Zelle A1 wurde geändert
If Target.Column = 1 And Target.Row = 1 Then
Zelle_entsperren
End If
End Sub


'Dann in einem normalen Modul hinterlegen:
sub Zelle_ensperren
If ActiveSheet.Protect = True Then
ActiveSheet.Unprotect
End If
Range("a2").Select 'Zelle, die verändert werden soll entsperren
Selection.Locked = False
ActiveSheet.Protect 'Blattschutz wieder aktivieren
End Sub

Anzeige
AW: geht aber aufwendig
28.10.2003 21:08:18
Wolfgang
Hallo auch Wolfgang

habe leider keine Möglichkeit ( Datei ist im Geschäft )
dir gleich zu helfen.

aus dem Gedächtnis:

in das worksheet:
worksheet.selection.change

if activesheet.Range("a1") = 1 then
if not intersect.range("die zu schützende zelle") is nothing then
( ist glaub ich falsch )
active.worksheet.protect
end if
end if

funzt so

wenn in die Zelle selectiert wird schützt sich das komplette Blatt.

mail mir mal

mfG
Wolfgang
AW: Zellenschutz automatisieren
29.10.2003 13:23:13
Wolfgang
Danke für eure Tipps,

komme damit aber nicht so einfach klar-sorry.

Kann mir evtl. mal einer eine Übungsdatei erstellen?

Grüße

Wolfgang
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige