Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen

Zellschutz Fehlermeldung obwohl nicht geschützt | Herbers Excel-Forum


Betrifft: Zellschutz Fehlermeldung obwohl nicht geschützt von: Fettertiger
Geschrieben am: 23.01.2012 17:46:04


Hallo liebe Experten,

manchmal treiben einen die einfachsten Dinge in den Wahnsinn:

Mit dem Before double click event öffne ich eine kleine Userform mit dem Datepicker.
Vor dem Öffnen der Userform schalte ich events und Blattschutz aus. Die Userform füllt das Datum korrekt ein. Erst mit dem EndSub des BeforeDoubleclick makros kommt pötzlich die Fehlermeldung:

"The cell or chart that you are trying to change is protected and therefore read-only."

Was mache ich falsch??

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("L:dc")) Is Nothing Then
        Application.EnableEvents = False
        Select Case Target.Column
        Case 50    'date
            If Cells(Target.Row, Target.Column).Value = Empty Then
                ActiveSheet.Unprotect ("PassWort")
                UF_DATEPICK.Show
            End If
        case 20 'do other things
        
        end select
   End If
   ActiveSheet.Protect ("PassWort")
End Sub
Ok Button aus Userform:
Private Sub OK_bttn_Click()
    Dim Answer As String
    If CDate(UF_DATEPICK.DTPicker1.Value) > Date Then
        Answer = MsgBox("Do you really want to confirm the activity with a future date?", _ 
                        vbQuestion + vbYesNo, "Future Date")
        If Answer = vbNo Then
            Exit Sub
        End If
    End If
    Me.Hide
    ActiveSheet.Unprotect ("PassWort")
    ActiveCell = CDate(UF_DATEPICK.DTPicker1.Value)
    
End Sub
Danke und Gruss

Theo

  

Betrifft: AW: Zellschutz Fehlermeldung obwohl nicht geschützt von: Matthias
Geschrieben am: 23.01.2012 18:07:26

Hallo fettertiger,

unprotect "PassWoert" keine Klammern


  

Betrifft: AW: Zellschutz Fehlermeldung obwohl nicht geschützt von: Fettertiger
Geschrieben am: 24.01.2012 10:19:00

Hi,

das wars nicht, ich habe aber trotzdem die Lösung gefunden:

Auch wenn ichs ungern tue - hier hilft ein select vor dem Endsub:

activesheet.cells(target.row,target.column).select

Gruss

Fettertiger


  

Betrifft: AW: Zellschutz Fehlermeldung obwohl nicht geschützt von: fcs
Geschrieben am: 27.01.2012 23:57:01

Hallo Fettertiger,

du muss im Code die Ausführung des Doppelklicks aufheben (Parameter Cancel auf True setzen). Dann geht es auch ohne Select.

Außerdem muss die Events wieder aktivieren und den Blattschutz wieder aktiveren.

Gruß
Franz

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     If Not Intersect(Target, Range("L:dc")) Is Nothing Then
         Application.EnableEvents = False
         Select Case Target.Column
         Case 50    'date
             If Cells(Target.Row, Target.Column).Value = Empty Then
                 ActiveSheet.Unprotect ("PassWort")
                 UF_DATEPICK.Show
                 ActiveSheet.Protect ("PassWort")
             End If
         Case 20 'do other things
         
         End Select
         Application.EnableEvents = True
    End If
    Cancel = True
 End Sub



Beiträge aus den Excel-Beispielen zum Thema "Zellschutz Fehlermeldung obwohl nicht geschützt"