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

Beim öffnen autom. Schutz v. Zellen mit Werten

Beim öffnen autom. Schutz v. Zellen mit Werten
02.09.2006 17:17:40
PC-Doc
Hallo Excel-Kenner,
ich würde gerne eine Funktion/MAkro nutzen, die beim Öffnen einer Excel-Datei die mit Werten gefüllten Zellen schützt. In die leeren soll geschrieben werden können und nach dem speichern und wieder öffnen... tata auch die bei der letzten Sitzung hinzugefügten Wertezellen sind geschützt!
Ohne das die Ausfüller etwas daran drehen können - also nach dem speichern und wieder öffnen alle Werte geschützt.
Vielen Dank für Tipps - Excel ist nicht so meine Spezielbaustelle...
programmieren mehr so php und Javascript also keine Angst ich käme auch mit VBA Code zurecht
PC-Doc

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

Betreff
Datum
Anwender
Anzeige
AW: Beim öffnen autom. Schutz v. Zellen mit Werten
02.09.2006 17:35:38
Josef
Hallo Doc!
In das Modul "DieseArbeitsmappe".
' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Const strPW As String = "deinPasswort" 'Anpassen

Private Sub Workbook_Open()
Dim rng As Range
With Sheets("Tabelle1") 'Tabellenname - Anpassen!
  .Unprotect strPW
  .Cells.Locked = False
  On Error Resume Next
  Set rng = .Cells.SpecialCells(xlCellTypeConstants)
  If Not rng Is Nothing Then rng.Locked = True
  Set rng = .Cells.SpecialCells(xlCellTypeFormulas)
  If Not rng Is Nothing Then rng.Locked = True
  Err.Clear
  On Error GoTo 0
  .Protect strPW
End With
End Sub


Gruß Sepp

Anzeige
AW: Beim öffnen autom. Schutz v. Zellen mit Werten
02.09.2006 17:56:01
PC-Doc
Jepp Sepp Mille Gracie das funktioniert!
nur noch ein Häkchen - mein Excel fragt mich mal eben ob es das Makro ausführen soll und wenn ich Nein sage, dann ist der Schutz nicht wirksam und die Datei offen...
Gruß
PC-Doc
AW: Beim öffnen autom. Schutz v. Zellen mit Werten
02.09.2006 19:05:32
Josef
Hallo Doc!
1.) Ohne aktivierte Makros kann das nicht laufen.
2.) Schreibe den Code in das "BeforeClose" Ereignis. Nachteil, es wird immer die Frage
zum Speichern gestellt, auch wenn nichts in der Tabelle geändert wurde.
Gruß Sepp

AW: Beim öffnen autom. Schutz v. Zellen mit Werten
02.09.2006 18:57:17
PC-Doc
Ok ich schütze das Blatt komplett und generell und nur durch die MAkroschleife wird der Schutz der leeren aufgehoben...
nochma Dank an Sepp!
Anzeige

303 Forumthreads zu ähnlichen Themen

Zellen mit Werten aus darüberliegender Zelle fülle
Andreas

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....
11.08.2008 08:59:25
Thread-ID: 1000713
4 Beiträge
Anzeige
Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Letzte Zelle & Mittelwert
Frank

Hallo,
ich möchte den Mittelwert von z.B. A2 bis A(XYZ) ermitteln.
Die Letzte Zelle kann ich aus der Variable Letzte_Vlinie auslesen.
Wie muß die Befehlszeile in einem Makro aussehen damit xyz durch den Inhalt der Variable ersetzt wird.
Gruß und danke
Frank
05.11.2008 09:22:11
Thread-ID: 1021766
5 Beiträge
Anzeige
Leere zellen nicht leer und Zahlen keine Zahlen
P.Mackes

Per google bin ich zwar auf einige themen gestoßen, die sich mit diesen oder ähnlichen Probleme beschäftigen, aber so richtig gepasst hat für mich nichts oder die lösungen waren vba basiert und das kann ja nicht der stein der Weisen sein.
https://www.herber.de/bbs/user/56887.xls
es tre...
18.11.2008 11:08:00
Thread-ID: 1025551
10 Beiträge
Zellen mit bestimmtem Wert leeren
P.Mackes

ich möchte innerhalb einer gewählten range alle Zellen, die einen bestimmten Wert enthalten einfach leeren, also nicht löschen, sondern quasi den effekt, wenn man in die zelle geht und entfernen drückt
hat da jemand ein handliches makro parat?
mfg, Peter
03.12.2008 08:52:34
Thread-ID: 1029679
8 Beiträge
Abstände zwischen Zellen mit gleichem Wert
Arn

Hallo, muß einen Fahrplan erstellen und den Abstand zwischen Logistikzügen berechnen
In der ersten Zeile ist die Uhrzeit in 5min Schritten abgetragen, darunter in der Zeile 2 bzw. 4 welcher Zug gerade in der Halle ist. Ich möchte jetzt für den Ankunft eines Zuges die Dauer bis zur Ankunft d...
02.02.2009 16:33:00
Thread-ID: 1046316
5 Beiträge
Wieviele Zellen im Range sind NICHT leer
Mandy

Hi.
wie kann ich denn ein Range C3:C13 auf meinem Sheet "Daten" so abfragen, damit ich in einem Label stehen habe, wieviel von diesen Zellen noch leer sind, sprich noch keinen Inhalt haben ?
Danke Mandy
12.02.2009 14:48:00
Thread-ID: 1050080
6 Beiträge
Wert mit VBA suchen und Zelle aktivieren
Nico

Moin
Ich habe eine Abrechnungsdatei und folgendes Problem
In einem Tabellenblatt werden Informationen wie Firmenname und Co. eingetragen.
In der letzten Spalte dieses Blatte möchte ich gerne das Datum per VBA eintragen lassen, an dem ich die Rechnungsnummer über mein Abrechnungstabe...
16.02.2009 16:07:00
Thread-ID: 1051203
2 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
3
5
4
4
9
7
4
5
1
17
4
7
3
3
4
1
10
3
3
2
9
5
2
2