Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
432to436
432to436
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
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)

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