Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1472to1476
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
Kein aufheben des Blattschutzes
15.02.2016 23:02:24
Daniel
Hallo alle zusammen,
ich habe eine EXCEL Datei, wo ich in einer Zelle per Doppelklick ein Kalender aufrufe und das Datum einfügen möchte.
Das Tabellenblatt ist geschützt.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell.Column = 9 Then
ActiveSheet.Unprotect
frmCalendar.Show
Anfragen.TextBox1 = g_datCalendarDate
ActiveSheet.Protect
Else
Cancel = True
End If
End Sub
Ich bekomme immer die Fehlermeldung das das Blatt geschützt ist.
Woran liegt es?
Danke

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

Betreff
Datum
Anwender
Anzeige
AW: Kein aufheben des Blattschutzes
15.02.2016 23:06:32
Daniel
Ein kleiner Fehler.
Hier ist der aktuelle Code.
If ActiveCell.Column = 9 Then
ActiveSheet.Unprotect
frmCalendar.Show
ActiveCell.value = g_datCalendarDate
ActiveSheet.Protect
Else
Cancel = True
End If
End Sub

AW: Kein aufheben des Blattschutzes
15.02.2016 23:13:17
Matthias
Hallo
Hab den Kalender ja nicht zum Testen ...
Geht es so ?
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell.Column = 9 Then
ActiveSheet.Unprotect
frmCalendar.Show
ActiveCell.Value = g_datCalendarDate
ActiveSheet.Protect
Else
End If
Cancel = True
End Sub
Gruß Matthias

Anzeige
AW: Kein aufheben des Blattschutzes
15.02.2016 23:30:11
Daniel
Super, funktioniert.
Da wäre ich nie drauf gekommen.
Danke

bist Du denn auch in Splte 9 ? owT
15.02.2016 23:07:45
Matthias

144 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige