Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
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
504to508
504to508
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Schreibschutz realisieren

Forumthread: VBA: Schreibschutz realisieren

VBA: Schreibschutz realisieren
21.10.2004 08:21:13
Peter/Berlin
Guten Morgen VBA-Fans,
ein Workbook mit nur einem Blatt soll als Urform (Formblatt, Vorlage) benutzt
werden. Dazu soll mittels VBA-Code ein Schreibschutz realisiert werden z.B.
durch

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
End Sub

Wie muss der VBA-Code lauten oder wie kann der Schreibschutz gegen versehentl.
Überschreiben sonst eingeschaltet werden?
Wer kann mir hier weiterhelfen?
Gruss aus Berlin von Peter
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: VBA: Schreibschutz realisieren
Georg
Hallo,
ist hier aus dem Forum.

Sub Schutz_ein()
' Blaetter schuetzen:
For intSheet = 1 To Worksheets.Count
Worksheets(intSheet).Protect "DeinSuperMegaPasswort"
Next intSheet
End 


Sub


Sub Schutz_aus()
' Blattschutz aufheben:
For intSheet = 1 To Worksheets.Count
Worksheets(intSheet).Unprotect "DeinSuperMegaPasswort"
Next intSheet
End Sub



Grüße

Georg
Anzeige
AW: VBA: Schreibschutz realisieren
21.10.2004 14:57:09
Peter/Berlin
Hi Georg,
ich meine aber nicht den Blattschutz für einzelne Blätter im Workbook
sondern den (Schreib-)Schutz der Excel-Datei gegen unbeabsichtigtes Überschreiben (mit Befehl Speichern oder Speichern unter) !
Gruss Peter
AW: VBA: Schreibschutz realisieren
21.10.2004 19:44:52
Harry
Hallo Peter,
versuch's mal im Projekt "DieseArbeitsmappe" mit folgenden Codes:

Private Sub Workbook_Open() 'aktiviert Schutz, falls noch keiner vorhanden ist...
If ActiveWorkbook.ReadOnly Then
Exit Sub
Else
ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
End If
End Sub



Private Sub Workbook_BeforeClose(Cancel As Boolean) 'verhindert Speichern-Abfrage
' beim Schliessen...
If ActiveWorkbook.ReadOnly Then
ActiveWorkbook.Saved = True
Application.DisplayAlerts = False
End If
End Sub

Gruss Harry
Anzeige
AW: VBA: Schreibschutz realisieren
Klaus
Hallo Peter,

Sub Schreibschutz()
SetAttr "c:\Beispieldatei.xls", vbReadOnly
End Sub

Gruß Klaus
;

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