Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1468to1472
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
1468to1472
1468to1472
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Eigene MsgBox - Zellschutz

Eigene MsgBox - Zellschutz
26.01.2016 08:51:31
Senseye
Guten Morgen,
ich bekomme leider keine eigene Meldung bei meinem Blattschutz her. :/
Ich habe folgenden Code ausprobiert, allerdings funktioniert dieser nicht bei mir 
  • 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Cells.Locked = True Then
MsgBox "BLATTSCHUTZ ist AKTIV!!!!", vbInformation, "Protected"
Exit Sub
End If
End Sub

    • Vielleicht kann mir da einer weiterhelfen, vielen Dank vorab :)
    Grüße

    2
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: Eigene MsgBox - Zellschutz
    26.01.2016 08:59:24
    Crazy
    Hallo
    mit der Ergänzung Cancel = True funktioniert es bei mir einwandfrei 
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Cells.Locked = True Then
Cancel = True
MsgBox "BLATTSCHUTZ ist AKTIV!!!!", vbInformation, "Protected"
Exit Sub
End If
End Sub

    MfG Tom

    AW: Eigene MsgBox - Zellschutz
    26.01.2016 09:08:57
    Senseye
    Hallo Tom,
    danke für die schnelle Rückmeldung.
    Bei mir kommt trotzdem die Standardmeldung von Excel :/
    Ich verwende diesen Code für den Zellschutz
  • 
Sub Worksheet_Zellschutz()
Dim c As Range
For Each c In Range("g1:BP1")
If c = "xx" Then
ActiveSheet.Unprotect Password:=""
c.Offset(4).Resize(14).Locked = True
End If
Next c
ActiveSheet.Protect Password:="TEST"
End Sub

    • Grüße
    Anzeige

    Beliebteste Forumthreads (12 Monate)

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

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige