Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
892to896
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
892to896
892to896
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Blattschutz

Blattschutz
06.08.2007 21:24:00
chris58
Hallo !
Ich habe hier diesne Code gefunden. Es soll eigentlich Einträge in das Datenblatt "Benutzer" ermöglichen. Also das geht ja, aber ich will das Blatt schützen, das es niemand anderer als ich verändern kann. Also das geht nicht. Kann mir wer sagen, was ich falsch mache. ich habe das in "diese Arbeitsmappe" kopiert. Leider kann ich immer wieder die Zeilen in dem Datenblatt "Benutzer" löschen, ohne das eine Eingabe des Passwortes erforderlich ist. Danke für eure Hilfe
chris

Private Sub Workbook_Open()
Worksheets("Benutzer").Protect Password:="Test", UserInterfaceOnly:=True
End Sub


5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
bei mir klappt's
06.08.2007 22:16:00
Bernd
Hi Chris,
also, bei mir klappt der Code von Dir. Das Blatt ist mit "Test" geschuetzt und kann nicht beschrieben werden.
Siehe Datei anbei:
https://www.herber.de/bbs/user/44802.xls
Grüße
Bernd
Rückmeldung wäre nett

AW: Blattschutz
Orakel
Hallo,
damit Du das kannst z.B. in "DieseArbeitsmappe":

Private Sub Workbook_Open()
Dim codeName As String
Dim Passw As String
codeName = InputBox("Geben Sie Ihren Namen ein")
Passw = InputBox("Geben Sie Ihr Passwort ein")
If codeName = "Orakel" And Passw = "Orakel" Then 'cN + Pw jeweils anpassen
MsgBox ("Hallo " & codeName)
Worksheets("Benutzer").Unprotect
Else
MsgBox ("Hallo " & codeName & " Du hast keine Berechtigung")
Worksheets("Benutzer").Protect
End If
End Sub


Grüße, Orakel

Anzeige
AW: Blattschutz
07.08.2007 18:19:43
chris58
Hallo !
Danke für Eure Zeit und Antworten, leider geht der Code nicht, also ich habe da etliche Makros die auf die einzelnen Blätter zugreifen und wenn ich diesen code in "diese Arbeitsmappe" kopiere, dann geht nichts mehr. Gibst eventuell was, was ich da machen kann ?
Danke
chris

AW: Blattschutz
Orakel
Hallo chris,
vielleicht reicht dir der Code so. Über Editor in die Tabelle "Benutzer":

Private Sub Worksheet_Activate()
Dim Passw As String
Passw = InputBox("Geben Sie Ihr Passwort ein")
If Passw = "Orakel" Then 'Pw anpassen
MsgBox ("Hallo " & Passw)
ActiveSheet.Unprotect Password:="Test"
Else
MsgBox ("Hallo " & Passw & " Du hast keine Berechtigung")
ActiveSheet.Protect Password:="Test"
End If
End Sub


Grüße, Orakel

Anzeige
AW: Blattschutz
07.08.2007 19:41:00
chris58
Hallo !
Ja, danke, das genügt vollkommen. Werde das Blatt noch ausblenden.
Danke nochmals
chris

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige