Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
432to436
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
432to436
432to436
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige