Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
440to444
440to444
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formeln via Makro schuetzen

Forumthread: Formeln via Makro schuetzen

Formeln via Makro schuetzen
15.06.2004 21:19:50
Hansueli
Möchte Formeln via Makro schützen, habe eine Lösung gefunden, nämlich folgende

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

Funktioniert auch. Das Makro hat nur einen Schönheitsfehler:
Excel gibt eine Fehlermeldung aus die besagt, dass diese Zelle geschützt ist, und wie man verfahren soll um den Schutz aufheben etc. etc. Ich möchte nun eine Passwortabfrage in besagtes Makro einbauen so dass der Blattschutz nicht ohne weiteres aufgehoben werden kann, weiss nur nicht wie.
Vielen Dank für eine Lösung
Hansueli
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formeln via Makro schuetzen
Udo 

Sub Formelschutz()
With ActiveSheet
On Error Resume Next
.Unprotect Password:="xxx"
.Cells.Locked = False
.Cells.FormulaHidden = False
.Cells.SpecialCells(xlCellTypeFormulas).Locked = True
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="xxx"
End With
End Sub

Udo
Anzeige
AW: Formeln via Makro schuetzen
15.06.2004 22:09:24
Hansueli
Vielen Dank Udo, es funktioniert, habe aber jetzt bemerkt, dass die Autofilterfunktion nicht mehr zu gebrauchen ist. Kann man das auch noch hinkriegen, dass diese Funktion weiterhin aktive ist?
Gruss Hansueli
AW: Formeln via Makro schuetzen
Udo
Der Filter muss bei Schützen aber schon eingeschaltet sein!

Sub Formelschutz()
With ActiveSheet
On Error Resume Next
.Unprotect Password:="xxx"
.Cells.Locked = False
.Cells.FormulaHidden = False
.Cells.SpecialCells(xlCellTypeFormulas).Locked = True
.EnableAutoFilter = True
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="xxx"
End With
End Sub

Anzeige
AW: Formeln via Makro schuetzen
16.06.2004 20:57:04
Hansueli
Udo, das Makro läuft, der Schutz ist da, aber sobald die Mappe geschützt ist arbeitet der Autofilter nicht mehr, der Mauszeiger verändert sich zwar zu einer Hand, das ist auch alles. Klar dass ich den Filter vor dem Makro ausführen gesetzt habe. Es muss doch einen Weg geben.
Gruss Hansueli
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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