Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Makro - Zelle nach Eingabe sperren

Makro - Zelle nach Eingabe sperren
26.08.2020 14:15:38
Alexander
Hallo zusammen,
habt Ihr zufällig einen Makro parat?
Ich habe eine Dropdownliste (B11) mit Namen. Diese Zelle soll sich nach Eingabe/Auswahl des Namens selbst sperren und nur mit Passwort wieder freigeschalten (Infobox...).
Vielen Dank im Voraus
LG
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Makro - Zelle nach Eingabe sperren
26.08.2020 14:38:22
Nepumuk
Hallo Alexander,
ändern kannst du mit einem Rechtsklick auf die Zelle.
In das Modul der Tabelle (Rechtsklick auf den Tabellenreiter - Code anzeigen):
Option Explicit

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Dim strPassword As String
    If Target.Address = "$B$11" Then
        strPassword = InputBox("Kennwort eingeben.", "Eingabe")
        If strPassword = "GEHEIM" Then
            Call Unprotect(Password:="GEHEIM")
        Else
            Call MsgBox("Falsches Kennwort.", vbCritical, "Fehleingabe")
        End If
        Cancel = True
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$11" Then
        Call Unprotect(Password:="GEHEIM")
        Target.Locked = True
        Call Protect(Password:="GEHEIM")
    End If
End Sub

Gruß
Nepumuk
Anzeige
AW: Makro - Zelle nach Eingabe sperren
26.08.2020 14:45:52
Alexander
Da kommt ein Laufzeitfehler :(
AW: Makro - Zelle nach Eingabe sperren
26.08.2020 14:49:36
Nepumuk
Hallo Alexander,
ich kenn deine Mappe nicht, aber wahrscheinlich hast du ein anderes Kennwort als "GEHEIM". Das musst du anpassen.
Gruß
Nepumuk
AW: Makro - Zelle nach Eingabe sperren
26.08.2020 14:54:46
Alexander
Klar wer lesen kann, ist im Vorteil. Vielen Dank :)
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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