Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
656to660
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
656to660
656to660
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Speichern durch VBA verhindern

Speichern durch VBA verhindern
26.08.2005 15:01:32
Oliver
Hallo Excel-Freunde,
bei uns im Firmennetzwerk müssen einige User in meine Excel-Tabellen
schauen. Die Dateien können dann von diesen Usern geändert werden, ich
möchte aber unterbinden, das diese die geänderten Tabellen auch abspeichern.
Wie müsste das Makro dazu aussehen ?
Es soll dann eine Infobox kommen mit dem Text:
"Sie sind nicht berechtigt, diese Datei abzuspeichern".
Gruß
Oliver

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

Betreff
Datum
Anwender
Anzeige
AW: Speichern durch VBA verhindern
26.08.2005 15:06:18
Peter
Servus,
da du ja selber noch speichern musst, mit PW Lösung.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim strpw As String
strpw = Application.InputBox("Sie dürfen nicht Speichern !!!", "Speichern abgebrochen")
If strpw = "" Or strpw <> "123" Then
Cancel = True
Exit Sub
End If
End Sub

MfG Peter
AW: Speichern durch VBA verhindern
26.08.2005 15:10:04
Andi
Hi,
oder Du machst ne Abfrage nach dem jeweiligen user:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Application.UserName = "Oliver" Then Exit Sub
MsgBox "Darfst Du nicht!"
Cancel = True
End Sub

Schönen Gruß,
Andi
Anzeige
Application.username ist übel, weil...
ransi
HAllo
das jeder User ändern kann.
versuchs darum besser mit environ("Username")
Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Environ("UserName") <> "Oliver" Then
MsgBox "speichern is nich..."
Cancel = True
End If
End Sub

ransi
und wieder...
26.08.2005 15:31:32
Andi
... was gelernt, Merci.
Schönes Wochenende,
Andi
Anzeige

Links zu Excel-Dialogen

InputBox

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