Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zellen schützen

Forumthread: Zellen schützen

Zellen schützen
26.05.2004 13:55:30
Alex
Hallo,
ist es möglich einzelne Zellen einer Arbeitsmappe zu schützen, damit andere Benutzer der Datei die Formeln nicht löschen können?
Wäre echt nett wenn mir jemand helfen könnte!
MfG
Alex
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen schützen
Matthias
Hi Alex,
probier mal das:

Sub Formelschutz()
Cells.Select
Selection.Locked = False
Selection.FormulaHidden = False
Call ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas).Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Konnte ich Dir helfen?
Gruss
Matthias
Anzeige
AW: Zellen schützen
Ulf
Option Explicit

Sub Formel_Schutz()
Dim sc As Range
ActiveSheet.Unprotect
Cells.Locked = False
Cells.FormulaHidden = False
On Error GoTo SCHLUSS
Set sc = ActiveSheet.Cells.SpecialCells(-4123)
sc.Locked = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
SCHLUSS:
MsgBox "Keine Formeln gefunden!"
End Sub

Ulf
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige